File Coverage

blib/lib/Time/Local/TZ.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Time::Local::TZ;
2              
3 4     4   82699 use 5.008;
  4         31  
4 4     4   29 use strict;
  4         10  
  4         115  
5 4     4   24 use warnings;
  4         14  
  4         152  
6 4     4   20 use base 'Exporter';
  4         8  
  4         415  
7 4     4   29 use XSLoader;
  4         11  
  4         962  
8              
9             our $VERSION = '0.02';
10              
11             our %EXPORT_TAGS = (
12             func => [ qw/
13             tz_localtime
14             tz_timelocal
15             tz_truncate
16             tz_offset
17             / ],
18             const => [ qw/
19             TM_SEC
20             TM_MIN
21             TM_HOUR
22             TM_MDAY
23             TM_MON
24             TM_YEAR
25             TM_WDAY
26             TM_YDAY
27             TM_ISDST
28             / ],
29             );
30             our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
31             $EXPORT_TAGS{all} = [ @EXPORT_OK ];
32              
33              
34             sub TM_SEC () { 0 }
35             sub TM_MIN () { 1 }
36             sub TM_HOUR () { 2 }
37             sub TM_MDAY () { 3 }
38             sub TM_MON () { 4 }
39             sub TM_YEAR () { 5 }
40             sub TM_WDAY () { 6 }
41             sub TM_YDAY () { 7 }
42             sub TM_ISDST () { 8 }
43              
44              
45             XSLoader::load('Time::Local::TZ', $VERSION);
46              
47             1;
48             __END__