| line |
true |
false |
branch |
|
56
|
5 |
278 |
if ref $pattern
|
|
71
|
97 |
22 |
unless __optional($switch)
|
|
72
|
17 |
5 |
if $char eq "/"
|
|
77
|
8 |
111 |
if (not defined $token) { }
|
|
80
|
0 |
8 |
unless __matchall($switch)
|
|
89
|
100 |
11 |
if (__noslash($switch)) { }
|
|
|
11 |
0 |
elsif (__matchall($switch)) { }
|
|
107
|
5 |
278 |
if ref $self->pattern eq "Regexp"
|
|
140
|
119 |
396 |
if ($part eq '{}') { }
|
|
149
|
20 |
258 |
if ($self->bridge) { }
|
|
158
|
17 |
3 |
unless $trailing_slash
|
|
163
|
256 |
2 |
unless $trailing_slash
|
|
174
|
9 |
85 |
unless (defined $token)
|
|
175
|
0 |
9 |
unless __matchall($switch)
|
|
180
|
16 |
51 |
unless (__optional($switch) or length $rep)
|
|
185
|
2 |
76 |
if ($check and not $args{$token} =~ /$check/)
|
|
197
|
1 |
53 |
if ref $pattern eq "Regexp"
|
|
208
|
17 |
36 |
if ($pattern =~ /{([!?])(\w+|[*>])}/)
|
|
209
|
2 |
15 |
$1 eq '!' ? :
|
|
222
|
74 |
1285 |
if $self->method and $self->method ne ($method // "")
|
|
223
|
892 |
393 |
unless my(@matched) = $path =~ $self->regex
|
|
229
|
142 |
251 |
if (@{$self->{'_tokens'};}) { }
|
|
|
17 |
234 |
elsif ($has_matches) { }
|
|
236
|
21 |
1 |
length($_ // '') ? :
|