| line |
true |
false |
branch |
|
55
|
0 |
0 |
if length $perl_exe and -x $perl_exe
|
|
107
|
4 |
0 |
-f $perldoc && -x $perldoc ? :
|
|
130
|
0 |
0 |
if $exit_code != 0
|
|
148
|
0 |
0 |
unless length $path
|
|
149
|
0 |
0 |
unless open my $fh, "<", $path
|
|
174
|
0 |
0 |
unless $ok
|
|
198
|
0 |
0 |
unless $ok
|
|
206
|
0 |
0 |
unless open my $fh, "<", $path
|
|
213
|
0 |
0 |
if ($line =~ /^=(head\d|item).*\b\Q$name\E\b.*$/)
|
|
220
|
0 |
0 |
if (length $start)
|
|
224
|
0 |
0 |
if ($start eq "item" and $line =~ /^=item/ or $start =~ /head/ and $line =~ /^=$start/ or $line =~ /^=cut/)
|
|
240
|
0 |
0 |
if (scalar @lines)
|
|
251
|
0 |
0 |
unless $ok
|
|
297
|
4 |
2 |
if (not scalar @include or $last_perl ne $PERL_EXE)
|
|
306
|
4 |
0 |
if (my $pid = open(my $perl, "-|", $PERL_EXE, "-e", "\$, = \"\\n\"; print \@INC; print \"\\n\""))
|
|
313
|
0 |
20 |
unless length $line
|