| line |
true |
false |
branch |
|
35
|
244 |
6 |
if not $parent or ref $parent ne "HASH"
|
|
57
|
0 |
15 |
@_ == 1 ? :
|
|
59
|
5 |
10 |
unless exists $self->names->{$name}
|
|
92
|
9 |
13 |
if $self->fatal
|
|
110
|
186 |
77 |
if (not ref $val or ref $val eq "CODE")
|
|
115
|
1 |
262 |
if (ref $val ne "HASH")
|
|
120
|
23 |
239 |
if (ref $key eq "ARRAY")
|
|
121
|
0 |
23 |
if (grep({defined $_;} @$key) != 2)
|
|
126
|
1 |
22 |
unless (grep {$method eq $_;} "GET", "POST", "PUT", "DELETE")
|
|
135
|
2 |
260 |
if (ref $key and ref $key ne "Regexp")
|
|
151
|
18 |
242 |
if (not defined $val->{'dest'} or $error)
|
|
157
|
0 |
7 |
if ($tree and ref $tree ne 'ARRAY' || @$tree % 2 != 0)
|
|
163
|
1 |
5 |
if ($val->{'psgi'} and $val->{'bridge'})
|
|
169
|
5 |
236 |
if $val->{'psgi'}
|
|
172
|
19 |
222 |
if (defined $parent->{'pattern'})
|
|
173
|
13 |
1 |
if ($val->{'name'} and $parent->{'name'})
|
|
184
|
26 |
215 |
if (my $name = $val->{'name'})
|
|
185
|
0 |
26 |
if (exists $self->names->{$name})
|
|
207
|
4 |
256 |
if (not defined $to) { }
|
|
|
4 |
371 |
elsif (not $to or $ref and $ref ne 'CODE') { }
|
|
214
|
119 |
133 |
unless $ref
|
|
226
|
119 |
133 |
if (not $ref and $to) { }
|
|
|
133 |
0 |
elsif ($ref) { }
|
|
229
|
103 |
16 |
if (my $class = Kelp::Util::extract_class($to)) { }
|
|
|
10 |
6 |
elsif (exists &$to) { }
|
|
235
|
2 |
99 |
unless $method_code
|
|
238
|
31 |
68 |
$self->rebless && $class->isa($self->base) ? :
|
|
250
|
0 |
133 |
unless $ref eq "CODE"
|
|
290
|
234 |
68 |
if (not defined $routes) { }
|
|
320
|
0 |
266 |
unless $app
|
|
321
|
0 |
266 |
unless $route
|
|
324
|
0 |
266 |
unless $dest
|