| line |
true |
false |
branch |
|
264
|
2 |
29 |
@_ ? :
|
|
320
|
94 |
7 |
@$opt > 1 ? :
|
|
|
97 |
4 |
@$opt ? :
|
|
343
|
78 |
86 |
if (wantarray)
|
|
366
|
0 |
29 |
ref $_[-1] && ref $_[-1] eq 'HASH' ? :
|
|
375
|
84 |
7 |
unless $opt->{'desc'} eq "spacer"
|
|
377
|
5 |
86 |
if (ref $opt->{'desc'} eq "ARRAY")
|
|
382
|
6 |
85 |
if ($HIDDEN{$opt->{'desc'}})
|
|
386
|
6 |
85 |
if ($opt->{'constraint'}{'one_of'})
|
|
394
|
0 |
20 |
if ($one_opt->{'constraint'}{$wipe})
|
|
404
|
10 |
0 |
unless $one_opt->{'desc'} eq "spacer"
|
|
408
|
1 |
4 |
if ($opt->{'constraint'}{'shortcircuit'} and exists $opt->{'constraint'}{'default'})
|
|
417
|
29 |
0 |
unless $arg->{'getopt_conf'} or $arg->{'getopt'}
|
|
418
|
0 |
29 |
if ($arg->{'getopt'})
|
|
422
|
29 |
0 |
unless grep {/bundling/iu;} @go_conf
|
|
423
|
29 |
0 |
unless grep {/no_auto_help/iu;} @go_conf
|
|
425
|
29 |
0 |
unless grep {/no_ignore_case/iu;} @go_conf
|
|
450
|
1 |
28 |
if @redundant
|
|
454
|
0 |
20 |
unless lc $a cmp lc $b
|
|
460
|
4 |
25 |
$short ? :
|
|
|
27 |
2 |
$long ? :
|
|
485
|
0 |
29 |
unless &GetOptions(\%return, grep({length $_;} @getopt_specs))
|
|
490
|
27 |
1 |
if $newopt eq $opt
|
|
512
|
45 |
0 |
unless defined $new or exists $return{$name}
|
|
515
|
3 |
25 |
if ($is_shortcircuit)
|
|
532
|
0 |
125 |
unless $MungeOptions
|
|
552
|
11 |
27 |
if ($CONSTRAINT{$ct} and ref $CONSTRAINT{$ct} eq 'CODE') { }
|
|
566
|
8 |
19 |
$CONSTRAINT{$ct} ? :
|
|
571
|
68 |
8 |
unless exists $pvspec{'optional'}
|
|
577
|
0 |
4 |
if (not defined $arg{'params'}{$arg{'name'}} and $pvspec{'default'} and $spec->{'implies'})
|
|
602
|
3 |
73 |
unless ($ok)
|
|
604
|
3 |
0 |
if (&Scalar::Util::blessed($error) and $error->isa("Getopt::Long::Descriptive::_PV_Error"))
|
|
623
|
2 |
9 |
unless my $ref = ref $what
|
|
625
|
9 |
0 |
if $ref eq "HASH"
|
|
626
|
0 |
0 |
if $ref eq "ARRAY"
|
|
639
|
0 |
11 |
unless &first(sub {
|
|
648
|
0 |
6 |
unless defined $pv_val
|
|
656
|
5 |
1 |
if defined $rest->{'-parent_of'}{$_}
|
|
657
|
4 |
2 |
$parent ? :
|
|
660
|
1 |
5 |
if (@siblings > 1)
|
|
664
|
0 |
1 |
if (exists $param->{$key} and $param->{$key} ne $val and grep {$_ eq $key;} @{$$rest{"-given_keys"};})
|