| line |
true |
false |
branch |
|
31
|
1 |
19 |
unless defined $self->application |
|
32
|
2 |
17 |
unless -e $self->destination and -d $self->destination |
|
40
|
1 |
16 |
if ($path = $self->url->path and $path ne '/') |
|
55
|
3 |
40 |
unless length $uri->path |
|
59
|
17 |
23 |
if $segments[-1] eq '' |
|
76
|
2 |
21 |
unless -e $dir |
|
78
|
3 |
20 |
unless open my $fh, '> :raw', $file |
|
87
|
33 |
2 |
unless ref $uri |
|
90
|
1 |
34 |
if $uri->path and length(($uri->path_segments)[0]) |
|
124
|
3 |
30 |
if -e $target |
|
127
|
31 |
2 |
unless $uri->scheme |
|
128
|
31 |
2 |
unless $uri->host |
|
134
|
26 |
7 |
if (ref $res eq 'ARRAY') { } |
|
|
6 |
1 |
elsif (ref $res eq 'CODE') { } |
|
147
|
3 |
3 |
unless (defined $content) |
|
148
|
1 |
2 |
if $status ne '200' |
|
158
|
23 |
9 |
if ($status eq '200') |
|
165
|
15 |
5 |
if (ref $content eq 'ARRAY') { } |
|
|
1 |
4 |
elsif (ref $content eq 'GLOB') { } |
|
|
1 |
3 |
elsif (eval {
do {
$content->can('getline')
}
}) { } |
|
|
2 |
1 |
elsif (not defined $content) { } |
|
189
|
1 |
18 |
if (my $last_modified = 'HTTP::Headers::Fast'->new(@$headers)->header('Last-Modified')) |