| 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 |
51 |
if /^\s*(?:\#|\;|$)/ |
|
72
|
15 |
36 |
if (/^\s*\[\s*(.+?)\s*\]\s*$/) |
|
85
|
36 |
0 |
if (/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) |
|
105
|
0 |
3 |
if not defined $file or $file eq "" |
|
107
|
1 |
2 |
$encoding ? : |
|
113
|
0 |
3 |
unless defined $string |
|
115
|
0 |
3 |
unless open my $CFG, $encoding, $file |
|
130
|
0 |
6 |
unless ($b eq "_") <=> ($a eq "_") |
|
137
|
0 |
16 |
if $section =~ /(?:^\s|\n|\s$)/s |
|
140
|
7 |
9 |
if length $contents |
|
141
|
10 |
6 |
unless $section eq "_" |
|
145
|
1 |
24 |
if $block->{$property} =~ /(?:\012|\015)/s |