| line |
true |
false |
branch |
|
111
|
0 |
1 |
unless (defined $package) |
|
122
|
0 |
1 |
unless defined $$self{'testsuite'} |
|
144
|
0 |
1 |
unless seek $fd, 0, 0 |
|
147
|
2 |
725 |
if (/^=for\s+My::Tests::Below\s+"([^"]*)"(.*)$/) { } |
|
|
0 |
725 |
elsif (/^=for\s+My::Tests::Below/) { } |
|
149
|
1 |
1 |
if (grep {lc $_ eq 'end';} @args) { } |
|
150
|
0 |
1 |
unless defined $insnippet |
|
152
|
0 |
1 |
unless $insnippet eq $snipkey |
|
156
|
0 |
1 |
if exists $$self{'podsnippets'}{$snipkey} |
|
159
|
0 |
1 |
if defined $insnippet |
|
168
|
26 |
699 |
if defined $insnippet |
|
171
|
723 |
4 |
if defined $packline and $. <= $packline |
|
175
|
3 |
1 |
unless /^__(END|DATA)__\s+$/ |
|
215
|
1 |
0 |
if (defined $$self{'package'} and defined $$self{'packfilename'}) |
|
228
|
0 |
1 |
unless $$self{'packfilename'} =~ m[(\Q$filename\E(?:/.*|\.pm)$)] |
|
248
|
1 |
2 |
defined $ENV{$_} ? : |
|
253
|
0 |
1 |
$ENV{'DEBUG'} ? : |
|
259
|
1 |
0 |
if $@ |
|
281
|
0 |
0 |
if defined $cached |
|
282
|
0 |
0 |
$ENV{'DEBUG'} ? : |
|
359
|
0 |
0 |
unless ref $self |
|
362
|
0 |
0 |
unless defined $_ |
|
366
|
0 |
0 |
if $line =~ /^\t/ |
|
368
|
0 |
0 |
if $line eq '' |
|
373
|
0 |
0 |
if not defined $ragamount or $ragamount > $spaceamount |
|
408
|
0 |
0 |
unless ref $self |