| line |
!l |
l&&!r |
l&&r |
condition |
|
153
|
80 |
2 |
1 |
defined $self->{'deny_paths'} and __match_paths($path, $self->{'deny_paths'})
|
|
159
|
76 |
3 |
3 |
defined $self->{'allow_schemes'} and not $sch ~~ $self->{'allow_schemes'}
|
|
163
|
77 |
1 |
1 |
defined $self->{'deny_schemes'} and $sch ~~ $self->{'deny_schemes'}
|
|
183
|
8 |
70 |
0 |
$perl_package and not $perl_package =~ /$re_perl_package/
|
|
336
|
0 |
6 |
0 |
$type eq 'package' && $res->[0] == 405
|
|
|
36 |
0 |
6 |
$res and not $type eq 'package' && $res->[0] == 405
|
|
342
|
27 |
3 |
6 |
not $meta and $type eq 'package'
|
|
363
|
14 |
1 |
18 |
$type eq 'function' and $self->{'normalize_metadata'}
|
|
430
|
11 |
0 |
1 |
$meta->{'x.perinci.sub.wrapper.logs'} and &first(sub {
$_->{'validate_args'};
}
, @{$$meta{'x.perinci.sub.wrapper.logs'};})
|
|
586
|
152 |
53 |
306 |
defined $self->{'allow_paths'} and not __match_paths2($path, $self->{'allow_paths'})
|
|
590
|
157 |
0 |
48 |
defined $self->{'deny_paths'} and __match_paths2($path, $self->{'deny_paths'})
|
|
600
|
10 |
0 |
0 |
$f_type and $f_type ne 'package'
|
|
620
|
9 |
0 |
1 |
$res and $res->[0] != 405
|
|
632
|
95 |
0 |
0 |
$f_type and $f_type ne $t
|
|
687
|
17 |
0 |
2 |
exists $req->{'argv'} and $self->{'accept_argv'}
|
|
736
|
4 |
0 |
3 |
$req->{'-meta'}{'result'} and $req->{'-meta'}{'result'}{'schema'}
|
|
|
0 |
3 |
0 |
$req->{'-meta'}{'result'} and $req->{'-meta'}{'result'}{'schema'} and $req->{'-meta'}{'result'}{'schema'}[0] eq 'buf'
|
| line |
l |
!l |
condition |
|
62
|
0 |
36 |
$self->{'cache_size'} //= 100
|
|
64
|
4 |
32 |
$self->{'wrap'} //= 1
|
|
66
|
0 |
36 |
$self->{'load'} //= 1
|
|
67
|
1 |
35 |
$self->{'normalize_metadata'} //= 1
|
|
74
|
0 |
36 |
$ENV{'PERINCI_ACCESS_SCHEMELESS_DEBUG'} // 0
|
|
75
|
0 |
36 |
$self->{'accept_argv'} //= 1
|
|
158
|
5 |
77 |
$req->{'-uri_scheme'} // ''
|
|
340
|
24 |
12 |
$leaf or ':package'
|
|
370
|
10 |
8 |
$meta->{'args'} //= {}
|
|
419
|
13 |
0 |
$req->{'-uri_leaf'} or ':package'
|
|
481
|
20 |
65 |
$extra // {}
|
|
503
|
0 |
0 |
$res->[3] //= {}
|
|
580
|
0 |
10 |
$req->{'type'} || ''
|
|
696
|
3 |
14 |
$req->{'args'} // {}
|
|
755
|
3 |
1 |
$req->{'word'} // ''
|
|
761
|
3 |
1 |
Perinci::Sub::Complete::complete_arg_val('meta', $req->{'-meta'}, 'word', $word, 'arg', $arg, 'ci', $ci) // []
|
|
777
|
0 |
0 |
$req->{'word'} // ''
|
|
784
|
0 |
0 |
Perinci::Sub::Complete::complete_arg_elem('meta', $req->{'-meta'}, 'word', $word, 'arg', $arg, 'ci', $ci, 'index', $index) // []
|
|
856
|
0 |
0 |
$self->{'custom_tx_manager'} // 'Perinci::Tx::Manager'
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
74
|
0 |
0 |
36 |
$self->{'debug'} //= $ENV{'PERINCI_ACCESS_SCHEMELESS_DEBUG'} // 0
|
|
103
|
4 |
1 |
5 |
$_ eq $pathslash or index($pathslash, $_) == 0
|
|
106
|
2 |
4 |
6 |
$p eq $path or index($pathslash, $p) == 0
|
|
127
|
4 |
4 |
2 |
$_ eq $pathslash or index($_, $pathslash) == 0
|
|
|
8 |
1 |
1 |
$_ eq $pathslash or index($_, $pathslash) == 0 or index($pathslash, $_) == 0
|
|
131
|
5 |
9 |
361 |
$p eq $path or index($p, $pathslash) == 0
|
|
|
14 |
53 |
308 |
$p eq $path or index($p, $pathslash) == 0 or index($pathslash, $p) == 0
|
|
430
|
1 |
4 |
8 |
not $self->{'wrap'} or $meta->{'x.perinci.sub.wrapper.logs'} and &first(sub {
$_->{'validate_args'};
}
, @{$$meta{'x.perinci.sub.wrapper.logs'};})
|
|
496
|
42 |
34 |
2 |
$am->{'applies_to'}[0] eq '*' or $req->{'-type'} ~~ \@{$$am{'applies_to'};}
|