| line |
true |
false |
branch |
|
18
|
4 |
2 |
defined $_[1] ? : |
|
24
|
0 |
6 |
ref $_[0] ? : |
|
27
|
0 |
6 |
if not defined $file or $file eq "" |
|
31
|
2 |
4 |
$encoding ? : |
|
34
|
0 |
6 |
unless open my $CFG, $encoding, $file |
|
38
|
0 |
6 |
unless defined $contents |
|
48
|
0 |
14 |
ref $_[0] ? : |
|
51
|
0 |
14 |
unless defined $_[0] |
|
64
|
10 |
53 |
if /^\s*(?:\#|\;|$)/ |
|
72
|
15 |
38 |
if (/^\s*\[\s*(.+?)\s*\]\s*$/) |
|
85
|
38 |
0 |
if (/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) |
|
87
|
2 |
36 |
if (substr($1, -2) eq "[]") |
|
91
|
0 |
2 |
unless ref $self->{$ns}{$k} eq "ARRAY" |
|
113
|
0 |
3 |
if not defined $file or $file eq "" |
|
115
|
1 |
2 |
$encoding ? : |
|
121
|
0 |
3 |
unless defined $string |
|
123
|
0 |
3 |
unless open my $CFG, $encoding, $file |
|
138
|
0 |
6 |
unless ($b eq "_") <=> ($a eq "_") |
|
145
|
0 |
16 |
if $section =~ /(?:^\s|\n|\s$)/s |
|
148
|
7 |
9 |
if length $contents |
|
149
|
10 |
6 |
unless $section eq "_" |
|
153
|
1 |
24 |
if $block->{$property} =~ /(?:\012|\015)/s |
|
155
|
0 |
24 |
if (ref $block->{$property} eq "ARRAY") |