| line |
true |
false |
branch |
|
56
|
0 |
0 |
if length $perl_exe and -x $perl_exe
|
|
110
|
4 |
0 |
-f $perldoc && -x $perldoc ? :
|
|
134
|
0 |
0 |
if $exit_code != 0
|
|
152
|
0 |
0 |
unless length $path
|
|
153
|
0 |
0 |
unless open my $fh, "<", $path
|
|
178
|
0 |
0 |
unless $ok
|
|
202
|
0 |
0 |
unless $ok
|
|
210
|
0 |
0 |
unless open my $fh, "<", $path
|
|
217
|
0 |
0 |
if ($line =~ /^=(head\d|item).*\b\Q$name\E\b.*$/)
|
|
224
|
0 |
0 |
if (length $start)
|
|
228
|
0 |
0 |
if ($start eq "item" and $line =~ /^=item/ or $start =~ /head/ and $line =~ /^=$start/ or $line =~ /^=cut/)
|
|
244
|
0 |
0 |
if (scalar @lines)
|
|
255
|
0 |
0 |
unless $ok
|
|
303
|
4 |
2 |
if (not scalar @include or $last_perl ne $PERL_EXE)
|
|
331
|
4 |
0 |
if (scalar @clean_inc)
|