| line |
!l |
l&&!r |
l&&r |
condition |
|
165
|
0 |
0 |
0 |
not $_->{'transmit_exact'} and $name =~ /$namerx/u |
|
176
|
154 |
0 |
153 |
@args && ref $args[0] |
|
224
|
655 |
3 |
2 |
@opts && ref $opts[0] |
|
280
|
0 |
68 |
92 |
$strict and @args |
|
|
68 |
92 |
0 |
$strict and @args and $args[0] =~ /\A - . /msux |
|
289
|
0 |
0 |
295 |
defined $o->{'getopt'} and $o->{'getopt'} =~ /\A(\w[-\w]*)/msux |
|
291
|
0 |
0 |
0 |
defined $o->{'environment'} and $o->{'environment'} ne 1 |
|
336
|
80 |
150 |
40 |
defined $en && exists $ENV{$en} |
|
513
|
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 |
|
604
|
4 |
1 |
0 |
defined $fto and $fto =~ /\A(?: 0 | [1-9]\d* )\z/u |
|
736
|
1 |
0 |
0 |
defined $desttype and $desttype eq "\@" |
|
774
|
15 |
0 |
0 |
defined $min and $min > 1 |
|
775
|
15 |
0 |
0 |
defined $max and length $max |
|
777
|
14 |
0 |
1 |
defined $desttype and $desttype eq "\@" |
|
786
|
1 |
0 |
0 |
defined $desttype and $desttype eq "\@" |
|
910
|
0 |
0 |
0 |
$name =~ /\A(?: help | commands | tree)\z/msux and $exclude_auto |
| line |
l |
!l |
condition |
|
78
|
6352 |
0 |
$$self{&blessed($self)} //= {} |
|
97
|
135 |
0 |
$self->_rwn((caller 1)[3] =~ s/.*:://mrsux, @n) // [] |
|
125
|
33 |
2 |
($s->_rw(@r) // ($s->aliases)[0]) // "**no name**" |
|
154
|
90 |
18 |
$_->{'transmit'} // 0 |
|
176
|
37 |
270 |
$pkg_spec // {} |
|
319
|
204 |
100 |
$env // "" |
|
324
|
102 |
0 |
$instance->environment_prefix // "" |
|
343
|
0 |
16 |
$key->[0] // "config" |
|
374
|
155 |
0 |
$self->_rwn("config") // {} |
|
376
|
155 |
0 |
$config->{'merged'} // {} |
|
417
|
0 |
0 |
$params_validate->{'config'} // undef |
|
421
|
0 |
0 |
$params_validate->{'args'} // undef |
|
575
|
1 |
657 |
$class // "" |
|
649
|
64 |
0 |
$command->help // "(**missing help**)" |
|
687
|
29 |
0 |
$binmode // "" |
|
832
|
21 |
2 |
$target->help // "no concise help yet" |
|
852
|
4 |
30 |
$opt->{'help'} // "" |
|
868
|
8 |
0 |
$opt->{'default'} // "*undef*" |
|
911
|
0 |
0 |
$command->help // "(**missing help**)" |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
20
|
0 |
0 |
0 |
ref $stuff[0] || @stuff % 2 |
|
125
|
11 |
22 |
2 |
$s->_rw(@r) // ($s->aliases)[0] |
|
205
|
0 |
827 |
126 |
$is_overridable{$dst_key} or not exists $retval{$dst_key} |
|
235
|
336 |
324 |
0 |
$meta->{'priority'} //= $last_priority + 10 |
|
533
|
104 |
198 |
140 |
$self->force_auto_children // @children |
|
646
|
30 |
0 |
0 |
$target //= $self->target |
|
678
|
0 |
29 |
0 |
$channel eq "-" or lc $channel eq "-stdout" |
|
704
|
7 |
0 |
0 |
$target->call_name // $target->name |
|
795
|
1 |
1 |
17 |
$type eq "bool" or $mode eq "increment" |
|
829
|
23 |
0 |
0 |
$target //= $self->target |