File Coverage

blib/lib/Time/Str/Calendar.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::Calendar;
2 1     1   143055 use strict;
  1         3  
  1         40  
3 1     1   4 use warnings;
  1         2  
  1         34  
4 1     1   9 use v5.10.1;
  1         2  
5              
6 1     1   5 use Exporter qw[import];
  1         2  
  1         125  
7              
8             BEGIN {
9 1     1   3 our $VERSION = '0.80';
10 1         2 our @EXPORT_OK = qw[ leap_year
11             month_days
12             valid_ymd
13             ymd_to_dow
14             ymd_to_rdn
15             rdn_to_ymd
16             rdn_to_dow
17             resolve_century ];
18 1         2 our %EXPORT_TAGS = ( all => \@EXPORT_OK );
19 1         2 our @CARP_NOT = qw[Time::Str::PP::Calendar];
20              
21 1         344 require Time::Str;
22 1 50       36 unless (Time::Str::IMPLEMENTATION() eq 'XS') {
23 0           require Time::Str::PP; Time::Str::PP::Calendar->import(@EXPORT_OK);
  0            
24             }
25             }
26              
27             1;