| line |
true |
false |
branch |
|
17
|
0 |
1 |
ref $_[0] ? : |
|
20
|
0 |
1 |
unless my $file = shift() |
|
21
|
1 |
0 |
unless -e $file |
|
22
|
0 |
0 |
unless -f _ |
|
23
|
0 |
0 |
unless -r _ |
|
27
|
0 |
0 |
unless open CFG, $file |
|
36
|
0 |
0 |
ref $_[0] ? : |
|
38
|
0 |
0 |
unless defined $_[0] |
|
47
|
0 |
0 |
if /^\s*(?:\#|\;|$)/ |
|
53
|
0 |
0 |
if (/^\s*\[\s*(.+?)\s*\]\s*$/) |
|
62
|
0 |
0 |
if (/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) |
|
76
|
0 |
0 |
unless my $file = shift() |
|
82
|
0 |
0 |
unless defined $string |
|
83
|
0 |
0 |
unless open CFG, '>' . $file |
|
95
|
0 |
0 |
unless ($b eq '_') <=> ($a eq '_') |
|
100
|
0 |
0 |
if $section =~ /(?:^\s|\n|\s$)/s |
|
104
|
0 |
0 |
if length $contents |
|
105
|
0 |
0 |
unless $section eq '_' |
|
109
|
0 |
0 |
if $block->{$property} =~ /(?:\012|\015)/s |