Branch Coverage

blib/lib/PerlBench.pm
Criterion Covered Total %
branch 20 62 32.2


line true false branch
23 0 0 if $opt{'verbose'}
28 0 0 if $opt{'verbose'}
30 0 0 if $opt{'verbose'}
31 0 0 if $t > $enough
32 0 0 if ($t < 1e-05) { }
0 0 elsif ($t < 0.01) { }
50 0 0 if $loop_count % 2
57 0 0 unless open my $fh, '>', $pl
61 0 0 if $init
80 0 0 if $init
81 0 0 unless close $fh
83 0 0 if $opt{'verbose'}
86 0 0 if $opt{'verbose'} and $round > 1
90 0 0 unless open $fh, "$^X $pl $e_num 7 $loop_count |"
93 0 0 if (/^t(\d+)=(.*)/)
94 0 0 unless $1 eq $e_num
103 0 0 if $opt{'verbose'}
154 0 0 if $@
161 0 0 unless $loop_count > 0
162 0 0 if $loop_count + 1 == $loop_count
164 0 0 unless defined $init
201 3 17 if (defined $u) { }
206 16 33 if ($t < 1 / $UNITS[$i][1])
211 1 16 unless ($u)
216 4 16 defined $d ? :
217 16 4 unless $dev
219 13 7 if ($f != 1)
224 2 18 if ($d < 0.05) { }
2 16 elsif ($d < 0.5) { }
7 9 elsif ($d < 5) { }
234 4 16 if $dev