| line |
true |
false |
branch |
|
264
|
2 |
31 |
@_ ? : |
|
319
|
99 |
13 |
@$opt > 1 ? : |
|
|
106 |
6 |
@$opt ? : |
|
342
|
84 |
87 |
if (wantarray) |
|
364
|
1 |
30 |
ref $_[0] ? : |
|
365
|
1 |
30 |
ref $_[-1] && ref $_[-1] eq 'HASH' ? : |
|
373
|
0 |
31 |
if (my $shell = $ENV{'GETOPT_LONG_DESCRIPTIVE_COMPLETION'}) |
|
374
|
0 |
0 |
if ($shell eq 'bash') { } |
|
|
0 |
0 |
elsif ($shell eq 'zsh') { } |
|
393
|
85 |
7 |
unless $opt->{'desc'} eq "spacer" |
|
395
|
5 |
87 |
if (ref $opt->{'desc'} eq "ARRAY") |
|
400
|
6 |
86 |
if ($HIDDEN{$opt->{'desc'}}) |
|
404
|
6 |
86 |
if ($opt->{'constraint'}{'one_of'}) |
|
412
|
0 |
20 |
if ($one_opt->{'constraint'}{$wipe}) |
|
422
|
10 |
0 |
unless $one_opt->{'desc'} eq "spacer" |
|
426
|
1 |
4 |
if ($opt->{'constraint'}{'shortcircuit'} and exists $opt->{'constraint'}{'default'}) |
|
435
|
30 |
0 |
unless $arg->{'getopt_conf'} or $arg->{'getopt'} |
|
436
|
0 |
31 |
if ($arg->{'getopt'}) |
|
440
|
31 |
0 |
unless grep {/bundling/iu;} @go_conf |
|
441
|
31 |
0 |
unless grep {/no_auto_help/iu;} @go_conf |
|
443
|
31 |
0 |
unless grep {/no_ignore_case/iu;} @go_conf |
|
468
|
0 |
20 |
unless lc $a cmp lc $b |
|
474
|
3 |
28 |
$short ? : |
|
|
29 |
2 |
$long ? : |
|
499
|
0 |
31 |
unless &GetOptions(\%return, grep({length $_;} @getopt_specs)) |
|
506
|
27 |
1 |
if $newopt eq $opt |
|
528
|
45 |
0 |
unless defined $new or exists $return{$name} |
|
531
|
3 |
26 |
if ($is_shortcircuit) |
|
548
|
0 |
134 |
unless $MungeOptions |
|
568
|
9 |
31 |
if ($ct eq "required") |
|
576
|
11 |
20 |
if ($CONSTRAINT{$ct} and ref $CONSTRAINT{$ct} eq 'CODE') { } |
|
590
|
0 |
20 |
$CONSTRAINT{$ct} ? : |
|
595
|
68 |
9 |
unless exists $pvspec{'optional'} |
|
601
|
0 |
5 |
if (not defined $arg{'params'}{$arg{'name'}} and $pvspec{'default'} and $spec->{'implies'}) |
|
626
|
3 |
74 |
unless ($ok) |
|
628
|
3 |
0 |
if (builtin::blessed($error) and $error->isa("Getopt::Long::Descriptive::_PV_Error")) |
|
647
|
2 |
9 |
unless my $ref = ref $what |
|
649
|
9 |
0 |
if $ref eq "HASH" |
|
650
|
0 |
0 |
if $ref eq "ARRAY" |
|
663
|
0 |
11 |
unless &first(sub {
$_->{'name'} eq $implied;
}
, @$opts) |
|
672
|
0 |
6 |
unless defined $pv_val |
|
680
|
5 |
1 |
if defined $rest->{'-parent_of'}{$_} |
|
681
|
4 |
2 |
$parent ? : |
|
684
|
1 |
5 |
if (@siblings > 1) |
|
688
|
0 |
1 |
if (exists $param->{$key} and $param->{$key} ne $val and grep {$_ eq $key;} @{$$rest{"-given_keys"};}) |
|
713
|
0 |
2 |
if ref $_[-1] eq "HASH" |
|
717
|
6 |
4 |
if $opt->{'desc'} eq "spacer" |
|
725
|
0 |
4 |
if (ref $opt->{'desc'} eq "ARRAY") |
|
730
|
0 |
4 |
if (ref $constraint->{'one_of'} eq "ARRAY") |
|
735
|
0 |
4 |
if $constraint->{'hidden'} or ($opt->{'desc'} // "") eq "hidden" |
|
754
|
0 |
0 |
if (ref $completion eq "ARRAY") |
|
755
|
0 |
0 |
unless @$completion |
|
760
|
0 |
0 |
if $completion eq "files" |
|
761
|
0 |
0 |
if $completion eq "dirs" |
|
763
|
0 |
0 |
if ($completion =~ /\Afn:(.+)\z/u) |
|
773
|
0 |
0 |
if $completion eq "files" |
|
774
|
0 |
0 |
if $completion eq "dirs" |
|
776
|
0 |
0 |
if (ref $completion eq "ARRAY") |
|
780
|
0 |
0 |
if ($completion =~ /\Afn:(.+)\z/u) |
|
814
|
0 |
2 |
length $name == 1 ? : |
|
815
|
0 |
2 |
if $p->{'negatable'} and length $name > 1 |
|
818
|
0 |
2 |
if ($p->{'takes_value'} and defined $p->{'completion'}) |
|
820
|
0 |
0 |
if (defined $action) |
|
822
|
0 |
0 |
length $_ == 1 ? : |
|
851
|
0 |
2 |
length $name == 1 ? : |
|
852
|
0 |
2 |
if ($p->{'takes_value'}) { } |
|
855
|
0 |
0 |
defined $p->{'completion'} ? : |
|
861
|
0 |
2 |
if $p->{'negatable'} and length $name > 1 |
|
869
|
0 |
0 |
if (my $names = $ENV{'GETOPT_LONG_DESCRIPTIVE_COMPLETION_NAME'}) |
|
887
|
0 |
0 |
if (@{$data->{'prev_cases'};}) |