| line |
true |
false |
branch |
|
40
|
0 |
0 |
if ref $newDef ne 'HASH' |
|
50
|
0 |
0 |
unless defined $k->{'header'} |
|
53
|
0 |
0 |
$s ne '' ? : |
|
61
|
0 |
0 |
unless defined $k->{'footer'} |
|
64
|
0 |
0 |
$s ne '' ? : |
|
75
|
0 |
0 |
unless defined $opt->{'jump'} |
|
76
|
0 |
0 |
if ref \$opt->{'jump'} ne 'SCALAR' |
|
91
|
0 |
0 |
unless defined $k->{'label'} |
|
104
|
0 |
0 |
if ref $newDef ne 'HASH' |
|
132
|
0 |
0 |
if (defined $name) |
|
145
|
0 |
0 |
if defined $ah->{'autohead'} |
|
154
|
0 |
0 |
if (defined $name) |
|
172
|
0 |
0 |
if not defined $h and defined $autoHead |
|
173
|
0 |
0 |
if defined $h |
|
195
|
0 |
0 |
if defined $foot |
|
205
|
0 |
0 |
unless defined $self->{'def'}{$name}{'opts'} |
|
218
|
0 |
0 |
if defined $s |
|
219
|
0 |
0 |
if defined $s |
|
235
|
0 |
0 |
unless defined $$self |
|
236
|
0 |
0 |
if (ref $$self eq 'ARRAY') |
|
237
|
0 |
0 |
if ref $$self->[0] ne 'Script::Toolbox::Util::Menues' |
|
241
|
0 |
0 |
if defined Deparse error: Bizarre copy of CODE in list assignment at /usr/local/lib/perl5/5.22.0/B/Deparse.pm line 4035.
{$$name} |
|
257
|
0 |
0 |
unless &validateParams(\$self, \$name) |
|
258
|
0 |
0 |
unless defined $cnt |
|
259
|
0 |
0 |
unless $cnt =~ /^[-]?\d+$/ |
|
260
|
0 |
0 |
if $cnt == 0 |
|
267
|
0 |
0 |
if $o == 0 |
|
348
|
0 |
0 |
unless defined $pattern |
|
349
|
0 |
0 |
unless defined $search |
|
350
|
0 |
0 |
unless defined $return |
|
351
|
0 |
0 |
unless defined $self->{'def'}{$name}{'opts'} |
|
352
|
0 |
0 |
unless $search =~ /(number|value|label)/ |
|
353
|
0 |
0 |
unless $return =~ /(number|value|label)/ |
|
367
|
0 |
0 |
if &_invalidParam($self, $name, $pattern, $search, $return) |
|
373
|
0 |
0 |
if ($search eq 'number') { } |
|
374
|
0 |
0 |
if $i =~ /$pattern/ |
|
377
|
0 |
0 |
unless defined $l->{$search} |
|
378
|
0 |
0 |
unless $l->{$search} =~ /$pattern/ |