| line |
true |
false |
branch |
|
18
|
159 |
15 |
!$path || $path eq '/' ? : |
|
25
|
692 |
17117 |
unless $self->{'regex'} |
|
27
|
15148 |
2661 |
unless my(@captures) = $$pathref =~ $self->regex |
|
29
|
2347 |
314 |
if $#+ == 0 |
|
32
|
2558 |
371 |
unless @captures |
|
34
|
284 |
87 |
if defined $capture |
|
40
|
34 |
1087 |
@_ > 1 ? : |
|
45
|
1033 |
1 |
@_ % 2 ? : |
|
47
|
101 |
933 |
if $pattern eq "/" |
|
65
|
381 |
406 |
if ($op eq 'text') { } |
|
|
216 |
190 |
elsif ($op eq 'slash') { } |
|
68
|
194 |
22 |
unless $optional |
|
75
|
154 |
36 |
if (not defined $default or $default ne $part) { } |
|
|
22 |
14 |
elsif ($optional) { } |
|
83
|
49 |
671 |
$endpoint && $format ? : |
|
100
|
553 |
225 |
if ($op eq 'text') { } |
|
|
119 |
106 |
elsif ($op eq 'slash') { } |
|
104
|
26 |
93 |
$optional ? : |
|
111
|
7 |
99 |
if ($value->[1]) { } |
|
112
|
6 |
20 |
$type eq 'relaxed' ? : |
|
|
26 |
73 |
$type ? : |
|
115
|
14 |
92 |
if (my $c = $$constraints{$value->[0]}) |
|
118
|
27 |
79 |
exists $$defaults{$value->[0]} ? : |
|
125
|
530 |
162 |
if $block |
|
128
|
548 |
144 |
if $detect |
|
137
|
503 |
45 |
unless $format |
|
140
|
4 |
41 |
if $format eq 1 |
|
144
|
29 |
12 |
$has_default ? : |
|
149
|
15 |
47 |
if ref $req ne "ARRAY" |
|
168
|
30 |
0 |
if ++$spec |
|
|
30 |
10253 |
if ($char eq $quote_start) { } |
|
|
30 |
10223 |
elsif ($char eq $quote_end) { } |
|
|
83 |
10140 |
elsif (not $more and $char eq $start) { } |
|
|
46 |
10094 |
elsif (not $more and $char eq $relaxed || $char eq $wildcard) { } |
|
|
1323 |
8771 |
elsif ($char eq '/') { } |
|
|
786 |
7985 |
elsif ($spec and ++$more) { } |
|
|
6799 |
1186 |
elsif ($tree[-1][0] eq 'text') { } |
|
|
875 |
311 |
elsif (not $tree[-2] and $tree[-1][0] eq 'slash') { } |
|
|
281 |
30 |
elsif ($tree[-2] and $tree[-2][0] eq 'text' and $tree[-1][0] eq 'slash') { } |
|
172
|
78 |
5 |
unless $spec++ |
|
176
|
39 |
7 |
unless $spec++ |
|
177
|
6 |
40 |
$char eq $relaxed ? : |
|
192
|
281 |
0 |
if pop @tree |
|
198
|
1072 |
147 |
unless $token->[0] eq "placeholder" |
|
199
|
7 |
140 |
$token->[1] =~ /^(.+)\Q$type_start\E(.+)$/u ? : |