| line |
true |
false |
branch |
|
21
|
19 |
20 |
unless ($rules or $modify_cb) |
|
27
|
32 |
7 |
if $rules |
|
30
|
19 |
20 |
if ($legacy) { } |
|
31
|
6 |
13 |
if ('CODE' eq ref $res) { } |
|
|
4 |
9 |
elsif ('ARRAY' eq ref $res) { } |
|
|
0 |
9 |
elsif (ref $res) { } |
|
32
|
1 |
3 |
unless @$res |
|
36
|
5 |
4 |
defined $res && $res =~ /\A[1-5][0-9][0-9]\z/ ? : |
|
42
|
0 |
20 |
if ('CODE' eq ref $res) { } |
|
|
10 |
10 |
elsif ('ARRAY' eq ref $res) { } |
|
|
0 |
10 |
elsif (ref $res) { } |
|
43
|
1 |
9 |
unless @$res |
|
48
|
18 |
21 |
if ($res) { } |
|
51
|
11 |
7 |
if ($res->[0] =~ /\A3(?:0[0-35-9]|[1-9][0-9])\z/) |
|
53
|
9 |
2 |
unless ($dest) |
|
58
|
9 |
2 |
unless (Plack::Util::content_length($res->[2]) or Plack::Util::header_exists($res->[1], "Content-Length")) |
|
73
|
26 |
13 |
unless $modify_cb |
|
77
|
2 |
0 |
@_ ? : |
|
79
|
2 |
11 |
'CODE' eq ref $result ? : |