| line |
true |
false |
branch |
|
20
|
4 |
2 |
ref $data[0] || $data[0] =~ m[\A/]msx ? : |
|
23
|
5 |
8 |
if (ref $match) { } |
|
24
|
0 |
5 |
if ref $match ne 'Regexp' |
|
26
|
0 |
8 |
unless $match =~ m[\A/]msx |
|
28
|
0 |
13 |
if $i == $#data |
|
30
|
0 |
13 |
if ref $code[0] ne 'CODE' |
|
53
|
45 |
18 |
if (not ref $match) { } |
|
54
|
37 |
8 |
if $path ne $match |
|
56
|
13 |
5 |
unless $path =~ /$match/msx |
|
58
|
9 |
0 |
if (defined $-[$i]) { } |
|
79
|
4 |
0 |
if (defined $$values[$i + 1]) { } |
|
80
|
0 |
4 |
if (ref $r->{'GET'}{$names[$i]}) { } |
|
100
|
0 |
4 |
if ref $view ne 'CODE' |
|
101
|
0 |
4 |
if exists $VIEW2PATH{$view} |
|
102
|
0 |
4 |
if $i == $#data |
|
104
|
0 |
4 |
if ref $path and ref $path ne 'ARRAY' |
|
105
|
0 |
4 |
if ref $path and @{$path;} % 2 |
|
114
|
4 |
9 |
unless (defined $path) |
|
116
|
3 |
1 |
if (@path == 1 and not ref $path[0]{'match'}) |
|
120
|
1 |
12 |
unless defined $path |
|
121
|
7 |
5 |
if (ref $path) |
|
127
|
5 |
5 |
unless my $values = &$try(\%p) |
|
128
|
0 |
5 |
if (@{$values;} != $tmpl =~ tr/?//) |
|
140
|
2 |
5 |
unless defined $path |
|
144
|
0 |
2 |
ref $p{$n} ? : |
|
149
|
2 |
8 |
if (@params) |
|
161
|
5 |
7 |
unless defined $p->{$name} |