| line |
true |
false |
branch |
|
34
|
0 |
1 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
37
|
0 |
0 |
if ($word =~ /\A\$/ and $COMPLETE_GETOPT_LONG_DEFAULT_ENV) |
|
38
|
0 |
0 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
42
|
0 |
0 |
unless @$compres |
|
50
|
0 |
0 |
if ($word =~ m[\A~([^/]*)\z] and $COMPLETE_GETOPT_LONG_DEFAULT_FILE) |
|
51
|
0 |
0 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
54
|
0 |
0 |
if $@ |
|
56
|
0 |
0 |
unless $res->[0] == 200 |
|
58
|
0 |
0 |
-d $_->{'home'} ? : |
|
62
|
0 |
0 |
unless @$compres |
|
72
|
0 |
0 |
if ($word =~ m[\A(~[^/]*)/] and $COMPLETE_GETOPT_LONG_DEFAULT_FILE) |
|
73
|
0 |
0 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
85
|
0 |
0 |
if (String::Wildcard::Bash::contains_wildcard($word) and $COMPLETE_GETOPT_LONG_DEFAULT_FILE) |
|
86
|
0 |
0 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
89
|
0 |
0 |
unless @$compres |
|
91
|
0 |
0 |
if -d $_ |
|
99
|
1 |
0 |
if ($COMPLETE_GETOPT_LONG_DEFAULT_FILE) |
|
100
|
0 |
1 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
108
|
0 |
1 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
119
|
153 |
108 |
unless index($_, $opt) == 0 |
|
121
|
28 |
80 |
if $opt eq $_ |
|
130
|
0 |
48 |
unless $opthash |
|
134
|
88 |
544 |
if $v->{'ospec'} eq $ospec |
|
295
|
0 |
35 |
unless $args{'words'} |
|
297
|
0 |
35 |
unless defined(my $cword = $args{'cword'}) |
|
298
|
0 |
35 |
unless my $gospec = $args{'getopt_spec'} |
|
305
|
1 |
34 |
if (ref $gospec eq 'HASH') |
|
309
|
2 |
0 |
if ref $gospec->{$_} |
|
314
|
0 |
35 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
318
|
1 |
34 |
if ref $gospec->[0] eq 'HASH' |
|
325
|
3 |
210 |
$i + 1 <= $#{$gospec;} && ref $$gospec[$i + 1] ? : |
|
328
|
0 |
213 |
unless my $res = Getopt::Long::Util::parse_getopt_long_opt_spec($ospec) |
|
330
|
0 |
213 |
if $res->{'is_arg'} |
|
331
|
81 |
132 |
$res->{'type'} ? : |
|
332
|
83 |
130 |
$res->{'type'} || $res->{'opttype'} ? : |
|
334
|
24 |
339 |
$res->{'is_neg'} && length $o0 > 1 ? : |
|
340
|
152 |
259 |
length $o == 1 || !$bundling && $res->{'dash_prefix'} eq '-' ? : |
|
357
|
0 |
169 |
unless $extras |
|
359
|
169 |
0 |
unless $ggls_res |
|
361
|
0 |
0 |
unless $cmdline |
|
363
|
0 |
0 |
unless $r |
|
367
|
0 |
0 |
unless $ospec |
|
371
|
0 |
0 |
if ($ospecmeta->{'is_alias'}) |
|
374
|
0 |
0 |
length $real_opt == 1 ? : |
|
378
|
0 |
0 |
if (defined(my $coptname = $ospecmeta->{'common_opt'})) { } |
|
382
|
0 |
0 |
unless $coptspec |
|
386
|
0 |
0 |
if ($opts{$optname}{'is_neg'}) { } |
|
388
|
0 |
0 |
if defined $summ |
|
390
|
0 |
0 |
length $pos_opt == 1 ? : |
|
394
|
0 |
0 |
if defined $summ |
|
396
|
0 |
0 |
if defined $summ |
|
407
|
0 |
0 |
if ($ospecmeta->{'is_neg'}) { } |
|
409
|
0 |
0 |
if defined $summ |
|
411
|
0 |
0 |
length $pos_opt == 1 ? : |
|
415
|
0 |
0 |
if defined $summ |
|
417
|
0 |
0 |
if defined $summ |
|
444
|
32 |
48 |
if ++$i >= @words |
|
448
|
0 |
48 |
if ($word eq '--' and $i != $cword) |
|
452
|
0 |
0 |
if $i >= @words |
|
457
|
41 |
7 |
if ($word =~ /\A-/) { } |
|
463
|
29 |
12 |
unless $opts{'-' . substr($word, 1, 1)} |
|
466
|
1 |
11 |
unless $bundling |
|
475
|
7 |
20 |
unless $rest =~ s/(.)// |
|
478
|
0 |
20 |
unless ($opthash) |
|
487
|
4 |
16 |
if ($opthash->{'parsed'}{'max_vals'}) |
|
491
|
2 |
2 |
if ($i == $j) { } |
|
499
|
2 |
2 |
if (length $rest) { } |
|
502
|
1 |
1 |
$j > $i ? : |
|
503
|
1 |
1 |
$j > $i ? : |
|
506
|
1 |
1 |
$j > $i ? : |
|
508
|
1 |
1 |
$j > $i ? : |
|
511
|
0 |
4 |
if ($rest =~ s/\A=//) |
|
515
|
2 |
2 |
if ($expand) |
|
523
|
9 |
7 |
if ($i == $j) { } |
|
533
|
0 |
11 |
$encounter_equal_sign ? : |
|
549
|
4 |
37 |
if ($word =~ /\A(--?[^=]+)(=)(.*)/) |
|
552
|
4 |
0 |
if $cword >= $i |
|
559
|
28 |
13 |
if (keys %$matching_opts == 1) { } |
|
572
|
3 |
25 |
if ($i + 1 < @words and $words[$i + 1] eq '=') |
|
577
|
1 |
2 |
if $max_vals < $min_vals |
|
582
|
3 |
13 |
if $i >= @words |
|
588
|
0 |
1 |
if $i + $_ >= @words |
|
589
|
0 |
1 |
if $words[$i + $_] =~ /\A-/ |
|
603
|
1 |
12 |
if ($i + 1 < @words and $words[$i + 1] eq '=') |
|
606
|
1 |
0 |
if ($i + 1 < @words) |
|
636
|
2 |
33 |
if $word =~ /\A[^-]/ |
|
637
|
7 |
26 |
unless exists $exp->{'optname'} |
|
639
|
0 |
26 |
if defined $exp->{'do_complete_optname'} and not $exp->{'do_complete_optname'} |
|
640
|
2 |
24 |
if ($exp->{'comp_result'}) |
|
651
|
50 |
197 |
if $exp->{'short_only'} and $optname =~ /\A--/ |
|
652
|
34 |
163 |
if ($seen_opts{$optname}) |
|
656
|
1 |
33 |
if (ref $dest eq 'ARRAY') { } |
|
|
3 |
30 |
elsif ($parsed->{'desttype'} or $parsed->{'is_inc'}) { } |
|
669
|
14 |
2 |
if $seen_opts{$optname} and not $repeatable and !$opt || $opt ne $optname || defined $exp->{'prefix'} && index($exp->{'prefix'}, substr($opt, 1, 1)) >= 0 |
|
670
|
18 |
151 |
if (defined $exp->{'prefix'}) { } |
|
677
|
0 |
169 |
if (length $summ) { } |
|
690
|
0 |
24 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
693
|
17 |
6 |
unless (exists $exp->{'optval'} or exists $exp->{'arg'}) |
|
701
|
8 |
10 |
unless exists $exp->{'optval'} |
|
704
|
9 |
1 |
if $opt |
|
713
|
10 |
0 |
if ($comp) |
|
714
|
0 |
10 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
717
|
2 |
8 |
if defined $exp->{'prefix'} |
|
718
|
0 |
10 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
720
|
0 |
10 |
unless ($compres and $comp) |
|
723
|
0 |
0 |
if defined $exp->{'prefix'} |
|
724
|
0 |
0 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
732
|
11 |
7 |
unless exists $exp->{'arg'} |
|
740
|
0 |
7 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
742
|
6 |
1 |
if $comp |
|
743
|
1 |
6 |
unless (defined $compres) |
|
745
|
0 |
1 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
751
|
0 |
18 |
if $COMPLETE_GETOPT_LONG_TRACE |
|
754
|
0 |
35 |
if $COMPLETE_GETOPT_LONG_TRACE |