File Coverage

blib/lib/Time/Str/Time.pm
Criterion Covered Total %
statement 17 19 89.4
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 23 26 88.4


line stmt bran cond sub pod time code
1             package Time::Str::Time;
2 3     3   177857 use strict;
  3         5  
  3         86  
3 3     3   9 use warnings;
  3         3  
  3         95  
4 3     3   25 use v5.10.1;
  3         8  
5              
6 3     3   11 use Exporter qw[import];
  3         5  
  3         369  
7              
8             BEGIN {
9 3     3   7 our $VERSION = '0.91';
10 3         7 our @EXPORT_OK = qw[ gmtime_modern
11             gmtime_year
12             timegm_posix
13             timegm_modern
14             valid_hms
15             valid_hms60 ];
16 3         16 our %EXPORT_TAGS = ( all => \@EXPORT_OK );
17 3         5 our @CARP_NOT = qw[Time::Str::PP::Time];
18              
19 3         656 require Time::Str;
20 3 50       61 unless (Time::Str::IMPLEMENTATION() eq 'XS') {
21 0           require Time::Str::PP; Time::Str::PP::Time->import(@EXPORT_OK);
  0            
22             }
23             }
24              
25             1;