| line |
true |
false |
branch |
|
65
|
0 |
0 |
unless ref $text eq 'SCALAR' |
|
66
|
0 |
0 |
$$opts{'into'} ? : |
|
67
|
0 |
0 |
$$opts{'as_array'} ? : |
|
77
|
0 |
0 |
if ($block_comment) |
|
79
|
0 |
0 |
if (/\s*$PAT_COMMENT_END/) |
|
80
|
0 |
0 |
if ref $ptr eq 'SCALAR' |
|
89
|
0 |
0 |
if ($block_text) |
|
91
|
0 |
0 |
if (/\s*$block_text\s*/) |
|
98
|
0 |
0 |
$$ptr ? : |
|
103
|
0 |
0 |
if (/^\s*$PAT_HASH($PAT_LVAL*)\s*$PAT_OPEN?\s*$/) |
|
109
|
0 |
0 |
if isa($ptr, 'HASH') |
|
110
|
0 |
0 |
if isa($ptr, 'ARRAY') |
|
116
|
0 |
0 |
if (/^\s*$PAT_ARRAY($PAT_LVAL*)\s*$PAT_OPEN?\s*$/) |
|
121
|
0 |
0 |
if isa($ptr, 'HASH') |
|
122
|
0 |
0 |
if isa($ptr, 'ARRAY') |
|
128
|
0 |
0 |
if (/^\s*$PAT_SCALAR($PAT_LVAL*)\s*$PAT_OPEN?\s*$/) |
|
131
|
0 |
0 |
if (isa($ptr, 'HASH')) { } |
|
|
0 |
0 |
elsif (isa($ptr, 'ARRAY')) { } |
|
143
|
0 |
0 |
if (/^\s*($PAT_LVAL+)\s*$PAT_ASSIGN\s*(.*)/) |
|
149
|
0 |
0 |
if ($rval =~ /($PAT_ASSIGN_STRUCT)\s*$PAT_OPEN?\s*$/) |
|
151
|
0 |
0 |
unless (isa($ptr, 'HASH')) |
|
157
|
0 |
0 |
if ($1 eq $LIT_HASH) { } |
|
|
0 |
0 |
elsif ($1 eq $LIT_ARRAY) { } |
|
|
0 |
0 |
elsif ($1 eq $LIT_SCALAR) { } |
|
176
|
0 |
0 |
if ($rval =~ /$PAT_ASSIGN_BLOCK\s*($PAT_BLOCK_END+)\s*$/) |
|
179
|
0 |
0 |
if (isa($ptr, 'HASH')) { } |
|
|
0 |
0 |
elsif (isa($ptr, 'ARRAY')) { } |
|
192
|
0 |
0 |
unless (isa($ptr, 'HASH')) |
|
194
|
0 |
0 |
if isa($ptr, 'ARRAY') |
|
195
|
0 |
0 |
if isa($ptr, 'SCALAR') |
|
203
|
0 |
0 |
if (/^\s*$PAT_CLOSE\s*$/) |
|
206
|
0 |
0 |
unless (defined $ptr) |
|
213
|
0 |
0 |
if (/^\s*$PAT_OPEN\s*/) |
|
214
|
0 |
0 |
if (isa($ptr, 'HASH') and not keys %$ptr or isa($ptr, 'ARRAY') and not @$ptr or ref $ptr eq 'SCALAR' and not $$ptr) |
|
223
|
0 |
0 |
if (/^\s*$PAT_COMMENT_BEGIN/) |
|
224
|
0 |
0 |
if ref $ptr eq 'SCALAR' |
|
231
|
0 |
0 |
if (/^\s*$PAT_COMMENT/) |
|
232
|
0 |
0 |
if ($. == 1) { } |
|
235
|
0 |
0 |
if (@parts >= 3 and $parts[0] =~ /^Hash(File|Format)$/) |
|
237
|
0 |
0 |
if ($major > 2) |
|
245
|
0 |
0 |
unless ref $ptr eq 'SCALAR' |
|
249
|
0 |
0 |
if (ref $ptr eq 'ARRAY') |
|
252
|
0 |
0 |
unless $_ |
|
258
|
0 |
0 |
if (ref $ptr eq 'SCALAR') |
|
260
|
0 |
0 |
$$ptr ? : |
|
268
|
0 |
0 |
if @parents > 1 |
|
283
|
0 |
0 |
unless ref $ref |
|
285
|
0 |
0 |
ref $result eq 'SCALAR' ? : |
|
|
0 |
0 |
$$opts{'as_ref'} ? : |
|
293
|
0 |
0 |
unless my $ref = shift() |
|
301
|
0 |
0 |
if ($name and not $name =~ /^$PAT_LVAL+$/) |
|
305
|
0 |
0 |
if (isa($ref, 'HASH') or isa($ref, 'ARRAY')) { } |
|
|
0 |
0 |
elsif (ref $ref eq 'SCALAR') { } |
|
308
|
0 |
0 |
if ($level > 0) |
|
309
|
0 |
0 |
isa($ref, 'HASH') ? : |
|
310
|
0 |
0 |
if (defined $parent and isa($parent, 'HASH')) { } |
|
319
|
0 |
0 |
if (isa($ref, 'HASH')) { } |
|
|
0 |
0 |
elsif (isa($ref, 'ARRAY')) { } |
|
322
|
0 |
0 |
if (ref $$ref{$_}) { } |
|
334
|
0 |
0 |
ref $_ ? : |
|
340
|
0 |
0 |
if $level > 0 |
|
346
|
0 |
0 |
unless defined $value |
|
349
|
0 |
0 |
if (index($value, "\n") > -1 or $value =~ /^\s+/) { } |
|
351
|
0 |
0 |
if (defined $parent and isa($parent, 'HASH')) { } |
|
361
|
0 |
0 |
if ($name) { } |
|
373
|
0 |
0 |
if defined $name and $name |
|
413
|
0 |
0 |
$_[0] > 1 ? : |
|
431
|
0 |
0 |
if (defined $_[2]) |