| line |
true |
false |
branch |
|
28
|
0 |
20 |
unless $route =~ m[^/] |
|
44
|
0 |
20 |
unless defined $method |
|
45
|
0 |
20 |
unless defined $route |
|
46
|
0 |
20 |
unless ref $args eq 'ARRAY' |
|
48
|
0 |
20 |
unless @$args % 2 == 0 |
|
59
|
0 |
20 |
unless ref $spec eq 'HASH' and ref $spec->{'request'} and ref $spec->{'request'}{'query'} |
|
66
|
15 |
2 |
unless defined $valid_filters{$filter} |
|
71
|
18 |
2 |
unless scalar keys %$use_filters |
|
83
|
0 |
30 |
unless ref $rule and ref $rule->{'perl_api'} |
|
92
|
0 |
30 |
unless my $method_name = $perl_api->{'method'} |
|
93
|
0 |
30 |
unless my $type = $perl_api->{'type'} |
|
94
|
9 |
21 |
if ($type eq 'getfromid') { } |
|
|
21 |
0 |
elsif ($type eq 'listable') { } |
|
95
|
0 |
9 |
unless my $token = $perl_api->{'uid'} |
|
107
|
0 |
21 |
unless my $listable_key = $perl_api->{'listable_key'} |