| line |
true |
false |
branch |
|
46
|
0 |
1448 |
unless defined $self->pattern |
|
50
|
12 |
1436 |
if ref $self->pattern eq "Regexp" |
|
55
|
1371 |
76 |
unless $self->prefix |
|
56
|
83 |
1364 |
if $self->prefix |
|
58
|
3 |
1444 |
if $self->prev |
|
92
|
1079 |
652 |
unless @values |
|
96
|
701 |
9 |
defined $_ ? : |
|
102
|
2 |
650 |
if (my(%captures) = do {
no warnings;
%+
}) |
|
106
|
2 |
0 |
if keys %captures |
|
125
|
249 |
401 |
if (@token_or_splat) |
|
127
|
0 |
249 |
unless $self->{'_params'} |
|
128
|
232 |
17 |
if @tokens |
|
134
|
274 |
27 |
if ($token_or_splat[$i] eq "token") |
|
140
|
9 |
18 |
if ($token_or_splat[$i] eq "megasplat") |
|
145
|
19 |
230 |
@splat ? : |
|
151
|
17 |
384 |
if ($self->{'_should_capture'}) |
|
160
|
26 |
511 |
keys %{$self->options;} ? : |
|
165
|
5 |
1443 |
unless defined $self->options |
|
170
|
1 |
11 |
unless grep {/^$opt$/;} @{$_supported_options[0];} or grep {/^$opt$/;} keys %_options_aliases |
|
180
|
26 |
0 |
if exists $_options_aliases{$option} |
|
181
|
14 |
12 |
unless $request->$option and $request->$option =~ /$value/ |
|
194
|
9 |
111 |
unless $continuation->isa("Dancer::Continuation::Route") |
|
198
|
93 |
18 |
unless defined $content |
|
207
|
15 |
510 |
if ($response and $response->is_forwarded) |
|
217
|
15 |
0 |
ref $marshalled->[2] eq 'ARRAY' ? : |
|
221
|
78 |
432 |
if ($response and $response->has_passed) |
|
226
|
77 |
62 |
if $self->match($request) |
|
235
|
416 |
16 |
defined $content ? : |
|
237
|
36 |
396 |
defined $response && defined $response->content_type ? : |
|
242
|
432 |
0 |
defined $response ? : |
|
245
|
432 |
0 |
if defined $response |
|
250
|
396 |
36 |
unless grep {/Content-Type/;} @$headers |
|
252
|
19 |
413 |
if ref $content eq "Dancer::Response" |
|
263
|
9 |
553 |
if (Dancer::Config::setting('warnings')) { } |
|
269
|
3 |
0 |
if ($warning) |
|
283
|
2 |
81 |
if ($self->is_regexp) { } |
|
|
8 |
73 |
elsif ($self->pattern eq '/') { } |
|
285
|
2 |
0 |
unless ($regexp =~ /^$prefix/) |
|
321
|
20 |
1427 |
if ($self->is_regexp) { } |
|
339
|
185 |
1242 |
if ($pattern =~ /:/) |
|
341
|
185 |
0 |
if (@params) |
|
350
|
12 |
1415 |
if $pattern =~ s/\*\*/(?#megasplat)([^\n]+)/g |
|
353
|
88 |
1339 |
if $pattern =~ s[\*][(?#splat)([^/]+)]g |
|
356
|
6 |
1421 |
if $pattern =~ /\./ |