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 4     4   197255 use strict;
  4         5  
  4         123  
3 4     4   14 use warnings;
  4         4  
  4         134  
4 4     4   32 use v5.10.1;
  4         10  
5              
6 4     4   12 use Exporter qw[import];
  4         4  
  4         589  
7              
8             BEGIN {
9 4     4   13 our $VERSION = '0.91';
10 4         11 our @EXPORT_OK = qw[ leap_year
11             month_days
12             nth_dow_in_month
13             valid_ymd
14             yd_to_md
15             ymd_to_doy
16             ymd_to_dow
17             ymd_to_rdn
18             rdn_to_ymd
19             rdn_to_dow
20             resolve_century ];
21 4         10 our %EXPORT_TAGS = ( all => \@EXPORT_OK );
22 4         25 our @CARP_NOT = qw[Time::Str::PP::Calendar];
23              
24 4         2288 require Time::Str;
25 4 50       102 unless (Time::Str::IMPLEMENTATION() eq 'XS') {
26 0           require Time::Str::PP; Time::Str::PP::Calendar->import(@EXPORT_OK);
  0            
27             }
28             }
29              
30             1;