| line |
true |
false |
branch |
|
132
|
9 |
23 |
unless (_is_the_right_method($request_method, @methods)) |
|
136
|
12 |
11 |
unless (_is_the_right_path($request_path, $path)) |
|
146
|
1 |
10 |
unless my $methods = shift() |
|
149
|
1 |
9 |
ref $methods ? : |
|
151
|
1 |
9 |
unless my $path = shift() |
|
153
|
1 |
8 |
unless my $subref = shift() |
|
161
|
3 |
29 |
if ($method eq 'HEAD') |
|
165
|
22 |
10 |
unless lc $_ eq 'any' |
|
|
23 |
9 |
grep({/^\Q$method\E$/i unless lc $_ eq 'any';} @methods) ? : |
|
173
|
2 |
21 |
if (ref $expected_path) |
|
174
|
1 |
1 |
$got_path =~ /$expected_path/ ? : |
|
176
|
3 |
18 |
if ($expected_path =~ /\:/) |
|
178
|
1 |
2 |
$got_path =~ /^$expected_path$/ ? : |
|
180
|
9 |
9 |
$got_path eq $expected_path ? : |