| line |
true |
false |
branch |
|
25
|
5 |
0 |
if ($path and -e $path and $options{'parse'}) |
|
26
|
0 |
5 |
unless my $io = 'IO::File'->new($path) |
|
29
|
0 |
24 |
unless defined $line and length $line |
|
34
|
9 |
15 |
if (ref $options{'parse'} eq 'CODE') { } |
|
|
15 |
0 |
elsif (ref $options{'parse'} eq '' or uc ref $options{'parse'} eq 'REGEXP') { } |
|
40
|
10 |
5 |
ref $options{'parse'} ? : |
|
49
|
16 |
8 |
if (defined $key and length $key) |
|
50
|
16 |
0 |
if length $key |
|
70
|
1 |
3 |
if $$self{'ro'} |
|
87
|
1 |
1 |
if $$self{'ro'} |
|
98
|
1 |
0 |
if $$self{'ro'} |
|
127
|
2 |
0 |
if (defined $format) { } |
|
134
|
4 |
1 |
if (ref $format eq 'CODE') { } |
|
|
1 |
0 |
elsif (ref $format eq '') { } |
|
163
|
1 |
2 |
if ($path and $$self{'dirty'} and $$self{'format'} and not $$self{'ro'}) |
|
164
|
0 |
1 |
unless my $io = 'IO::File'->new('>' . $path) |