Branch Coverage

blib/lib/Script/Toolbox/Util/Opt.pm
Criterion Covered Total %
branch 24 76 31.5


line true false branch
32 3 6 unless defined $optDef
33 0 9 if ref $optDef ne 'HASH'
34 3 6 if scalar keys %{$optDef;} == 0
36 0 9 if &_invalidOptDef($optDef)
42 0 9 if $rc != 0
55 0 15 if ref $val ne 'HASH'
56 0 15 if scalar keys %{$val;} == 0
59 0 11 if $key ne 'mod' and $key ne 'desc' and $key ne 'mand' and $key ne 'default'
73 8 1 defined $call ? :
85 0 9 defined $addUsage ? :
96 9 0 if ref $ops eq 'HASH'
106 0 0 if $mod ne ''
107 0 0 if defined $old->{'desc'}
108 0 0 if defined $old->{'mand'}
109 0 0 if defined $old->{'default'}
122 9 0 if (not defined $$optDef->{'help'})
162 0 9 unless $rc
180 0 9 if (defined $self->{'help'})
184 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'} ? :