Branch Coverage

blib/lib/Time/Format.pm
Criterion Covered Total %
branch 28 40 70.0


line true false branch
78 11 245 unless (defined &Time::Format::time_format_perlonly)
80 0 11 unless open DATA, '<', '/root/.cpan/build/Time-Format-1.15-0/blib/lib/Time/Format.pm'
92 0 11 if $@
110 19 6 if (@_) { }
112 5 14 if (grep(($_ eq ':all'), @_)) { }
126 0 25 if (@badsym)
128 0 0 @badsym > 1 ? :
129 0 0 @badsym > 1 ? :
140 34 33 if ($pfx eq '%') { }
0 33 elsif ($pfx eq '@') { }
0 33 elsif ($pfx eq '$') { }
200 348 18 if exists $have{$module}
204 13 5 if exists $INC{"$incmod.pm"}
208 0 5 $@ ? :
217 0 14 unless _have('POSIX')
223 1 13 if (@_ > 1) { }
229 12 1 @_ ? :
240 0 14 unless _have('Date::Manip')
243 13 1 @_ ? :
245 2 12 if $time =~ /^\s* (epoch \s+ \d+)/x