| line |
true |
false |
branch |
|
26
|
1 |
17 |
if (@_ == 2) |
|
44
|
31 |
5 |
if (not exists $item->{$k} or $spec{$k} ne $item->{$k}) |
|
51
|
2 |
6 |
unless wantarray |
|
58
|
1 |
1 |
if wantarray |
|
65
|
5 |
1 |
if @$removed |
|
178
|
16 |
1 |
if (@_ == 1) |
|
179
|
7 |
9 |
if ($_[0]->can("request")) |
|
181
|
1 |
6 |
unless defined $_[0] |
|
183
|
9 |
7 |
if $_[0] and $_[0]->can("uri_canonical") |
|
186
|
8 |
9 |
unless ref $uri |
|
195
|
4 |
118 |
if $mkey =~ s/__(.*)/__/ |
|
196
|
64 |
58 |
if (my $m = $MATCH{$mkey}) |
|
199
|
4 |
60 |
defined $k ? : |
|
204
|
59 |
5 |
unless ref $v eq "ARRAY" |
|
208
|
31 |
38 |
if $c |
|
210
|
33 |
31 |
unless $c |
|
220
|
16 |
1 |
if wantarray |