| line |
true |
false |
branch |
|
102
|
11 |
3 |
if ref $_[0] eq 'HASH' |
|
106
|
13 |
1 |
if @_ |
|
137
|
42 |
26 |
ref $_[0] eq 'HASH' ? : |
|
140
|
6 |
62 |
if ($var =~ s/(.+?)([!+=:].*)/$1/) |
|
143
|
6 |
0 |
if length $2 |
|
148
|
8 |
60 |
if (defined($args = $$cfg{'ARGS'})) |
|
149
|
1 |
7 |
if $args =~ /^!/ |
|
151
|
2 |
5 |
if $args =~ /@/ |
|
152
|
1 |
4 |
if $args =~ /%/ |
|
161
|
8 |
60 |
if @names |
|
164
|
67 |
1 |
unless $$self{'CASE'} |
|
178
|
138 |
24 |
if ($opt =~ /^DEFAULT|VALIDATE|EXPAND|ARGS|ARGCOUNT$/) |
|
184
|
0 |
24 |
if ($opt eq 'CMDARG') |
|
191
|
2 |
22 |
if ($opt eq 'ACTION') |
|
192
|
0 |
2 |
unless (ref $val eq 'CODE') |
|
204
|
22 |
0 |
if ($opt eq 'ALIAS') |
|
207
|
14 |
8 |
unless ref $val eq 'ARRAY' |
|
211
|
22 |
0 |
unless ($$self{'CASE'}) |
|
234
|
0 |
68 |
if ($DEBUG) |
|
261
|
1 |
115 |
unless (exists $$self{'VARIABLE'}{$variable}) |
|
269
|
0 |
0 |
defined $$self{'VARIABLE'}{$variable} ? : |
|
|
0 |
115 |
if $DEBUG |
|
277
|
4 |
111 |
$negate ? : |
|
303
|
112 |
11 |
if (exists $$self{'VARIABLE'}{$variable}) { } |
|
305
|
5 |
2 |
$value ? : |
|
|
7 |
105 |
if $negate |
|
311
|
10 |
1 |
if (defined $create and $create eq '1' || $variable =~ /$create/) { } |
|
315
|
0 |
10 |
if $DEBUG |
|
324
|
2 |
120 |
unless ($self->_validate($variable, $value)) |
|
330
|
0 |
0 |
defined $value ? : |
|
|
0 |
120 |
if $DEBUG |
|
340
|
22 |
98 |
unless defined $argcount |
|
342
|
11 |
109 |
if ($argcount eq 2) { } |
|
|
13 |
96 |
elsif ($argcount eq 3) { } |
|
350
|
10 |
3 |
if defined $v |
|
361
|
18 |
102 |
if exists $$self{'ACTION'}{$variable} |
|
388
|
0 |
2 |
unless defined $criteria |
|
396
|
1 |
1 |
if $strip |
|
430
|
0 |
258 |
if $variable eq 'DESTROY' |
|
437
|
141 |
117 |
if (($attrib = $variable) =~ s/_//g) |
|
440
|
9 |
132 |
if (exists $METHFLAGS{$attrib}) |
|
444
|
115 |
17 |
if (exists $METHVARS{$attrib}) |
|
460
|
26 |
108 |
defined $_[0] ? : |
|
488
|
10 |
8 |
if ($opt =~ /^GLOBALS?$/i) |
|
489
|
0 |
10 |
unless (ref $$cfg{$opt} eq 'HASH') |
|
499
|
18 |
0 |
if $global =~ /(^$global_ok$)/io |
|
508
|
4 |
4 |
if ($opt =~ /^CASE|CREATE|PEDANTIC$/i) |
|
514
|
4 |
0 |
if ($opt =~ /^ERROR$/i) |
|
520
|
0 |
0 |
if ($opt =~ /^DEBUG$/i) |
|
558
|
5 |
639 |
$$self{'CASE'} ? : |
|
562
|
27 |
617 |
if exists $$self{'ALIAS'}{$variable} |
|
566
|
41 |
603 |
unless (exists $$self{'VARIABLE'}{$variable}) |
|
568
|
20 |
21 |
if ($variable =~ /^no(.*)/) |
|
572
|
19 |
1 |
if (exists $$self{'VARIABLE'}{$novar} and not $$self{'ARGCOUNT'}{$novar}) |
|
576
|
11 |
8 |
if defined $negated |
|
601
|
73 |
0 |
if (exists $$self{'VARIABLE'}{$variable}) { } |
|
605
|
4 |
69 |
unless defined $argcount |
|
607
|
18 |
55 |
if ($argcount == 0) { } |
|
|
7 |
48 |
elsif ($argcount == 2) { } |
|
|
6 |
42 |
elsif ($argcount == 3) { } |
|
613
|
1 |
6 |
ref $deflist eq 'ARRAY' ? : |
|
619
|
1 |
5 |
ref $defhash eq 'HASH' ? : |
|
673
|
107 |
15 |
unless defined($validator = $$self{'VALIDATE'}{$variable}) |
|
683
|
2 |
13 |
if (ref $validator eq 'CODE') |
|
689
|
13 |
0 |
unless (ref $validator) |
|
714
|
4 |
0 |
if (ref $$self{'EHANDLER'} eq 'CODE') { } |
|
747
|
18 |
8 |
if (defined $handler) |
|
749
|
18 |
0 |
if (ref $handler eq 'CODE') { } |
|
753
|
0 |
18 |
if $DEBUG |
|
778
|
11 |
0 |
if ref $_[0] |
|
785
|
0 |
11 |
if defined $newval |
|
802
|
0 |
0 |
unless defined $var |
|
806
|
0 |
0 |
if ($var eq $real) { } |
|
818
|
0 |
0 |
defined $$self{'VARIABLE'}{$var} ? : |
|
823
|
0 |
0 |
defined $$self{$param}{$var} ? : |
|
832
|
0 |
0 |
if defined $$self{'ALIASES'}{$var} |
|
853
|
0 |
0 |
defined $$self{$_} ? : |