File Coverage

blib/lib/Time/Str/Token.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::Token;
2 1     1   120614 use strict;
  1         4  
  1         53  
3 1     1   7 use warnings;
  1         1  
  1         74  
4 1     1   16 use v5.10.1;
  1         4  
5              
6 1     1   6 use Exporter qw[import];
  1         1  
  1         200  
7              
8             BEGIN {
9 1     1   5 our $VERSION = '0.80';
10 1         4 our @EXPORT_OK = qw[ parse_day
11             parse_day_name
12             parse_month
13             parse_meridiem
14             parse_tz_offset ];
15 1         5 our %EXPORT_TAGS = ( all => \@EXPORT_OK );
16 1         3 our @CARP_NOT = qw[Time::Str::PP::Token];
17              
18 1         596 require Time::Str;
19 1 50       35 unless (Time::Str::IMPLEMENTATION() eq 'XS') {
20 0           require Time::Str::PP; Time::Str::PP::Token->import(@EXPORT_OK);
  0            
21             }
22             }
23              
24             1;