| line |
true |
false |
branch |
|
28
|
0 |
0 |
if ($opt{'nml'} and ref $opt{'nml'} eq 'HASH') |
|
31
|
0 |
0 |
if ($opt{'file'} or $opt{'fh'}) |
|
32
|
0 |
0 |
unless $self->load(%opt) |
|
43
|
0 |
0 |
$grp_name && !$var_name ? : |
|
|
0 |
0 |
$grp_name && $var_name ? : |
|
53
|
0 |
0 |
unless (keys %opt) |
|
63
|
0 |
0 |
if (not exists $hg{lc $g}) { } |
|
81
|
0 |
0 |
if ($v) |
|
82
|
0 |
0 |
if $seen{$v}++ |
|
113
|
0 |
0 |
unless exists $$self{'nml'}{$gname}{$vname} |
|
136
|
0 |
0 |
if (ref $val eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $val eq 'ARRAY') { } |
|
146
|
0 |
0 |
unless (looks_like_number $v) |
|
162
|
0 |
0 |
if ($opt{'file'}) |
|
164
|
0 |
0 |
unless open $fh, '>', $opt{'file'} |
|
169
|
0 |
0 |
if (exists $$g{'comment'}) |
|
173
|
0 |
0 |
if $opt{'group'} and lc $opt{'group'} ne lc $$g{'name'} |
|
189
|
0 |
0 |
trim($lhs) ? : |
|
193
|
0 |
0 |
@$rhs > 1 ? : |
|
198
|
0 |
0 |
if (@r) { } |
|
199
|
0 |
0 |
if ($lvs < $nl) { } |
|
208
|
0 |
0 |
if ($lvs < $nl) { } |
|
230
|
0 |
0 |
$opt{'nml'} && ref $opt{'nml'} eq 'HASH' ? : |
|
233
|
0 |
0 |
if ($opt{'file'}) |
|
234
|
0 |
0 |
unless open $fh, '<', $opt{'file'} |
|
246
|
0 |
0 |
if (/^(\s*\!.*)$/) |
|
248
|
0 |
0 |
if (not $ch_start) { } |
|
259
|
0 |
0 |
unless length $_ |
|
260
|
0 |
0 |
if (m[(\$|\&)(\w+)(.*)(\$end|/)]gimsx) |
|
277
|
0 |
0 |
if (m[(\$end|/)$]i) |
|
291
|
0 |
0 |
if (/^(\$|\&)([A-Za-z]\w+)( |$)/) |
|
304
|
0 |
0 |
$ch_start || $ch_end ? : |
|
317
|
0 |
0 |
unless exists $$self{'nml'}{$name} |
|
346
|
0 |
0 |
unless ($g) |
|
360
|
0 |
0 |
if (not $l =~ /=/) { } |
|
383
|
0 |
0 |
if (not $l =~ /^\s*\!/) { } |
|
446
|
0 |
0 |
unless (exists $$self{'nml'}{$gname}{$var}) |
|
466
|
0 |
0 |
ref $h eq 'HASH' ? : |
|
469
|
0 |
0 |
if (@k) { } |
|
484
|
0 |
0 |
$j ? : |
|
497
|
0 |
0 |
if (@$index) { } |
|
|
0 |
0 |
elsif (ref $h eq 'HASH') { } |
|
499
|
0 |
0 |
exists $$h{$i} ? : |
|
|
0 |
0 |
!@$index ? : |
|
520
|
0 |
0 |
if ($var =~ s/(
\(.*\) # match indexes between parenthesis
)
(| # nothing or,
\(\d*:\d*\) # substring indexes, but we will not use them
# for now
)
//x) |
|
544
|
0 |
0 |
if $val =~ /\.(true|false)\./i |
|
570
|
0 |
0 |
if $nv |
|
578
|
0 |
0 |
!$sep && $c eq ',' ? : |
|
580
|
0 |
0 |
if $ok |
|
586
|
0 |
0 |
if (trim($all)) |