Branch Coverage

lib/Time/Date.pm
Criterion Covered Total %
branch 8 64 12.5


line true false branch
14 0 1 unless $str
24 0 1 unless defined $year
25 1 0 if ($ampm =~ /^\s*am?$/i) { }
0 0 elsif ($ampm =~ /^\s*pm?$/i) { }
0 0 elsif (not $ampm =~ /^\s*$/) { }
26 0 1 if $hour == 12
29 0 0 if $hour != 12
37 0 1 unless defined $epoch
47 0 0 defined $mday ? :
52 0 0 defined $isdst ? :
54 0 0 unless defined $epoch
86 0 0 unless $now
88 0 0 if ($delta < -2764800) { }
0 0 elsif ($delta < -172800) { }
0 0 elsif ($delta < -86400) { }
0 0 elsif ($delta < -7200) { }
0 0 elsif ($delta < -3600) { }
0 0 elsif ($delta < -120) { }
0 0 elsif ($delta < -60) { }
0 0 elsif ($delta < -1) { }
0 0 elsif ($delta < 0) { }
0 0 elsif ($delta < 1) { }
0 0 elsif ($delta < 2) { }
121 0 0 if ($delta < 60) { }
0 0 elsif ($delta < 120) { }
0 0 elsif ($delta < 3600) { }
0 0 elsif ($delta < 7200) { }
0 0 elsif ($delta < 86400) { }
0 0 elsif ($delta < 172800) { }
0 0 elsif ($delta < 2764800) { }
149 0 1 unless open my $fh, '<', '/usr/share/zoneinfo/zone.tab'
151 24 416 unless $line =~ m[^[A-Z]{2}\s+\S+\s+(\w+)/(\S+)]