File Coverage

blib/lib/DateTimeX/Lite/TimeZone/UTC.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 8 10 80.0
pod 6 7 85.7
total 29 34 85.2


line stmt bran cond sub pod time code
1              
2             package DateTimeX::Lite::TimeZone::UTC;
3              
4 56     56   292 use strict;
  56         912  
  56         4543  
5              
6 56     56   284 use DateTimeX::Lite::TimeZone;
  56         91  
  56         1386  
7 56     56   312 use base 'DateTimeX::Lite::TimeZone';
  56         89  
  56         12893  
8              
9             sub new
10             {
11 49     49 1 123 my $class = shift;
12              
13 49         537 return bless { name => 'UTC' }, $class;
14             }
15              
16 0     0 0 0 sub is_dst_for_datetime { 0 }
17              
18 60     60 1 185 sub offset_for_datetime { 0 }
19 24736     24736 1 58850 sub offset_for_local_datetime { 0 }
20              
21 3     3 1 17 sub short_name_for_datetime { 'UTC' }
22              
23 0     0 1 0 sub category { undef }
24              
25 48898     48898 1 190083 sub is_utc { 1 }
26              
27              
28             1;
29              
30             __END__