| 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
|
|
32
|
0 |
1 |
if (not $sch_ver or $sch_ver ne '2')
|
|
47
|
7 |
1 |
if (length $leaf) { }
|
|
51
|
6 |
1 |
if ($meta) { }
|
|
62
|
1 |
0 |
if ($meta) { }
|
|
81
|
0 |
13 |
if (defined $self->{'allow_paths'} and not Perinci::Access::Schemeless::__match_paths2($path, $self->{'allow_paths'}))
|
|
85
|
0 |
13 |
if (defined $self->{'deny_paths'} and Perinci::Access::Schemeless::__match_paths2($path, $self->{'deny_paths'}))
|
|
98
|
4 |
0 |
unless ($f_type and $f_type ne 'package')
|
|
99
|
4 |
0 |
if (length $pkg) { }
|
|
120
|
0 |
3 |
if $mem{$m}++
|
|
122
|
1 |
2 |
if ($detail) { }
|
|
138
|
0 |
13 |
unless &$filter_path($path)
|
|
139
|
0 |
13 |
$e =~ /^[%\@\$]/ ? :
|
|
140
|
0 |
13 |
if $f_type and $f_type ne $t
|
|
141
|
4 |
9 |
if ($detail) { }
|
|
157
|
0 |
0 |
unless $self->{'fallback_on_completion'}
|
|
159
|
0 |
0 |
unless my $arg = $req->{'arg'}
|
|
163
|
0 |
0 |
unless defined $c and ref $c ne 'CODE'
|
|
177
|
0 |
0 |
unless $self->{'fallback_on_completion'}
|
|
179
|
0 |
0 |
unless my $arg = $req->{'arg'}
|
|
182
|
0 |
0 |
unless defined $c and ref $c ne 'CODE'
|