File Coverage

blib/lib/DateTime/TimeZone/Asia/Pyongyang.pm
Criterion Covered Total %
statement 21 22 95.4
branch n/a
condition n/a
subroutine 9 10 90.0
pod 1 2 50.0
total 31 34 91.1


line stmt bran cond sub pod time code
1             # This file is auto-generated by the Perl DateTime Suite time zone
2             # code generator (0.08) This code generator comes with the
3             # DateTime::TimeZone module distribution in the tools/ directory
4              
5             #
6             # Generated from /tmp/IIA7keyKs7/asia. Olson data version 2026a
7             #
8             # Do not edit this file directly.
9             #
10             package DateTime::TimeZone::Asia::Pyongyang;
11              
12 1     1   510 use strict;
  1         5  
  1         31  
13 1     1   3 use warnings;
  1         2  
  1         58  
14 1     1   6 use namespace::autoclean;
  1         1  
  1         6  
15              
16             our $VERSION = '2.67';
17              
18 1     1   87 use Class::Singleton 1.03;
  1         14  
  1         47  
19 1     1   8 use DateTime::TimeZone;
  1         3  
  1         32  
20 1     1   8 use DateTime::TimeZone::OlsonDB;
  1         3  
  1         176  
21              
22             @DateTime::TimeZone::Asia::Pyongyang::ISA = ( 'Class::Singleton', 'DateTime::TimeZone' );
23              
24             my $spans =
25             [
26             [
27             DateTime::TimeZone::NEG_INFINITY, # utc_start
28             60186901020, # utc_end 1908-03-31 15:37:00 (Tue)
29             DateTime::TimeZone::NEG_INFINITY, # local_start
30             60186931200, # local_end 1908-04-01 00:00:00 (Wed)
31             30180,
32             0,
33             'LMT',
34             ],
35             [
36             60186901020, # utc_start 1908-03-31 15:37:00 (Tue)
37             60305268600, # utc_end 1911-12-31 15:30:00 (Sun)
38             60186931620, # local_start 1908-04-01 00:07:00 (Wed)
39             60305299200, # local_end 1912-01-01 00:00:00 (Mon)
40             30600,
41             0,
42             'KST',
43             ],
44             [
45             60305268600, # utc_start 1911-12-31 15:30:00 (Sun)
46             61367036400, # utc_end 1945-08-23 15:00:00 (Thu)
47             60305301000, # local_start 1912-01-01 00:30:00 (Mon)
48             61367068800, # local_end 1945-08-24 00:00:00 (Fri)
49             32400,
50             0,
51             'JST',
52             ],
53             [
54             61367036400, # utc_start 1945-08-23 15:00:00 (Thu)
55             63575247600, # utc_end 2015-08-14 15:00:00 (Fri)
56             61367068800, # local_start 1945-08-24 00:00:00 (Fri)
57             63575280000, # local_end 2015-08-15 00:00:00 (Sat)
58             32400,
59             0,
60             'KST',
61             ],
62             [
63             63575247600, # utc_start 2015-08-14 15:00:00 (Fri)
64             63661129200, # utc_end 2018-05-04 15:00:00 (Fri)
65             63575278200, # local_start 2015-08-14 23:30:00 (Fri)
66             63661159800, # local_end 2018-05-04 23:30:00 (Fri)
67             30600,
68             0,
69             'KST',
70             ],
71             [
72             63661129200, # utc_start 2018-05-04 15:00:00 (Fri)
73             DateTime::TimeZone::INFINITY, # utc_end
74             63661161600, # local_start 2018-05-05 00:00:00 (Sat)
75             DateTime::TimeZone::INFINITY, # local_end
76             32400,
77             0,
78             'KST',
79             ],
80             ];
81              
82 1     1 0 2 sub olson_version {'2026a'}
83              
84 0     0 1 0 sub has_dst_changes {0}
85              
86 1     1   6 sub _max_year {2036}
87              
88             sub _new_instance {
89 1     1   12 return shift->_init( @_, spans => $spans );
90             }
91              
92              
93              
94             1;
95