| line |
true |
false |
branch |
|
23
|
112 |
19 |
if ref $file eq "ARRAY" |
|
26
|
0 |
19 |
unless $method eq "GET" or $method eq "HEAD" |
|
28
|
0 |
19 |
if ($path_info) { } |
|
45
|
1 |
126 |
if ($path =~ /\0/) |
|
51
|
126 |
0 |
if (@path) { } |
|
52
|
122 |
4 |
if $path[0] eq "" |
|
57
|
5 |
121 |
if (grep /^\.{2,}$/, @path) |
|
64
|
15 |
106 |
if ($self->should_handle($try)) { } |
|
|
106 |
0 |
elsif (not $self->allow_path_info) { } |
|
73
|
106 |
15 |
unless ($file) |
|
77
|
0 |
15 |
unless (-r $file) |
|
92
|
1 |
15 |
if ("CODE" eq ref $content_type) |
|
96
|
14 |
2 |
if ($content_type =~ m[^text/]) |
|
100
|
0 |
16 |
unless open my $fh, "<:raw", $file |