| line |
true |
false |
branch |
|
31
|
3 |
6 |
unless defined $optDef |
|
32
|
0 |
9 |
if ref $optDef ne 'HASH' |
|
33
|
3 |
6 |
if scalar keys %{$optDef;} == 0 |
|
35
|
0 |
9 |
if &_invalidOptDef($optDef) |
|
41
|
0 |
9 |
if $rc != 0 |
|
54
|
0 |
15 |
if ref $val ne 'HASH' |
|
55
|
0 |
15 |
if scalar keys %{$val;} == 0 |
|
58
|
0 |
11 |
if $key ne 'mod' and $key ne 'desc' and $key ne 'mand' and $key ne 'default' |
|
72
|
8 |
1 |
defined $call ? : |
|
84
|
0 |
9 |
defined $addUsage ? : |
|
95
|
9 |
0 |
if ref $ops eq 'HASH' |
|
105
|
0 |
0 |
if $mod ne '' |
|
106
|
0 |
0 |
if defined $old->{'desc'} |
|
107
|
0 |
0 |
if defined $old->{'mand'} |
|
108
|
0 |
0 |
if defined $old->{'default'} |
|
121
|
9 |
0 |
if (not defined $$optDef->{'help'}) |
|
161
|
0 |
9 |
unless $rc |
|
179
|
0 |
9 |
if (defined $self->{'help'}) |
|
183
|
0 |
0 |
if ($hasPerldoc == 0 and $hasNroff == 0) { } |
|
196
|
0 |
15 |
unless $self->setDefaults($_) |
|
200
|
0 |
9 |
if (defined $errMsg) |
|
219
|
0 |
15 |
if defined $self->{$opt} |
|
222
|
10 |
5 |
unless $self->{'opsDef'}{$opt}{'mand'} |
|
227
|
0 |
0 |
if not defined $self->{'opsDef'}{$opt}{'default'} and $self->{'opsDef'}{$opt}{'mand'} |
|
260
|
0 |
0 |
defined $addMsg ? : |
|
270
|
0 |
0 |
unless defined $line |
|
272
|
0 |
0 |
defined $2 ? : |
|
287
|
0 |
0 |
&_optionaly($op) ? : |
|
289
|
0 |
0 |
$ln + $ad > $max ? : |
|
306
|
0 |
0 |
unless defined $o |
|
325
|
0 |
0 |
if (&_optionaly($op)) { } |
|
342
|
0 |
0 |
if (defined $op->{'mand'}) |
|
344
|
0 |
0 |
unless $op->{'mand'} |
|
345
|
0 |
0 |
unless defined $op->{'default'} |
|
360
|
0 |
0 |
unless defined $op->{'desc'} |
|
364
|
0 |
0 |
if (length($l) + length($x) + $max >= $cols) |
|
373
|
0 |
0 |
if defined $op->{'default'} |
|
388
|
6 |
9 |
defined $ops->{$opt}{'mod'} ? : |