line |
true |
false |
branch |
90
|
0 |
12 |
unless $self->property($k, $v) |
93
|
0 |
19 |
unless $rv |
111
|
40 |
18 |
defined $val ? : |
116
|
1 |
57 |
unless defined $arg and exists $self->{$arg} |
120
|
39 |
18 |
scalar @args == 2 ? : |
125
|
39 |
18 |
if (scalar @args == 2) |
127
|
2 |
37 |
if ($arg eq 'ORDER') { } |
|
7 |
30 |
elsif ($arg eq 'CONF' or $arg eq 'COERCE' or $arg eq 'DEFAULTS') { } |
|
1 |
29 |
elsif (ref $val ne '') { } |
130
|
1 |
1 |
unless (ref $val eq "ARRAY") |
140
|
1 |
6 |
unless (ref $val eq "HASH") |
147
|
6 |
1 |
if ($rv) |
149
|
3 |
3 |
if ($arg eq 'COERCE') { } |
|
3 |
0 |
elsif ($arg eq 'DEFAULTS') { } |
153
|
6 |
0 |
defined $val->{$_} ? : |
154
|
1 |
3 |
unless ($ival eq "string" or $ival eq "list" or $ival eq "hash") |
170
|
0 |
0 |
unless exists $self->{'CONF'}{$k} |
189
|
53 |
4 |
if ($rv) |
190
|
35 |
18 |
if (scalar @args == 2) { } |
193
|
1 |
34 |
if (ref $val eq 'ARRAY') { } |
|
5 |
29 |
elsif (ref $val eq 'HASH') { } |
211
|
2 |
16 |
if (defined $self->{$arg} and ref $self->{$arg} ne '') { } |
214
|
1 |
0 |
ref $self->{$arg} eq 'HASH' ? : |
|
1 |
1 |
ref $self->{$arg} eq 'ARRAY' ? : |
216
|
2 |
0 |
if (defined $rv) { } |
217
|
0 |
2 |
unless (&deepCopy(\$self->{$arg}, \$rv)) |
275
|
0 |
26 |
unless defined $file |
291
|
26 |
0 |
if (&detaint(\$file, 'filename')) { } |
292
|
25 |
1 |
if (&slurp($file, \@lines, 1)) { } |
295
|
5 |
20 |
if $self->{'AUTOPURGE'} |
331
|
0 |
3 |
unless defined $file |
336
|
2 |
1 |
if (-e $file and -r _) { } |
343
|
1 |
1 |
$mtime > $omtime ? : |
385
|
0 |
5 |
unless defined $file |
389
|
5 |
0 |
unless defined $padding |
390
|
3 |
2 |
unless $smart |
395
|
5 |
0 |
$padding == 2 ? : |
|
0 |
5 |
$padding == 1 ? : |
|
0 |
5 |
$padding == 0 ? : |
405
|
8 |
43 |
unless grep /^\Q$tmp\E$/ms, @forder |
415
|
51 |
0 |
exists $conf->{$param} ? : |
417
|
51 |
0 |
exists $conf->{$param} ? : |
419
|
11 |
18 |
ref $value eq 'ARRAY' ? : |
|
3 |
29 |
ref $value eq 'HASH' ? : |
|
19 |
32 |
exists $coerce->{$param} ? : |
427
|
0 |
51 |
unless $out =~ /\n$/ms |
434
|
29 |
22 |
if ($type eq 'string') { } |
|
17 |
5 |
elsif ($type eq 'list') { } |
438
|
19 |
10 |
unless ($smart and exists $coerce->{$param}) |
440
|
4 |
15 |
if $tvalue =~ /$delimRegex/ms |
450
|
20 |
34 |
if ($smart and exists $coerce->{$param}) { } |
451
|
4 |
16 |
if /\Q$listDelim\E/ms |
453
|
12 |
22 |
if /$delimRegex/ms |
465
|
0 |
20 |
if /$delimRegex/ms |
466
|
0 |
20 |
if ($tmp ne $_) |
472
|
5 |
15 |
if $tvalue->{$tmp} =~ /$delimRegex/ms |
480
|
20 |
31 |
$smart ? : |
481
|
0 |
51 |
unless $out =~ /\n$/ms |
485
|
5 |
0 |
if (&detaint(\$file, 'filename')) { } |
486
|
5 |
0 |
if (open $fh, '>', $file) { } |
490
|
5 |
0 |
if (print $fh $out) { } |
499
|
5 |
0 |
if $rv |
544
|
37 |
40 |
defined $value ? : |
551
|
51 |
26 |
exists $self->{'COERCE'}{$param} ? : |
561
|
0 |
77 |
unless defined $param |
566
|
37 |
40 |
if (scalar @args == 2) { } |
574
|
8 |
29 |
unless exists $conf->{$param} |
577
|
32 |
5 |
if ($coerceType ne 'undef') { } |
581
|
3 |
29 |
if ($coerceType eq 'string' and ref $value ne '') { } |
|
3 |
26 |
elsif ($coerceType eq 'list' and ref $value ne 'ARRAY') { } |
|
3 |
23 |
elsif ($coerceType eq 'hash' and ref $value ne 'HASH') { } |
584
|
2 |
1 |
if (ref $value eq 'ARRAY') { } |
|
1 |
0 |
elsif (ref $value eq 'HASH') { } |
589
|
0 |
7 |
if /\Q$listDelim\E/ms |
600
|
0 |
2 |
if /(?:\Q$hashDelim\E|\Q$listDelim\E)/ms |
602
|
0 |
2 |
unless defined $value->{$_} |
604
|
0 |
2 |
if $value->{$_} =~ /(?:\Q$hashDelim\E|\Q$listDelim\E)/ms |
608
|
2 |
0 |
defined $value->{$_} ? : |
621
|
2 |
1 |
if (ref $value eq 'HASH') { } |
|
1 |
0 |
elsif (ref $value eq '') { } |
648
|
1 |
2 |
if (ref $value eq 'ARRAY') { } |
|
2 |
0 |
elsif (ref $value eq '') { } |
652
|
1 |
0 |
unless int scalar @$value / 2 == scalar @$value / 2 |
690
|
1 |
0 |
exists $defaults->{$param} ? : |
|
39 |
1 |
exists $conf->{$param} ? : |
696
|
11 |
60 |
ref $rv eq 'ARRAY' ? : |
|
6 |
71 |
ref $rv eq 'HASH' ? : |
708
|
21 |
0 |
defined $type ? : |
712
|
0 |
12 |
unless $itype eq "string" or $itype eq "list" or $itype eq "hash" |
716
|
0 |
21 |
unless @params |
722
|
45 |
0 |
if (defined $_) { } |
727
|
22 |
23 |
if exists $self->{'CONF'}{$_} |
763
|
0 |
0 |
unless (exists $conf->{$_}) |
765
|
0 |
0 |
if (exists $coerce->{$_}) { } |
768
|
0 |
0 |
$coerce->{$_} eq 'hash' ? : |
|
0 |
0 |
$coerce->{$_} eq 'list' ? : |
795
|
1 |
1 |
if scalar @new |
824
|
0 |
28 |
unless $self->{'LIST_DELIM'} ne $self->{'HASH_DELIM'} |
835
|
174 |
511 |
if ($lines[$i] =~ /\\\s*$/ms) |
845
|
174 |
0 |
if ($i < $#lines) |
865
|
27 |
217 |
if (exists $self->{'COERCE'}{$field}) { } |
873
|
79 |
112 |
scalar quotewords(qr/\s*\Q$listDelim\E\s*/ms, 0, $value) > 1 ? : |
|
26 |
191 |
scalar quotewords(qr/\s*\Q$hashDelim\E\s*/ms, 0, $value) > 1 ? : |
884
|
132 |
112 |
unless $type eq "scalar" |
892
|
112 |
132 |
if ($type eq 'scalar') { } |
|
30 |
102 |
elsif ($type eq 'hash') { } |
|
88 |
14 |
elsif ($type eq 'list') { } |
897
|
20 |
0 |
unless $smart and exists $self->{'COERCE'}{$field} and $self->{'COERCE'}{$field} eq "scalar" |
912
|
171 |
73 |
unless grep /^\Q$field\E$/ms, @$order |
920
|
208 |
303 |
if ($line =~ /^\s*(?:#.*)?$/ms) { } |
926
|
16 |
192 |
if length $entry |
929
|
110 |
98 |
length $comment > 0 ? : |
939
|
0 |
303 |
unless (length $entry or $line =~ /\Q$tagDelim\E/ms) |
948
|
121 |
182 |
if ($smart) { } |
952
|
96 |
25 |
if (length $entry) { } |
956
|
59 |
37 |
if (length $indentation > $i) { } |
987
|
9 |
19 |
if length $entry |
1024
|
576 |
38 |
if (length $segment <= $textWidth - length($lines[-1])) { } |
|
23 |
15 |
elsif (length $segment <= $textWidth - length($subIndent)) { } |
1039
|
0 |
15 |
$#lines == 0 ? : |
1043
|
15 |
0 |
if (length $segment > $textWidth - length($lines[-1])) { } |
1045
|
0 |
15 |
$#lines == 0 ? : |
1074
|
0 |
3 |
unless defined $param |