| line |
!l |
l&&!r |
l&&r |
condition |
|
151
|
80 |
2 |
1 |
defined $self->{'deny_paths'} and __match_paths($path, $self->{'deny_paths'})
|
|
157
|
76 |
3 |
3 |
defined $self->{'allow_schemes'} and not $sch ~~ $self->{'allow_schemes'}
|
|
161
|
77 |
1 |
1 |
defined $self->{'deny_schemes'} and $sch ~~ $self->{'deny_schemes'}
|
|
181
|
8 |
70 |
0 |
$perl_package and not $perl_package =~ /$re_perl_package/
|
|
330
|
0 |
6 |
0 |
$type eq 'package' && $res->[0] == 405
|
|
|
36 |
0 |
6 |
$res and not $type eq 'package' && $res->[0] == 405
|
|
336
|
27 |
3 |
6 |
not $meta and $type eq 'package'
|
|
357
|
14 |
1 |
18 |
$type eq 'function' and $self->{'normalize_metadata'}
|
|
423
|
11 |
0 |
1 |
$meta->{'x.perinci.sub.wrapper.logs'} and &first(sub {
$_->{'validate_args'};
}
, @{$$meta{'x.perinci.sub.wrapper.logs'};})
|
|
579
|
152 |
53 |
296 |
defined $self->{'allow_paths'} and not __match_paths2($path, $self->{'allow_paths'})
|
|
583
|
157 |
0 |
48 |
defined $self->{'deny_paths'} and __match_paths2($path, $self->{'deny_paths'})
|
|
593
|
10 |
0 |
0 |
$f_type and $f_type ne 'package'
|
|
613
|
9 |
0 |
1 |
$res and $res->[0] != 405
|
|
625
|
95 |
0 |
0 |
$f_type and $f_type ne $t
|
|
680
|
17 |
0 |
2 |
exists $req->{'argv'} and $self->{'accept_argv'}
|
|
729
|
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 |
|
60
|
0 |
36 |
$self->{'cache_size'} //= 100
|
|
62
|
4 |
32 |
$self->{'wrap'} //= 1
|
|
64
|
0 |
36 |
$self->{'load'} //= 1
|
|
65
|
1 |
35 |
$self->{'normalize_metadata'} //= 1
|
|
72
|
0 |
36 |
$ENV{'PERINCI_ACCESS_SCHEMELESS_DEBUG'} // 0
|
|
73
|
0 |
36 |
$self->{'accept_argv'} //= 1
|
|
156
|
5 |
77 |
$req->{'-uri_scheme'} // ''
|
|
334
|
24 |
12 |
$leaf or ':package'
|
|
363
|
10 |
8 |
$meta->{'args'} //= {}
|
|
412
|
13 |
0 |
$req->{'-uri_leaf'} or ':package'
|
|
474
|
20 |
65 |
$extra // {}
|
|
496
|
0 |
0 |
$res->[3] //= {}
|
|
573
|
0 |
10 |
$req->{'type'} || ''
|
|
689
|
3 |
14 |
$req->{'args'} // {}
|
|
748
|
3 |
1 |
$req->{'word'} // ''
|
|
754
|
3 |
1 |
Perinci::Sub::Complete::complete_arg_val('meta', $req->{'-meta'}, 'word', $word, 'arg', $arg, 'ci', $ci) // []
|
|
770
|
0 |
0 |
$req->{'word'} // ''
|
|
777
|
0 |
0 |
Perinci::Sub::Complete::complete_arg_elem('meta', $req->{'-meta'}, 'word', $word, 'arg', $arg, 'ci', $ci, 'index', $index) // []
|
|
846
|
0 |
0 |
$self->{'custom_tx_manager'} // 'Perinci::Tx::Manager'
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
72
|
0 |
0 |
36 |
$self->{'debug'} //= $ENV{'PERINCI_ACCESS_SCHEMELESS_DEBUG'} // 0
|
|
101
|
4 |
1 |
5 |
$_ eq $pathslash or index($pathslash, $_) == 0
|
|
104
|
2 |
4 |
6 |
$p eq $path or index($pathslash, $p) == 0
|
|
125
|
4 |
4 |
2 |
$_ eq $pathslash or index($_, $pathslash) == 0
|
|
|
8 |
1 |
1 |
$_ eq $pathslash or index($_, $pathslash) == 0 or index($pathslash, $_) == 0
|
|
129
|
5 |
9 |
351 |
$p eq $path or index($p, $pathslash) == 0
|
|
|
14 |
53 |
298 |
$p eq $path or index($p, $pathslash) == 0 or index($pathslash, $p) == 0
|
|
423
|
1 |
4 |
8 |
not $self->{'wrap'} or $meta->{'x.perinci.sub.wrapper.logs'} and &first(sub {
$_->{'validate_args'};
}
, @{$$meta{'x.perinci.sub.wrapper.logs'};})
|
|
489
|
42 |
34 |
2 |
$am->{'applies_to'}[0] eq '*' or $req->{'-type'} ~~ \@{$$am{'applies_to'};}
|