| line |
true |
false |
branch |
|
35
|
92 |
4 |
if ($_ eq ':' or $_ eq '?')
|
|
38
|
4 |
92 |
if ($_ eq '*')
|
|
43
|
9 |
87 |
if $char eq '/' and $switch eq '?'
|
|
44
|
13 |
83 |
if $switch eq '?'
|
|
51
|
4 |
210 |
if ref $self->pattern eq 'Regexp'
|
|
63
|
208 |
2 |
unless $pattern =~ m[/$]
|
|
64
|
199 |
11 |
unless $self->bridge
|
|
72
|
12 |
53 |
if ($switch ne '?' and not $rep)
|
|
76
|
2 |
51 |
if ($check and not $args{$token} =~ /$check/)
|
|
86
|
0 |
37 |
if (ref $pattern eq 'Regexp')
|
|
93
|
13 |
24 |
if ($pattern =~ /{([!?])(\w+)}/)
|
|
94
|
2 |
11 |
$1 eq '!' ? :
|
|
104
|
74 |
1132 |
if $self->method and $self->method ne ($method // '')
|
|
105
|
850 |
282 |
unless my(@matched) = $path =~ $self->regex
|
|
107
|
158 |
124 |
unless $#+
|
|
112
|
2 |
2 |
unless exists $named{$_}
|
|
118
|
116 |
166 |
if (my(@tokens) = @{$self->{'_tokens'};}) { }
|
|
122
|
1 |
12 |
$_ eq '' ? :
|