| line |
true |
false |
branch |
|
22
|
0 |
1 |
unless $dbh
|
|
28
|
7 |
0 |
unless $_ eq 'meta' or $_ eq '"meta"'
|
|
|
0 |
1 |
unless grep {$_ eq '"main"."meta"' unless $_ eq 'meta' or $_ eq '"meta"';} @tt
|
|
33
|
0 |
1 |
unless ($sch_ver and $sch_ver =~ /^(2|3|4|5)$/)
|
|
48
|
7 |
1 |
if (length $leaf) { }
|
|
52
|
6 |
1 |
if ($meta) { }
|
|
63
|
1 |
0 |
if ($meta) { }
|
|
82
|
0 |
13 |
if (defined $self->{'allow_paths'} and not Perinci::Access::Schemeless::__match_paths2($path, $self->{'allow_paths'}))
|
|
86
|
0 |
13 |
if (defined $self->{'deny_paths'} and Perinci::Access::Schemeless::__match_paths2($path, $self->{'deny_paths'}))
|
|
99
|
4 |
0 |
unless ($f_type and $f_type ne 'package')
|
|
100
|
4 |
0 |
if (length $pkg) { }
|
|
121
|
0 |
3 |
if $mem{$m}++
|
|
123
|
1 |
2 |
if ($detail) { }
|
|
139
|
0 |
13 |
unless &$filter_path($path)
|
|
140
|
0 |
13 |
$e =~ /^[%\@\$]/ ? :
|
|
141
|
0 |
13 |
if $f_type and $f_type ne $t
|
|
142
|
4 |
9 |
if ($detail) { }
|
|
158
|
0 |
0 |
unless $self->{'fallback_on_completion'}
|
|
160
|
0 |
0 |
unless my $arg = $req->{'arg'}
|
|
164
|
0 |
0 |
unless defined $c and ref $c ne 'CODE'
|
|
178
|
0 |
0 |
unless $self->{'fallback_on_completion'}
|
|
180
|
0 |
0 |
unless my $arg = $req->{'arg'}
|
|
183
|
0 |
0 |
unless defined $c and ref $c ne 'CODE'
|