| 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/?//)
|
|
137
|
2 |
5 |
unless defined $path
|
|
141
|
0 |
2 |
ref $p{$n} ? :
|
|
146
|
2 |
8 |
if (@params)
|
|
158
|
5 |
7 |
unless defined $$p{$name}
|