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 '_' |
107
|
0 |
0 |
if $$block{$property} =~ /(?:\012|\015)/s |