| line |
true |
false |
branch |
|
23
|
19 |
19 |
unless ($rules or $modify_cb) |
|
29
|
31 |
7 |
if $rules |
|
32
|
19 |
19 |
if ($legacy) { } |
|
33
|
6 |
13 |
if ('CODE' eq ref $res) { } |
|
|
4 |
9 |
elsif ('ARRAY' eq ref $res) { } |
|
|
0 |
9 |
elsif (ref $res) { } |
|
34
|
1 |
3 |
unless @$res |
|
38
|
5 |
4 |
defined $res && $res =~ /\A[1-5][0-9][0-9]\z/ ? : |
|
44
|
0 |
19 |
if ('CODE' eq ref $res) { } |
|
|
9 |
10 |
elsif ('ARRAY' eq ref $res) { } |
|
|
0 |
10 |
elsif (ref $res) { } |
|
45
|
1 |
8 |
unless @$res |
|
50
|
17 |
21 |
if ($res) { } |
|
53
|
11 |
6 |
if ($res->[0] =~ /\A3[0-9][0-9]\z/) |
|
55
|
9 |
2 |
unless ($dest) |
|
60
|
9 |
2 |
if (304 ne $res->[0] and not Plack::Util::content_length($res->[2]) || Plack::Util::header_exists($res->[1], 'Content-Length')) |
|
75
|
25 |
13 |
unless $modify_cb |
|
79
|
2 |
0 |
@_ ? : |
|
81
|
2 |
11 |
'CODE' eq ref $result ? : |