| line |
!l |
l&&!r |
l&&r |
condition |
|
31
|
10 |
0 |
5 |
exists $_[0]{'parent'} and ref $_[0]{'parent'} |
|
294
|
17 |
1 |
0 |
defined $result and my $t = $opt->trigger |
|
343
|
0 |
0 |
0 |
$source->[0] =~ /^-\d/ && ($arg->isa ne 'Num' || $arg->isa ne 'Int') |
|
|
9 |
0 |
0 |
$source->[0] =~ /^-\S/ and not $source->[0] =~ /^-\d/ && ($arg->isa ne 'Num' || $arg->isa ne 'Int') |
|
391
|
5 |
0 |
2 |
$cmd->abbrev and my(@subcmds) = @{$cmd->subcmds;} |
|
407
|
4 |
0 |
0 |
@{$cmd->args;} and $cmd->args->[0]->isa ne "SubCmd" |
|
545
|
0 |
0 |
0 |
$overlap > 0 and not $paged |
|
566
|
5 |
4 |
0 |
@parents and $style ne &OptArgs2::USAGE_HELPSUMMARY() |
|
597
|
5 |
0 |
0 |
$style eq &OptArgs2::USAGE_HELP() and length $self->comment |
|
657
|
0 |
6 |
0 |
$style ne &OptArgs2::USAGE_HELP() and $opt->hidden |
| line |
l |
!l |
condition |
|
49
|
20 |
3 |
$_[0]{'_values'} // undef |
|
54
|
3 |
9 |
$_[0]{'abbrev'} // undef |
|
61
|
28 |
0 |
$_[0]{'class'} // undef |
|
62
|
4 |
0 |
$_[0]{'comment'} // undef |
|
63
|
0 |
4 |
$_[0]{'hidden'} // undef |
|
74
|
0 |
23 |
$_[0]{'parent'} // undef |
|
129
|
2 |
4 |
$args->{'alias'} //= undef |
|
166
|
3 |
2 |
shift() // "" |
|
290
|
0 |
1 |
$reason //= ["GetOptError", $error] |
|
328
|
0 |
0 |
$reason //= ["OptRequired", qq[missing required option "--$name"]] |
|
355
|
0 |
0 |
$reason //= ["OptUnknown", qq[unknown option "$o"]] |
|
428
|
0 |
2 |
$reason //= ["SubCmdUnknown", "unknown ${name}: $result"] |
|
482
|
0 |
2 |
$reason //= ["ArgRequired"] |
|
488
|
0 |
0 |
$reason //= ["UnexpectedOptArg", "unexpected option(s) or argument(s): @$source"] |
|
493
|
0 |
0 |
$reason //= ["UnexpectedHashOptArg", "unexpected HASH option(s) or argument(s): @unexpected"] |
|
511
|
0 |
0 |
shift() || 0 |
|
524
|
5 |
4 |
shift() // "" |
|
612
|
0 |
0 |
$$optargs{$arg->name} // undef |
|
643
|
0 |
0 |
$$optargs{$arg->name} // undef |
|
660
|
0 |
0 |
$$optargs{$opt->name} // undef |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
44
|
16 |
5 |
0 |
$_[0]{'_subcmds'} //= $OptArgs2::CmdBase::_FIELDS->{'_subcmds'}{'default'}->($_[0]) |
|
59
|
24 |
14 |
0 |
$_[0]{'args'} //= $OptArgs2::CmdBase::_FIELDS->{'args'}{'default'}->($_[0]) |
|
67
|
51 |
0 |
0 |
$_[0]{'optargs'} //= $OptArgs2::CmdBase::_FIELDS->{'optargs'}{'default'}->($_[0]) |
|
72
|
30 |
15 |
0 |
$_[0]{'opts'} //= $OptArgs2::CmdBase::_FIELDS->{'opts'}{'default'}->($_[0]) |
|
78
|
0 |
0 |
9 |
$_[0]{'show_color'} //= $OptArgs2::CmdBase::_FIELDS->{'show_color'}{'default'}->($_[0]) |
|
83
|
16 |
0 |
10 |
$_[0]{'show_default'} //= $OptArgs2::CmdBase::_FIELDS->{'show_default'}{'default'} |
|
88
|
6 |
5 |
0 |
$_[0]{'subcmds'} //= $OptArgs2::CmdBase::_FIELDS->{'subcmds'}{'default'}->($_[0]) |
|
164
|
5 |
0 |
0 |
shift() // OptArgs2::croak("Usage", "throw(\$TYPE,\$why,\$info)") |
|
165
|
5 |
0 |
0 |
shift() // $type |
|
269
|
14 |
0 |
14 |
@opts or @args |
|
298
|
1 |
1 |
16 |
$result //= $opt->default |
|
343
|
0 |
0 |
9 |
$source->[0] =~ /^--\S/ or $source->[0] =~ /^-\S/ and not $source->[0] =~ /^-\d/ && ($arg->isa ne 'Num' || $arg->isa ne 'Int') |
|
397
|
2 |
0 |
0 |
$abbrev{$test} // $test |
|
454
|
5 |
0 |
3 |
$result //= $arg->default |
|
523
|
9 |
0 |
0 |
shift() || &OptArgs2::USAGE_USAGE() |