| line |
!l |
l&&!r |
l&&r |
condition |
|
241
|
293 |
0 |
47 |
@sources == 1 and ref $sources[0] eq "REF" |
|
|
293 |
0 |
47 |
@sources == 1 and ref $sources[0] eq "REF" and ref ${$sources[0];} eq "HASH" |
|
285
|
0 |
223 |
39 |
defined $name_exact and $name eq $name_exact |
|
|
3 |
219 |
1 |
not $_->{'transmit_exact'} and $name =~ /$name_rx/u |
|
|
47 |
0 |
262 |
$_->{'transmit'} // 0 and not $got{$name}++ |
|
297
|
168 |
0 |
228 |
@args && ref $args[0] |
|
344
|
906 |
3 |
2 |
@opts && ref $opts[0] |
|
475
|
0 |
97 |
120 |
$strict and @args |
|
|
97 |
120 |
0 |
$strict and @args and $args[0] =~ /\A - . /msux |
|
505
|
0 |
0 |
1275 |
defined $o->{'getopt'} and $o->{'getopt'} =~ /\A(\w[-\w]*)/msux |
|
507
|
0 |
0 |
0 |
defined $o->{'environment'} and $o->{'environment'} ne 1 |
|
561
|
197 |
162 |
55 |
defined $en && exists $ENV{$en} |
|
824
|
0 |
0 |
0 |
-e $path and not -d $path |
|
|
0 |
0 |
0 |
-e $path and not -d $path and substr($_, 0, length $bprefix) eq $bprefix |
|
942
|
4 |
1 |
0 |
defined $fto and $fto =~ /\A(?: 0 | [1-9]\d* )\z/u |
|
1105
|
1 |
0 |
0 |
defined $desttype and $desttype eq "\@" |
|
1143
|
18 |
0 |
0 |
defined $min and $min > 1 |
|
1144
|
18 |
0 |
0 |
defined $max and length $max |
|
1146
|
16 |
0 |
2 |
defined $desttype and $desttype eq "\@" |
|
1155
|
1 |
0 |
0 |
defined $desttype and $desttype eq "\@" |
|
1201
|
0 |
9 |
49 |
$opt and not $opt->{'inherited'} |
|
1226
|
0 |
8 |
26 |
$mode eq "help" and defined(my $description = $target->description) |
|
1325
|
0 |
0 |
0 |
$name =~ /\A(?: help | commands | tree)\z/msux and $exclude_auto |
| line |
l |
!l |
condition |
|
89
|
13984 |
0 |
$$self{builtin::blessed($self)} //= {} |
|
108
|
182 |
0 |
$self->_rwn((caller 1)[3] =~ s/.*:://mrsux, @n) // [] |
|
150
|
91 |
0 |
($s->_rw(@r) // ($s->aliases)[0]) // "**no name**" |
|
271
|
269 |
18 |
$_->{'transmit'} // 0 |
|
285
|
309 |
0 |
$_->{'transmit'} // 0 |
|
297
|
37 |
359 |
$pkg_spec // {} |
|
359
|
694 |
217 |
$self->_rwn("config") // {} |
|
360
|
694 |
217 |
$latest->{'sequence'} //= [] |
|
361
|
694 |
217 |
$latest->{'all_eslices_at'} // {} |
|
362
|
694 |
217 |
$latest->{'command_eslices_at'} // {} |
|
374
|
30 |
878 |
$all_eslices_at{$priority} //= [] |
|
375
|
30 |
878 |
$command_eslices_at{$priority} //= [] |
|
540
|
237 |
226 |
$env // "" |
|
545
|
111 |
0 |
$instance->environment_prefix // "" |
|
571
|
0 |
33 |
$key->[0] // "config" |
|
601
|
1 |
0 |
$latest->{'all_eslices_at'} //= {} |
|
604
|
1 |
0 |
$parent->config_hash(1)->{'all_eslices_at'} // {} |
|
606
|
3 |
0 |
$all_eslices_at->{$priority} //= [] |
|
618
|
273 |
0 |
$self->_rwn("config") // {} |
|
620
|
272 |
0 |
$$config{$self->config_hash_key} // {} |
|
640
|
0 |
0 |
$self->_rwn("config") // {} |
|
657
|
0 |
0 |
$latest->{'all_eslices_at'}{$priority} //= [] |
|
688
|
220 |
0 |
$slot->{'final_commit_stack'} //= [] |
|
728
|
0 |
0 |
$params_validate->{'config'} // undef |
|
732
|
0 |
0 |
$params_validate->{'args'} // undef |
|
888
|
1 |
908 |
$class // "" |
|
1017
|
67 |
2 |
$command->help // "(**missing help**)" |
|
1055
|
40 |
0 |
$binmode // "" |
|
1207
|
9 |
0 |
$target->parent // die("weird inheritance, uh?!?") |
|
1224
|
29 |
5 |
$target->help // "no concise help yet" |
|
1244
|
0 |
28 |
$options_help //= {} |
|
1249
|
0 |
28 |
$options_help->{'preamble'} // undef |
|
1258
|
7 |
42 |
$opt->{'help'} // "" |
|
1281
|
0 |
28 |
$options_help->{'postamble'} // undef |
|
1326
|
0 |
0 |
$command->help // "(**missing help**)" |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
20
|
0 |
0 |
0 |
ref $stuff[0] || @stuff % 2 |
|
150
|
69 |
22 |
0 |
$s->_rw(@r) // ($s->aliases)[0] |
|
165
|
0 |
0 |
0 |
$slot->{'root'} //= do {
my $retval = $self;
while (defined(my $parent = $retval->parent)) {
do {
$retval = $parent
};
} ;
$retval
} |
|
285
|
39 |
1 |
222 |
defined $name_exact and $name eq $name_exact or not $_->{'transmit_exact'} and $name =~ /$name_rx/u |
|
330
|
0 |
2418 |
664 |
$is_overridable{$dst_key} or not exists $retval{$dst_key} |
|
367
|
461 |
447 |
0 |
$meta->{'priority'} //= $last_priority + 10 |
|
845
|
104 |
304 |
194 |
$self->force_auto_children // @children |
|
1014
|
41 |
0 |
0 |
$target //= $self->target |
|
1046
|
0 |
40 |
0 |
$channel eq "-" or lc $channel eq "-stdout" |
|
1072
|
7 |
0 |
0 |
$target->call_name // $target->name |
|
1164
|
13 |
1 |
20 |
$type eq "bool" or $mode eq "increment" |
|
1241
|
28 |
0 |
6 |
@options or defined $options_help |