| line |
true |
false |
branch |
|
34
|
0 |
1 |
unless defined $file |
|
40
|
1 |
4 |
if (@_ > 2) |
|
50
|
0 |
4 |
unless defined $variable |
|
51
|
0 |
4 |
if $self->has_special_characters($variable) |
|
52
|
0 |
4 |
unless -e $$self{'file'} |
|
54
|
0 |
4 |
unless open my $CONFIG, '<', $$self{'file'} |
|
60
|
12 |
3 |
unless $line =~ / ^ $variable \s* = /msx |
|
67
|
0 |
4 |
unless close $CONFIG |
|
77
|
0 |
5 |
if $self->has_special_characters($variable) |
|
79
|
0 |
3 |
unless -e $$self{'file'} |
|
81
|
0 |
3 |
unless open my $CONFIG, '<', $$self{'file'} |
|
89
|
9 |
5 |
unless $line =~ / ^ $variable \s* = /msx |
|
99
|
0 |
3 |
unless close $CONFIG |
|
105
|
1 |
2 |
unless -e $$self{'file'} |
|
117
|
0 |
2 |
if $self->has_special_characters($variable) |
|
122
|
0 |
2 |
if ($self->variable_exists($variable)) { } |
|
132
|
0 |
3 |
if $self->has_special_characters($variable) |
|
137
|
0 |
3 |
unless open my $CONFIG, '>>', $$self{'file'} |
|
138
|
0 |
3 |
unless print {$CONFIG;} "$variable = $value\n" |
|
140
|
0 |
3 |
unless close $CONFIG |
|
146
|
0 |
1 |
if $self->has_special_characters($variable) |
|
150
|
0 |
1 |
unless tie @config, 'Tie::File', $$self{'file'} |
|
154
|
1 |
1 |
if ($line =~ / ^ ( \s* $variable \s* = \s* ) /msx) |
|
158
|
0 |
1 |
unless untie @config |
|
164
|
0 |
2 |
unless open my $CONFIG, '>>', $$self{'file'} |
|
166
|
0 |
3 |
unless print {$CONFIG;} "# $text\n" |
|
168
|
0 |
2 |
unless close $CONFIG |