Branch Coverage

bin/factor
Criterion Covered Total %
branch 13 28 46.4


line true false branch
444 0 1014 unless defined $fh
448 1014 0 if (@numbers) { }
455 0 0 if (/^\s*(\S+)/)
471 0 1015 unless ($n =~ /^\+?\d+$/)
476 0 1015 if ($n % 2 == 0 and ($n - 1) % 2 == 0)
481 0 1015 unless print "${n}:"
485 0 1015 if ($n < 2)
486 0 0 unless print "\n"
496 0 26 unless print " $p"
500 1015 16245 if $p > $s
516 0 0 unless print " $f"
526 1008 7 unless ($n == 1)
527 0 1008 unless print " $n"
530 0 1015 unless print "\n"