File: Kuala_Lumpur.pm

package info (click to toggle)
libdatetime-timezone-perl 1%3A1.20-1%2B2010k
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 4,508 kB
  • ctags: 2,667
  • sloc: perl: 2,340; sh: 68; makefile: 5
file content (119 lines) | stat: -rw-r--r-- 1,521 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
# This file is auto-generated by the Perl DateTime Suite time zone
# code generator (0.07) This code generator comes with the
# DateTime::TimeZone module distribution in the tools/ directory

#
# Generated from /tmp/BeQtk28wzo/asia.  Olson data version 2010k
#
# Do not edit this file directly.
#
package DateTime::TimeZone::Asia::Kuala_Lumpur;

use strict;

use Class::Singleton;
use DateTime::TimeZone;
use DateTime::TimeZone::OlsonDB;

@DateTime::TimeZone::Asia::Kuala_Lumpur::ISA = ( 'Class::Singleton', 'DateTime::TimeZone' );

my $spans =
[
    [
DateTime::TimeZone::NEG_INFINITY,
59958205994,
DateTime::TimeZone::NEG_INFINITY,
59958230400,
24406,
0,
'LMT'
    ],
    [
59958205994,
60097482275,
59958230919,
60097507200,
24925,
0,
'SMT'
    ],
    [
60097482275,
60968048400,
60097507475,
60968073600,
25200,
0,
'MALT'
    ],
    [
60968048400,
61062655200,
60968074800,
61062681600,
26400,
1,
'MALST'
    ],
    [
61062655200,
61241503200,
61062681600,
61241529600,
26400,
0,
'MALT'
    ],
    [
61241503200,
61256017800,
61241530200,
61256044800,
27000,
0,
'MALT'
    ],
    [
61256017800,
61368678000,
61256050200,
61368710400,
32400,
0,
'JST'
    ],
    [
61368678000,
62514347400,
61368705000,
62514374400,
27000,
0,
'MALT'
    ],
    [
62514347400,
DateTime::TimeZone::INFINITY,
62514376200,
DateTime::TimeZone::INFINITY,
28800,
0,
'MYT'
    ],
];

sub olson_version { '2010k' }

sub has_dst_changes { 1 }

sub _max_year { 2020 }

sub _new_instance
{
    return shift->_init( @_, spans => $spans );
}



1;