| line |
true |
false |
branch |
|
9
|
0 |
0 |
if @_ < 1 |
|
|
0 |
0 |
if @_ > 1 |
|
12
|
0 |
0 |
unless $pattern =~ m[\G ( / [^`*]*+ (?: `[`*] [^`*]*+ )*+ ) ]cgux |
|
17
|
0 |
0 |
if ($pattern =~ /\G \z/ux) |
|
20
|
0 |
0 |
if ($pattern =~ /\G `/ux) |
|
23
|
0 |
0 |
if ($pattern =~ m[\G (?<= / ) \*\* \z]cgux) |
|
27
|
0 |
0 |
if ($pattern =~ m[\G (?<= / ) \* ]cgux) { } |
|
28
|
0 |
0 |
if ($pattern =~ /\G \z/ux) |
|
32
|
0 |
0 |
unless $pattern =~ m[\G / ]ux |
|
43
|
0 |
0 |
if @_ < 1 |
|
|
0 |
0 |
if @_ > 1 and (@_ - 1) % 2 |
|
50
|
0 |
0 |
defined $_ ? : |
|
62
|
0 |
0 |
if exists $resource->{$method} |
|
91
|
0 |
0 |
if @_ > 0 |
|
97
|
0 |
0 |
defined $chunks[-1] ? : |
|
99
|
0 |
0 |
if $rest |
|
104
|
0 |
0 |
unless $Klonk::Routes::b->[1] cmp $Klonk::Routes::a->[1] |
|
107
|
0 |
0 |
if $regex eq "" |
|
133
|
0 |
0 |
if @_ < 1 |
|
|
0 |
0 |
if @_ > 1 |
|
135
|
0 |
0 |
if ($ret->[0] =~ /\A\d{3}\z/a) |
|
145
|
0 |
0 |
if (my $type = $type_map->{$itype}) |
|
146
|
0 |
0 |
if ($encode_p) |
|
147
|
0 |
0 |
unless ref $body |
|
150
|
0 |
0 |
ref $body ? : |
|
163
|
0 |
0 |
ref $v eq 'ARRAY' ? : |
|
165
|
0 |
0 |
defined $length ? : |
|
|
0 |
0 |
ref $body ? : |
|
178
|
0 |
0 |
if @_ < 1 |
|
|
0 |
0 |
if @_ > 1 |
|
179
|
0 |
0 |
if $booted |
|
183
|
0 |
0 |
if @_ < 1 |
|
|
0 |
0 |
if @_ > 1 |
|
190
|
0 |
0 |
if (my(@captures) = $req_path =~ /$dispatch_info->[0]/u) |
|
195
|
0 |
0 |
if (my $info = $resource->{$req_method}) |
|
200
|
0 |
0 |
if ($req_method eq "HEAD" and my $info = $resource->{'GET'}) |
|
206
|
0 |
0 |
if ($req_method eq "OPTIONS") |
|
218
|
0 |
0 |
if (not $req_path =~ m[/\z]u and ("$req_path/") =~ /$dispatch_info->[0]/u) |
|
238
|
0 |
0 |
if @_ > 0 |