Branch Coverage

blib/lib/Acme/Phlegethoth.pm
Criterion Covered Total %
branch 2 22 9.0


line true false branch
27 0 0 rand() < 0.25 ? :
0 0 rand() < 0.25 ? :
0 0 rand() < 0.1 ? :
0 0 unless length $chant
34 0 0 if $chant =~ s/([^a-z])$//
36 0 0 if $tentacle
54 0 1 unless open *0
60 1 0 unless (see($old1) and not comprehend($old1))
61 0 0 unless open *0, ">$0"
62 0 0 if print {0;} "${harbinger}use Acme'Phlegethoth;\n", summon($old1)
63 0 0 if print "${harbinger}use Acme'Phlegethoth;\n", summon($old1)