| line |
true |
false |
branch |
|
114
|
2 |
18 |
if ('File::Spec'->file_name_is_absolute($self->cgi_dir)) { }
|
|
|
15 |
3 |
elsif ('File::Spec'->file_name_is_absolute($app->config->{'root'})) { }
|
|
127
|
0 |
20 |
unless ref $patterns
|
|
129
|
0 |
29 |
if ($pat =~ m[^/(.*)/\z])
|
|
138
|
0 |
55 |
if &any(sub {
$_ eq '.svn';
}
, splitdir($cgi_path))
|
|
139
|
0 |
55 |
if $cgi_path =~ /\.swp\z/
|
|
143
|
55 |
0 |
$namespace ? :
|
|
146
|
2 |
53 |
if (my $chain_root = $self->cgi_chain_root) { }
|
|
156
|
30 |
13 |
if ($self->is_perl_cgi($file)) { }
|
|
164
|
0 |
43 |
if $app->debug
|
|
187
|
6 |
2 |
if ($cgi_bin =~ /^\Q@{[$app->path_to('root')];}\E/)
|
|
190
|
6 |
0 |
if (not &any(sub {
$_ eq $rel;
}
, @{[] unless $app->config->{'Plgin::Static::Simple'}{'ignore_dirs'};}))
|
|
191
|
6 |
0 |
unless $app->config->{'Plgin::Static::Simple'}{'ignore_dirs'}
|
|
251
|
0 |
55 |
if ($^O eq 'MSWin32')
|
|
254
|
0 |
0 |
$@ ? :
|
|
263
|
0 |
55 |
unless defined $pid
|
|
265
|
43 |
12 |
if ($pid)
|
|
269
|
13 |
30 |
$errors ? :
|
|
346
|
0 |
2 |
if ($? == -1) { }
|
|
|
0 |
2 |
elsif ($? & 127) { }
|
|
350
|
0 |
0 |
$? & 128 ? :
|
|
356
|
1 |
1 |
if $exit_code == 0
|