| line |
true |
false |
branch |
|
29
|
161 |
40 |
if (my(@this_got) = &$match($my_env)) { } |
|
46
|
9 |
21 |
if (my(@ret) = &$try(@_)) |
|
57
|
1 |
2 |
if (my(@discard) = &$match($_[0])) { } |
|
69
|
44 |
46 |
$env->{'REQUEST_METHOD'} eq $method ? : |
|
77
|
129 |
53 |
if (my(@cap) = $env->{'PATH_INFO'} =~ /$re/) |
|
79
|
4 |
125 |
if $names |
|
90
|
25 |
5 |
if (my(@cap) = $env->{'PATH_INFO'} =~ /$re/) |
|
95
|
0 |
25 |
if $names |
|
105
|
2 |
3 |
$wild ? : |
|
109
|
5 |
5 |
if ($_[0]{'PATH_INFO'} =~ /$re/) { } |
|
110
|
2 |
3 |
$wild ? : |
|
149
|
22 |
103 |
unless $spec->{'required'} |
|
150
|
37 |
78 |
unless exists $raw->{$name} |
|
155
|
12 |
28 |
$_->{'multi'} ? : |
|
156
|
51 |
37 |
unless $spec->{'positional'} |
|
160
|
57 |
31 |
if ($named or $star) |
|
162
|
19 |
38 |
if ($star) |
|
165
|
9 |
10 |
$star->{'multi'} ? : |
|
169
|
13 |
44 |
unless $named |
|
170
|
4 |
31 |
unless $n->{'multi'} or exists $$raw{$n->{'name'}} |
|
172
|
20 |
31 |
$n->{'multi'} ? : |