File: Midway.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 (92 lines) | stat: -rw-r--r-- 1,279 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
# 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/australasia.  Olson data version 2010k
#
# Do not edit this file directly.
#
package DateTime::TimeZone::Pacific::Midway;

use strict;

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

@DateTime::TimeZone::Pacific::Midway::ISA = ( 'Class::Singleton', 'DateTime::TimeZone' );

my $spans =
[
    [
DateTime::TimeZone::NEG_INFINITY,
59958272968,
DateTime::TimeZone::NEG_INFINITY,
59958230400,
-42568,
0,
'LMT'
    ],
    [
59958272968,
61707178800,
59958233368,
61707139200,
-39600,
0,
'NST'
    ],
    [
61707178800,
61715037600,
61707142800,
61715001600,
-36000,
1,
'NDT'
    ],
    [
61715037600,
62048804400,
61714998000,
62048764800,
-39600,
0,
'NST'
    ],
    [
62048804400,
62574721200,
62048764800,
62574681600,
-39600,
0,
'BST'
    ],
    [
62574721200,
DateTime::TimeZone::INFINITY,
62574681600,
DateTime::TimeZone::INFINITY,
-39600,
0,
'SST'
    ],
];

sub olson_version { '2010k' }

sub has_dst_changes { 1 }

sub _max_year { 2020 }

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



1;