Branch Coverage

blib/lib/Time/Format.pm
Criterion Covered Total %
branch 27 38 71.0


line true false branch
74 245 11 if defined &Time::Format::time_format_perlonly
86 0 11 if $@
103 19 6 if (@_) { }
105 5 14 if (grep(($_ eq ':all'), @_)) { }
119 0 25 if (@badsym)
121 0 0 @badsym > 1 ? :
122 0 0 @badsym > 1 ? :
133 34 33 if ($pfx eq '%') { }
0 33 elsif ($pfx eq '@') { }
0 33 elsif ($pfx eq '$') { }
193 346 18 if exists $have{$module}
197 13 5 if exists $INC{"$incmod.pm"}
201 0 5 $@ ? :
210 0 14 unless _have('POSIX')
216 1 13 if (@_ > 1) { }
222 12 1 @_ ? :
233 0 14 unless _have('Date::Manip')
236 13 1 @_ ? :
238 2 12 if $time =~ /^\s* (epoch \s+ \d+)/x