| line |
true |
false |
branch |
|
70
|
1 |
1 |
if ($args) |
|
73
|
1 |
1 |
if (&Switch::case('path')) |
|
74
|
1 |
0 |
if (&Switch::case('file')) |
|
75
|
0 |
0 |
if (&Switch::case('debug')) { } |
|
89
|
2 |
13 |
if (@_) |
|
99
|
2 |
12 |
if (@_) |
|
109
|
2 |
9 |
if (@_) |
|
138
|
1 |
2 |
unless (-e $full_path) |
|
139
|
1 |
0 |
if $self->debug |
|
140
|
0 |
1 |
unless open my $fh, '>' . $full_path |
|
144
|
0 |
3 |
unless -e $full_path |
|
145
|
0 |
3 |
unless -r $full_path |
|
146
|
0 |
3 |
unless -w $full_path |
|
156
|
0 |
3 |
unless open my $fh, '<' . $file |
|
160
|
6 |
1 |
if ($line =~ /^\s{0,}(\S+)\s{0,}=\s{0,}(.*?)\s\#{0,}.*/u) |
|
187
|
0 |
4 |
unless open my $fh, '>' . $file |
|
202
|
0 |
4 |
unless $$self{'attached'} |
|
204
|
4 |
0 |
if $self->debug |
|
206
|
4 |
0 |
if (defined $$self{'_conf'}) { } |
|
210
|
3 |
1 |
if defined $h{$k} |
|
211
|
3 |
1 |
defined $v ? : |
|
|
4 |
0 |
if $self->debug |
|
226
|
0 |
2 |
unless $$self{'attached'} |
|
239
|
0 |
0 |
if (defined $$self{'conf'}) { } |
|
241
|
0 |
0 |
if (defined $$self{'_conf'}{$k}) { } |