| line |
true |
false |
branch |
|
129
|
2 |
5 |
if $messages{$_} > 1 |
|
151
|
297 |
205 |
exists $options{$option} ? : |
|
234
|
0 |
108 |
unless (defined $oname) |
|
240
|
108 |
0 |
if ($rv) |
|
241
|
0 |
108 |
unless (defined $tref->{'Template'}) |
|
248
|
108 |
0 |
if ($rv) |
|
249
|
0 |
108 |
unless (defined $tref->{'Template'} and $tref->{'Template'} =~ /^[\$\@]*$/s) |
|
258
|
108 |
0 |
if ($rv) |
|
259
|
95 |
13 |
if (defined $tref->{'Short'}) |
|
260
|
0 |
95 |
unless ($tref->{'Short'} =~ /^[a-zA-Z0-9]$/s) |
|
266
|
108 |
0 |
if (defined $tref->{'Long'}) |
|
267
|
0 |
108 |
unless ($tref->{'Long'} =~ /^[a-zA-Z0-9-]{2,}$/s) |
|
277
|
108 |
0 |
if ($rv) |
|
278
|
26 |
82 |
if ($tref->{'Template'} =~ /\@/ms) |
|
280
|
0 |
26 |
if (@at > 1) |
|
285
|
0 |
26 |
if ($tref->{'CanBundle'} and defined $tref->{'Short'}) |
|
295
|
108 |
0 |
if ($rv) |
|
296
|
0 |
108 |
unless (ref $tref->{'ExclusiveOf'} eq "ARRAY") |
|
301
|
0 |
108 |
unless (ref $tref->{'AccompaniedBy'} eq "ARRAY") |
|
307
|
108 |
0 |
if ($rv) |
|
308
|
0 |
108 |
if (grep {not defined $_;} @{$$tref{"ExclusiveOf"};}) |
|
313
|
0 |
108 |
if (grep {not defined $_;} @{$$tref{"AccompaniedBy"};}) |
|
323
|
108 |
0 |
if ($rv) |
|
325
|
15 |
93 |
if ($tref->{'CountShort'}) |
|
326
|
0 |
15 |
unless ($tref->{'Template'} =~ /^\$?$/ms) |
|
362
|
17 |
19 |
if ($argTemplate eq '') { } |
|
|
5 |
14 |
elsif ($argTemplate =~ /\@/s) { } |
|
373
|
0 |
5 |
if (_NOOPTIONS()) { } |
|
389
|
1 |
4 |
if (@$argRef and $argRef->[0] eq "--") |
|
403
|
0 |
14 |
if (_NOOPTIONS()) { } |
|
422
|
0 |
0 |
if (@$lref < length $argTemplate and @$argRef and $argRef->[0] eq "--") |
|
435
|
1 |
35 |
if (@$lref < length $argTemplate) { } |
|
447
|
4 |
31 |
if ($rv and $argTemplate =~ /\@/ms and length $argTemplate > 1) |
|
451
|
4 |
0 |
if ($argTemplate =~ /^(\$+)/s) |
|
456
|
2 |
2 |
if ($argTemplate =~ /(\$+)\$/s) |
|
465
|
4 |
0 |
if @{$tmp[0];} |
|
467
|
2 |
2 |
if @{$tmp[2];} |
|
497
|
17 |
18 |
if ($argTemplate eq '') { } |
|
|
14 |
4 |
elsif ($argTemplate eq '$') { } |
|
500
|
7 |
10 |
unless defined $tref->{'Value'} |
|
507
|
12 |
2 |
if (not $tref->{'Multiple'} or $tref->{'CountShort'}) { } |
|
520
|
1 |
1 |
unless defined $tref->{'Value'} and ref $tref->{'Value'} eq "ARRAY" |
|
528
|
4 |
0 |
if (not $tref->{'Multiple'}) { } |
|
541
|
0 |
0 |
unless defined $tref->{'Value'} and ref $tref->{'Value'} eq "ARRAY" |
|
571
|
0 |
14 |
unless defined $paref |
|
587
|
0 |
108 |
unless (ref $_ eq "HASH") |
|
612
|
13 |
0 |
defined $tref->{'Long'} ? : |
|
|
0 |
13 |
defined $tref->{'Short'} ? : |
|
|
95 |
13 |
defined $tref->{'Short'} && defined $tref->{'Long'} ? : |
|
620
|
15 |
93 |
if ($tref->{'CountShort'}) |
|
622
|
15 |
0 |
if defined $tref->{'Long'} |
|
628
|
2 |
106 |
if defined $tref->{'Short'} and $tref->{'Template'} eq "" |
|
634
|
95 |
13 |
if (defined $tref->{'Short'} and length $tref->{'Short'}) |
|
637
|
0 |
95 |
if (defined _getOption($tref->{'Short'})) { } |
|
654
|
108 |
0 |
if (defined $tref->{'Long'} and length $tref->{'Long'}) |
|
657
|
0 |
108 |
if (defined _getOption($tref->{'Long'})) { } |
|
674
|
0 |
108 |
unless _tLint($tref) |
|
677
|
14 |
0 |
if ($rv) |
|
681
|
0 |
35 |
unless defined $arg |
|
684
|
1 |
34 |
if ($arg eq '--' and not _NOOPTIONS()) { } |
|
|
27 |
7 |
elsif (not _NOOPTIONS() and $arg =~ /^--?/s) { } |
|
695
|
14 |
13 |
if ($arg =~ /^-(\w.*)$/s) { } |
|
|
13 |
0 |
elsif ($arg =~ /^--([\w-]+)(?:=(.+))?$/ms) { } |
|
713
|
3 |
5 |
if ($#tmp and defined $tref and $tref->{'Template'} eq "\$" and not $tref->{'CanBundle'}) |
|
728
|
25 |
0 |
if (defined $tref) { } |
|
731
|
16 |
9 |
if ($#tmp) |
|
732
|
0 |
16 |
unless ($tref->{'CanBundle'}) |
|
747
|
15 |
8 |
if $argTemplate eq "\$" and $tref->{'CountShort'} |
|
750
|
0 |
25 |
unless (&_getArgs("-$_", $argTemplate, \@oargs)) |
|
757
|
0 |
25 |
if (not $tref->{'Multiple'} and $tref->{'Count'} > 0) |
|
783
|
1 |
12 |
if defined $2 and length $2 |
|
790
|
1 |
12 |
if ($#tmp and defined $tref) |
|
793
|
1 |
0 |
if ($tref->{'Template'} eq '$') { } |
|
|
0 |
0 |
elsif ($tref->{'Template'} eq '') { } |
|
817
|
11 |
2 |
if (defined $tref) { } |
|
823
|
1 |
10 |
unless (&_getArgs("--$tmp[0]", $argTemplate, \@oargs)) |
|
830
|
0 |
10 |
if (not $tref->{'Multiple'} and $tref->{'Count'} > 0) |
|
858
|
2 |
5 |
unless exists $oref->{'PAYLOAD'} |
|
867
|
44 |
159 |
if do {
_getOption($_)
}->{'Count'} |
|
876
|
2 |
42 |
if (@{$tref->{'ExclusiveOf'};}) |
|
878
|
2 |
0 |
if (grep /^$regex$/ms, @tmp) |
|
889
|
2 |
12 |
unless (grep /^\Q$regex\E$/ms, @tmp) |