| line |
true |
false |
branch |
|
54
|
0 |
0 |
if length $perl_exe and -x $perl_exe
|
|
106
|
0 |
0 |
-f $perldoc && -x $perldoc ? :
|
|
129
|
0 |
0 |
if $exit_code != 0
|
|
147
|
0 |
0 |
unless length $path
|
|
148
|
0 |
0 |
unless open my $fh, "<", $path
|
|
173
|
0 |
0 |
unless $ok
|
|
197
|
0 |
0 |
unless $ok
|
|
205
|
0 |
0 |
unless open my $fh, "<", $path
|
|
212
|
0 |
0 |
if ($line =~ /^=(head\d|item).*\b\Q$name\E\b.*$/)
|
|
219
|
0 |
0 |
if (length $start)
|
|
223
|
0 |
0 |
if ($start eq "item" and $line =~ /^=item/ or $start =~ /head/ and $line =~ /^=$start/ or $line =~ /^=cut/)
|
|
239
|
0 |
0 |
if (scalar @lines)
|
|
250
|
0 |
0 |
unless $ok
|
|
297
|
2 |
0 |
if (my $pid = open(my $perl, "-|", $PERL_EXE, "-e", "\$, = \"\\n\"; print \@INC; print \"\\n\""))
|
|
304
|
0 |
14 |
unless length $line
|
|
311
|
2 |
0 |
if ref $PLS::Server::State::CONFIG->{'inc'} eq "ARRAY"
|