| line |
true |
false |
branch |
|
129
|
2 |
5 |
if $messages{$_} > 1 |
|
151
|
297 |
205 |
exists $options{$option} ? : |
|
235
|
0 |
108 |
unless (defined $oname) |
|
241
|
108 |
0 |
if ($rv) |
|
242
|
0 |
108 |
unless (defined $tref->{'Template'}) |
|
249
|
108 |
0 |
if ($rv) |
|
250
|
0 |
108 |
unless (defined $tref->{'Template'} and $tref->{'Template'} =~ /^[\$\@]*$/s) |
|
259
|
108 |
0 |
if ($rv) |
|
260
|
95 |
13 |
if (defined $tref->{'Short'}) |
|
261
|
0 |
95 |
unless ($tref->{'Short'} =~ /^[a-zA-Z0-9]$/s) |
|
267
|
108 |
0 |
if (defined $tref->{'Long'}) |
|
268
|
0 |
108 |
unless ($tref->{'Long'} =~ /^[a-zA-Z0-9-]{2,}$/s) |
|
278
|
108 |
0 |
if ($rv) |
|
279
|
26 |
82 |
if ($tref->{'Template'} =~ /\@/ms) |
|
281
|
0 |
26 |
if (@at > 1) |
|
286
|
0 |
26 |
if ($tref->{'CanBundle'} and defined $tref->{'Short'}) |
|
296
|
108 |
0 |
if ($rv) |
|
297
|
0 |
108 |
unless (ref $tref->{'ExclusiveOf'} eq "ARRAY") |
|
302
|
0 |
108 |
unless (ref $tref->{'AccompaniedBy'} eq "ARRAY") |
|
308
|
108 |
0 |
if ($rv) |
|
309
|
0 |
108 |
if (grep {not defined $_;} @{$$tref{"ExclusiveOf"};}) |
|
314
|
0 |
108 |
if (grep {not defined $_;} @{$$tref{"AccompaniedBy"};}) |
|
324
|
108 |
0 |
if ($rv) |
|
326
|
15 |
93 |
if ($tref->{'CountShort'}) |
|
327
|
0 |
15 |
unless ($tref->{'Template'} =~ /^\$?$/ms) |
|
366
|
17 |
19 |
if ($argTemplate eq '') { } |
|
|
5 |
14 |
elsif ($argTemplate =~ /\@/s) { } |
|
377
|
0 |
5 |
if (_NOOPTIONS()) { } |
|
393
|
1 |
4 |
if (@$argRef and $argRef->[0] eq "--") |
|
407
|
0 |
14 |
if (_NOOPTIONS()) { } |
|
426
|
0 |
0 |
if (@$lref < length $argTemplate and @$argRef and $argRef->[0] eq "--") |
|
439
|
1 |
35 |
if (@$lref < length $argTemplate) { } |
|
451
|
4 |
31 |
if ($rv and $argTemplate =~ /\@/ms and length $argTemplate > 1) |
|
455
|
4 |
0 |
if ($argTemplate =~ /^(\$+)/s) |
|
460
|
2 |
2 |
if ($argTemplate =~ /(\$+)\$/s) |
|
469
|
4 |
0 |
if @{$tmp[0];} |
|
471
|
2 |
2 |
if @{$tmp[2];} |
|
503
|
17 |
18 |
if ($argTemplate eq '') { } |
|
|
14 |
4 |
elsif ($argTemplate eq '$') { } |
|
506
|
7 |
10 |
unless defined $tref->{'Value'} |
|
513
|
12 |
2 |
if (not $tref->{'Multiple'} or $tref->{'CountShort'}) { } |
|
526
|
1 |
1 |
unless defined $tref->{'Value'} and ref $tref->{'Value'} eq "ARRAY" |
|
534
|
4 |
0 |
if (not $tref->{'Multiple'}) { } |
|
547
|
0 |
0 |
unless defined $tref->{'Value'} and ref $tref->{'Value'} eq "ARRAY" |
|
576
|
0 |
14 |
unless defined $paref |
|
595
|
0 |
108 |
unless (ref $_ eq "HASH") |
|
620
|
13 |
0 |
defined $tref->{'Long'} ? : |
|
|
0 |
13 |
defined $tref->{'Short'} ? : |
|
|
95 |
13 |
defined $tref->{'Short'} && defined $tref->{'Long'} ? : |
|
628
|
15 |
93 |
if ($tref->{'CountShort'}) |
|
630
|
15 |
0 |
if defined $tref->{'Long'} |
|
636
|
2 |
106 |
if defined $tref->{'Short'} and $tref->{'Template'} eq "" |
|
642
|
95 |
13 |
if (defined $tref->{'Short'} and length $tref->{'Short'}) |
|
645
|
0 |
95 |
if (defined _getOption($tref->{'Short'})) { } |
|
662
|
108 |
0 |
if (defined $tref->{'Long'} and length $tref->{'Long'}) |
|
665
|
0 |
108 |
if (defined _getOption($tref->{'Long'})) { } |
|
682
|
0 |
108 |
unless _tLint($tref) |
|
685
|
14 |
0 |
if ($rv) |
|
689
|
0 |
35 |
unless defined $arg |
|
692
|
1 |
34 |
if ($arg eq '--' and not _NOOPTIONS()) { } |
|
|
27 |
7 |
elsif (not _NOOPTIONS() and $arg =~ /^--?/s) { } |
|
703
|
14 |
13 |
if ($arg =~ /^-(\w.*)$/s) { } |
|
|
13 |
0 |
elsif ($arg =~ /^--([\w-]+)(?:=(.+))?$/ms) { } |
|
721
|
3 |
5 |
if ($#tmp and defined $tref and $tref->{'Template'} eq "\$" and not $tref->{'CanBundle'}) |
|
736
|
25 |
0 |
if (defined $tref) { } |
|
739
|
16 |
9 |
if ($#tmp) |
|
740
|
0 |
16 |
unless ($tref->{'CanBundle'}) |
|
755
|
15 |
8 |
if $argTemplate eq "\$" and $tref->{'CountShort'} |
|
758
|
0 |
25 |
unless (&_getArgs("-$_", $argTemplate, \@oargs)) |
|
765
|
0 |
25 |
if (not $tref->{'Multiple'} and $tref->{'Count'} > 0) |
|
791
|
1 |
12 |
if defined $2 and length $2 |
|
798
|
1 |
12 |
if ($#tmp and defined $tref) |
|
801
|
1 |
0 |
if ($tref->{'Template'} eq '$') { } |
|
|
0 |
0 |
elsif ($tref->{'Template'} eq '') { } |
|
825
|
11 |
2 |
if (defined $tref) { } |
|
831
|
1 |
10 |
unless (&_getArgs("--$tmp[0]", $argTemplate, \@oargs)) |
|
838
|
0 |
10 |
if (not $tref->{'Multiple'} and $tref->{'Count'} > 0) |
|
866
|
2 |
5 |
unless exists $oref->{'PAYLOAD'} |
|
875
|
44 |
159 |
if do {
_getOption($_)
}->{'Count'} |
|
884
|
2 |
42 |
if (@{$tref->{'ExclusiveOf'};}) |
|
886
|
2 |
0 |
if (grep /^$regex$/ms, @tmp) |
|
897
|
2 |
12 |
unless (grep /^\Q$regex\E$/ms, @tmp) |