Branch Coverage

blib/lib/App/datecalc.pm
Criterion Covered Total %
branch 101 118 85.5


line true false branch
20 0 10 $dur->years ? :
0 10 $dur->months ? :
4 6 $dur->weeks ? :
9 1 $dur->days ? :
28 1 7 if ($dur->hours or $dur->minutes or $dur->seconds)
29 2 1 $dur->hours ? :
2 1 $dur->minutes ? :
1 2 $dur->seconds ? :
38 0 10 if $res eq "P"
235 1 3 if ($_[0] eq 'now') { }
1 2 elsif ($_[0] eq 'today') { }
1 1 elsif ($_[0] eq 'yesterday') { }
1 0 elsif ($_[0] eq 'tomorrow') { }
249 1 1 if ($_[1] eq '+') { }
261 2 2 if (ref $_[0]) { }
263 1 1 if ($_[1] eq '*') { }
304 0 4 if /(-?\d+(?:\.\d+)?)\s*(years?|y)/
305 0 4 if /(-?\d+(?:\.\d+)?)\s*(mons?|months?)/
306 1 3 if /(-?\d+(?:\.\d+)?)\s*(weeks?|w)/
307 2 2 if /(-?\d+(?:\.\d+)?)\s*(days?|d)/
308 1 3 if /(-?\d+(?:\.\d+)?)\s*(hours?|h)/
309 1 3 if /(-?\d+(?:\.\d+)?)\s*(mins?|minutes?)/
310 1 3 if /(-?\d+(?:\.\d+)?)\s*(s|secs?|seconds?)/
316 16 0 $_[0] =~ /P(.+?)(?:T|\z)/ ? :
317 4 12 $_[0] =~ /T(.*)/ ? :
320 2 14 if $d =~ /(-?\d+(?:\.\d+)?)Y/i
321 3 13 if $d =~ /(-?\d+(?:\.\d+)?)M/i
322 0 16 if $d =~ /(-?\d+(?:\.\d+)?)W/
323 11 5 if $d =~ /(-?\d+(?:\.\d+)?)D/
324 2 14 if $t =~ /(-?\d+(?:\.\d+)?)H/i
325 2 14 if $t =~ /(-?\d+(?:\.\d+)?)M/i
326 1 15 if $t =~ /(-?\d+(?:\.\d+)?)S/i
333 1 2 if ($fn eq 'abs') { }
2 0 elsif ($fn eq 'round') { }
345 1 8 if ($fn eq 'year') { }
1 7 elsif ($fn eq 'month') { }
1 6 elsif ($fn eq 'day') { }
1 5 elsif ($fn eq 'dow') { }
1 4 elsif ($fn eq 'quarter') { }
1 3 elsif ($fn eq 'doy') { }
1 2 elsif ($fn eq 'wom') { }
1 1 elsif ($fn eq 'woy') { }
1 0 elsif ($fn eq 'doq') { }
0 0 elsif ($fn eq 'hour') { }
0 0 elsif ($fn eq 'minute') { }
0 0 elsif ($fn eq 'second') { }
377 1 7 if ($fn eq 'years') { }
1 6 elsif ($fn eq 'months') { }
1 5 elsif ($fn eq 'weeks') { }
1 4 elsif ($fn eq 'days') { }
1 3 elsif ($fn eq 'totdays') { }
1 2 elsif ($fn eq 'hours') { }
1 1 elsif ($fn eq 'minutes') { }
1 0 elsif ($fn eq 'seconds') { }
399 1 1 if ($_[1] eq '+') { }
407 5 1 if ($_[1] eq '*') { }
417 1 1 if ($op eq '+') { }
440 10 33 if (&blessed($res) and $res->isa('DateTime::Duration')) { }
7 26 elsif (&blessed($res) and $res->isa('DateTime')) { }