| line |
true |
false |
branch |
|
18
|
3 |
3 |
if (-d $self->root . $env->{'PATH_INFO'}) |
|
23
|
2 |
1 |
unless $index |
|
37
|
1 |
3 |
if $temp |
|
39
|
0 |
4 |
if ref $file eq 'ARRAY' |
|
41
|
0 |
4 |
if ($path_info) { } |
|
58
|
3 |
1 |
if ($self->_valid_file_perl($file)) { } |
|
73
|
1 |
2 |
if -e $self->root . $path_info . '/index.pl' |
|
74
|
0 |
2 |
if -e $self->root . $path_info . '/index.cgi' |
|
75
|
0 |
2 |
if -e $self->root . $path_info . '/index.html' |
|
76
|
0 |
2 |
if -e $self->root . $path_info . '/index.htm' |
|
84
|
3 |
1 |
if $file =~ /.(pl|cgi)$/i |
|
85
|
0 |
1 |
if $self->shebang_for($file) =~ /^\#\!.*perl/ |