| line |
true |
false |
branch |
|
103
|
11 |
3 |
if ref $_[0] eq 'HASH' |
|
107
|
13 |
1 |
if @_ |
|
138
|
42 |
26 |
ref $_[0] eq 'HASH' ? : |
|
141
|
6 |
62 |
if ($var =~ s/(.+?)([!+=:].*)/$1/) |
|
144
|
6 |
0 |
if length $2 |
|
149
|
8 |
60 |
if (defined($args = $$cfg{'ARGS'})) |
|
150
|
1 |
7 |
if $args =~ /^!/ |
|
152
|
2 |
5 |
if $args =~ /@/ |
|
153
|
1 |
4 |
if $args =~ /%/ |
|
162
|
8 |
60 |
if @names |
|
165
|
67 |
1 |
unless $$self{'CASE'} |
|
179
|
138 |
24 |
if ($opt =~ /^DEFAULT|VALIDATE|EXPAND|ARGS|ARGCOUNT$/) |
|
185
|
0 |
24 |
if ($opt eq 'CMDARG') |
|
192
|
2 |
22 |
if ($opt eq 'ACTION') |
|
193
|
0 |
2 |
unless (ref $val eq 'CODE') |
|
205
|
22 |
0 |
if ($opt eq 'ALIAS') |
|
208
|
14 |
8 |
unless ref $val eq 'ARRAY' |
|
212
|
22 |
0 |
unless ($$self{'CASE'}) |
|
235
|
0 |
68 |
if ($DEBUG) |
|
262
|
1 |
115 |
unless (exists $$self{'VARIABLE'}{$variable}) |
|
270
|
0 |
0 |
defined $$self{'VARIABLE'}{$variable} ? : |
|
|
0 |
115 |
if $DEBUG |
|
278
|
4 |
111 |
$negate ? : |
|
304
|
112 |
11 |
if (exists $$self{'VARIABLE'}{$variable}) { } |
|
306
|
5 |
2 |
$value ? : |
|
|
7 |
105 |
if $negate |
|
312
|
10 |
1 |
if (defined $create and $create eq '1' || $variable =~ /$create/) { } |
|
316
|
0 |
10 |
if $DEBUG |
|
325
|
2 |
120 |
unless ($self->_validate($variable, $value)) |
|
331
|
0 |
0 |
defined $value ? : |
|
|
0 |
120 |
if $DEBUG |
|
341
|
22 |
98 |
unless defined $argcount |
|
343
|
11 |
109 |
if ($argcount eq 2) { } |
|
|
13 |
96 |
elsif ($argcount eq 3) { } |
|
351
|
10 |
3 |
if defined $v |
|
362
|
18 |
102 |
if exists $$self{'ACTION'}{$variable} |
|
389
|
0 |
2 |
unless defined $criteria |
|
397
|
1 |
1 |
if $strip |
|
431
|
0 |
258 |
if $variable eq 'DESTROY' |
|
438
|
141 |
117 |
if (($attrib = $variable) =~ s/_//g) |
|
441
|
9 |
132 |
if (exists $METHFLAGS{$attrib}) |
|
445
|
115 |
17 |
if (exists $METHVARS{$attrib}) |
|
461
|
26 |
108 |
defined $_[0] ? : |
|
489
|
10 |
8 |
if ($opt =~ /^GLOBALS?$/i) |
|
490
|
0 |
10 |
unless (ref $$cfg{$opt} eq 'HASH') |
|
500
|
18 |
0 |
if $global =~ /(^$global_ok$)/io |
|
509
|
4 |
4 |
if ($opt =~ /^CASE|CREATE|PEDANTIC$/i) |
|
515
|
4 |
0 |
if ($opt =~ /^ERROR$/i) |
|
521
|
0 |
0 |
if ($opt =~ /^DEBUG$/i) |
|
559
|
5 |
639 |
$$self{'CASE'} ? : |
|
563
|
27 |
617 |
if exists $$self{'ALIAS'}{$variable} |
|
567
|
41 |
603 |
unless (exists $$self{'VARIABLE'}{$variable}) |
|
569
|
20 |
21 |
if ($variable =~ /^no(.*)/) |
|
573
|
19 |
1 |
if (exists $$self{'VARIABLE'}{$novar} and not $$self{'ARGCOUNT'}{$novar}) |
|
577
|
11 |
8 |
if defined $negated |
|
602
|
73 |
0 |
if (exists $$self{'VARIABLE'}{$variable}) { } |
|
606
|
4 |
69 |
unless defined $argcount |
|
608
|
18 |
55 |
if ($argcount == 0) { } |
|
|
7 |
48 |
elsif ($argcount == 2) { } |
|
|
6 |
42 |
elsif ($argcount == 3) { } |
|
614
|
1 |
6 |
ref $deflist eq 'ARRAY' ? : |
|
620
|
1 |
5 |
ref $defhash eq 'HASH' ? : |
|
674
|
107 |
15 |
unless defined($validator = $$self{'VALIDATE'}{$variable}) |
|
684
|
2 |
13 |
if (ref $validator eq 'CODE') |
|
690
|
13 |
0 |
unless (ref $validator) |
|
715
|
4 |
0 |
if (ref $$self{'EHANDLER'} eq 'CODE') { } |
|
748
|
18 |
8 |
if (defined $handler) |
|
750
|
18 |
0 |
if (ref $handler eq 'CODE') { } |
|
754
|
0 |
18 |
if $DEBUG |
|
779
|
11 |
0 |
if ref $_[0] |
|
786
|
0 |
11 |
if defined $newval |
|
803
|
0 |
0 |
unless defined $var |
|
807
|
0 |
0 |
if ($var eq $real) { } |
|
819
|
0 |
0 |
defined $$self{'VARIABLE'}{$var} ? : |
|
824
|
0 |
0 |
defined $$self{$param}{$var} ? : |
|
833
|
0 |
0 |
if defined $$self{'ALIASES'}{$var} |
|
854
|
0 |
0 |
defined $$self{$_} ? : |