| line |
true |
false |
branch |
|
35
|
12 |
0 |
unless ref $_[0] eq 'HASH' |
|
81
|
1 |
2 |
if (exists $$self{'valid'}{'base'}) |
|
102
|
6 |
0 |
if $tpl |
|
115
|
101 |
16 |
if exists $$thing{$key} |
|
117
|
3 |
13 |
unless defined $default |
|
119
|
0 |
16 |
if ($type eq 'ARRAY') { } |
|
|
0 |
16 |
elsif ($type eq 'BOOL') { } |
|
|
0 |
16 |
elsif ($type eq 'CODE') { } |
|
|
0 |
16 |
elsif ($type eq 'SIG') { } |
|
|
8 |
8 |
elsif ($type eq 'FRACT') { } |
|
125
|
0 |
0 |
$default =~ /^(false|off|no)$/i ? : |
|
138
|
0 |
8 |
if $$thing{$key} > 1 |
|
158
|
1 |
3 |
unless $class eq ref $obj |
|
161
|
0 |
3 |
if @_ > 0 |
|
165
|
3 |
36 |
if $key =~ /^_/ |
|
167
|
1 |
35 |
if defined $rc |
|
176
|
1 |
35 |
unless exists $$self{'valid'}{$key} |
|
193
|
6 |
10 |
if $line =~ /^\s*(#|$)/ |
|
195
|
0 |
10 |
unless $line =~ /\s*([\w:]+)\s*\{/ |
|
199
|
0 |
10 |
if ($class || '') eq '' |
|
209
|
0 |
37 |
if ($line =~ /\s*([\w-]+)\s*=>?\s*\{\s*$/) { } |
|
217
|
0 |
0 |
unless $line =~ /\s*([\w-]+)\s*=>?\s*(['\"])?(.*?)\2?\s*$/ |
|
229
|
0 |
37 |
unless $line =~ /\s*([\w-]+)\s*=>?\s*(['\"])?(.*?)\2?\s*$/ |
|
242
|
1 |
1 |
wantarray ? : |
|
253
|
0 |
66 |
if $k =~ /^_/ |
|
255
|
0 |
66 |
unless defined $v |
|
256
|
0 |
66 |
if (ref $v eq 'HASH') { } |
|
262
|
0 |
0 |
if ref $v |
|
269
|
0 |
66 |
if $v =~ /[^a-zA-Z0-9_\.,'"+-=]/ |
|
270
|
0 |
66 |
if $v eq '' |