line |
!l |
l&&!r |
l&&r |
condition |
239
|
79 |
0 |
4 |
$arg_spec->{'stream'} and $sch->[0] eq 'array'
|
352
|
0 |
0 |
79 |
$arg_schema and $cd->{'gen_args'}{'validate_args'}
|
372
|
22 |
10 |
50 |
$mod_rec->{'use_statement'} and $_->{'use_statement'}
|
|
10 |
0 |
50 |
$mod_rec->{'use_statement'} and $_->{'use_statement'} and $_->{'use_statement'} eq $mod_rec->{'use_statement'}
|
380
|
12 |
0 |
34 |
$mod_is_core and not $cd->{'module_srcs'}{$mod_rec->{'name'}}
|
|
34 |
0 |
0 |
$cd->{'gen_args'}{'allow_prereq'} && grep({$_ eq $mod_rec->{'name'};} @{$$cd{'gen_args'}{'allow_prereq'};})
|
|
12 |
0 |
34 |
$mod_is_core and not $cd->{'module_srcs'}{$mod_rec->{'name'}} and not $cd->{'gen_args'}{'allow_prereq'} && grep({$_ eq $mod_rec->{'name'};} @{$$cd{'gen_args'}{'allow_prereq'};})
|
623
|
25 |
0 |
0 |
$specmeta->{'is_alias'} and $specmeta->{'is_code'}
|
679
|
450 |
312 |
138 |
$stage == 1 and not $co
|
690
|
137 |
1 |
0 |
$specmeta->{'is_alias'} and $specmeta->{'is_code'}
|
1403
|
0 |
0 |
48 |
$args{'pack_deps'} and $args{'use_cleanser'}
|
line |
l |
!l |
condition |
67
|
0 |
9 |
$meta //= {'v', 1.1}
|
195
|
38 |
15 |
$meta->{'args'} // {}
|
201
|
91 |
4 |
$args_prop->{$b}{'pos'} // 9999
|
|
92 |
3 |
$args_prop->{$a}{'pos'} // 9999
|
228
|
0 |
78 |
$asa->{'cmdline_src'} // ''
|
229
|
0 |
78 |
$asb->{'cmdline_src'} // ''
|
234
|
75 |
3 |
$asa->{'pos'} // 9999
|
|
74 |
4 |
$asb->{'pos'} // 9999
|
238
|
83 |
0 |
$arg_spec->{'schema'} // ''
|
468
|
48 |
0 |
${'Perinci::CmdLine::Inline::VERSION';} // 'dev'
|
632
|
25 |
0 |
$specmeta->{'parsed'}{'type'} // ''
|
701
|
123 |
15 |
$specmeta->{'parsed'}{'type'} // ''
|
1027
|
0 |
50 |
$args{'validate_args'} //= 1
|
1029
|
0 |
50 |
$args{'pack_deps'} //= 1
|
1030
|
50 |
0 |
$args{'read_config'} //= 1
|
1031
|
50 |
0 |
$args{'read_env'} //= 1
|
1032
|
0 |
50 |
$args{'use_cleanser'} //= 1
|
1140
|
46 |
4 |
$args{'include'} // []
|
1308
|
3 |
52 |
$meta->{'args_as'} // 'hash'
|
1370
|
10 |
43 |
$meta->{'result'}{'schema'} // ''
|
|
53 |
0 |
Data::Sah::Util::Type::get_type($meta->{'result'}{'schema'} // '') // ''
|
1371
|
10 |
43 |
$meta->{'result'}{'schema'} // ''
|
1469
|
48 |
0 |
$args{'pod'} // 1
|
1518
|
48 |
0 |
$cd->{'mods'}{$_}{'version'} // '(no version)'
|
1582
|
48 |
0 |
${'Perinci::CmdLine::Inline::VERSION';} // 'dev'
|
|
16 |
32 |
$args{'script_name'} // ''
|
line |
l |
!l&&r |
!l&&!r |
condition |
210
|
5 |
0 |
62 |
$arg_spec->{'slurpy'} // $arg_spec->{'greedy'}
|
1080
|
14 |
27 |
0 |
$script_name //= do {
local $_ = $sfn;
s/_/-/g;
$_
}
|
1088
|
50 |
0 |
0 |
$url or $scs
|
1091
|
0 |
0 |
0 |
$script_name //= do {
local $_ = $args{'sub_name'};
s/_/-/g;
$_
}
|
1098
|
43 |
7 |
0 |
$script_name //= do {
local $_ = $0;
s(.+[/\\])[];
$_
}
|
1117
|
3 |
47 |
0 |
$args{'config_filename'} //= "$cd->{'script_name'}.conf"
|
1118
|
1 |
49 |
0 |
$args{'env_name'} //= do {
my $env = uc "$cd->{'script_name'}_OPT";
$env =~ s/[^A-Z0-9]+/_/g;
$env = "_$env" if $env =~ /\A\d/;
$env
}
|
1216
|
0 |
50 |
0 |
$args{'shebang'} // $^X
|
1527
|
0 |
38 |
10 |
$args{'script_summary'} // $cd->{'metas'}{''}{'summary'}
|
1561
|
0 |
0 |
48 |
$cd->{'core_deps'}{$mod} //= $cd->{'sub_src_core_deps'}{$sub}{$mod}
|
1589
|
48 |
0 |
0 |
not defined $args{'output_file'} or $args{'output_file'} eq '-'
|