Branch Coverage

blib/lib/Tangerine/hook/prefixedlist.pm
Criterion Covered Total %
branch 7 10 70.0


line true false branch
14 9 72 if (&any(sub { $s->[0] eq $_; } , 'use', 'no') and scalar @$s > 2 and &any(sub { $s->[1] eq $_; } , 'Mo', 'POE', 'Tk::widgets'))
18 0 9 $version ? :
20 9 0 if (scalar @$s > $voffset)
21 0 9 if $s->[$voffset] eq ';'
27 1 8 if ($s->[1] eq 'Tk::widgets') { }