Branch Coverage

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


line true false branch
18 0 10 $dur->years ? :
0 10 $dur->months ? :
4 6 $dur->weeks ? :
9 1 $dur->days ? :
26 1 7 if ($dur->hours or $dur->minutes or $dur->seconds)
27 2 1 $dur->hours ? :
2 1 $dur->minutes ? :
1 2 $dur->seconds ? :
36 0 10 if $res eq 'P'
233 1 3 if ($_[0] eq 'now') { }
1 2 elsif ($_[0] eq 'today') { }
1 1 elsif ($_[0] eq 'yesterday') { }
1 0 elsif ($_[0] eq 'tomorrow') { }
247 1 1 if ($_[1] eq '+') { }
259 2 2 if (ref $_[0]) { }
261 1 1 if ($_[1] eq '*') { }
302 0 4 if /(-?\d+(?:\.\d+)?)\s*(years?|y)/
303 0 4 if /(-?\d+(?:\.\d+)?)\s*(mons?|months?)/
304 1 3 if /(-?\d+(?:\.\d+)?)\s*(weeks?|w)/
305 2 2 if /(-?\d+(?:\.\d+)?)\s*(days?|d)/
306 1 3 if /(-?\d+(?:\.\d+)?)\s*(hours?|h)/
307 1 3 if /(-?\d+(?:\.\d+)?)\s*(mins?|minutes?)/
308 1 3 if /(-?\d+(?:\.\d+)?)\s*(s|secs?|seconds?)/
314 16 0 $_[0] =~ /P(.+?)(?:T|\z)/ ? :
315 4 12 $_[0] =~ /T(.*)/ ? :
318 2 14 if $d =~ /(-?\d+(?:\.\d+)?)Y/i
319 3 13 if $d =~ /(-?\d+(?:\.\d+)?)M/i
320 0 16 if $d =~ /(-?\d+(?:\.\d+)?)W/
321 11 5 if $d =~ /(-?\d+(?:\.\d+)?)D/
322 2 14 if $t =~ /(-?\d+(?:\.\d+)?)H/i
323 2 14 if $t =~ /(-?\d+(?:\.\d+)?)M/i
324 1 15 if $t =~ /(-?\d+(?:\.\d+)?)S/i
331 1 2 if ($fn eq 'abs') { }
2 0 elsif ($fn eq 'round') { }
343 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') { }
375 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') { }
397 1 1 if ($_[1] eq '+') { }
405 5 1 if ($_[1] eq '*') { }
415 1 1 if ($op eq '+') { }
438 10 33 if (&blessed($res) and $res->isa('DateTime::Duration')) { }
7 26 elsif (&blessed($res) and $res->isa('DateTime')) { }