| line |
true |
false |
branch |
|
32
|
0 |
1 |
if (open my $fh, '<:raw', $CONFIG_FILE) |
|
33
|
0 |
0 |
if eval {
do {
local $/;
(%CFG) = %{'JSON::XS'->new->utf8->relaxed->decode(scalar readline $fh);};
1
}
} |
|
46
|
1 |
0 |
unless delete $CFG{'dirty'} |
|
48
|
0 |
0 |
unless open my $fh, '>:raw', "$CONFIG_FILE~new~" |
|
51
|
0 |
0 |
unless syswrite $fh, 'JSON::XS'->new->pretty->utf8->encode(\%CFG) . "\n" |
|
54
|
0 |
0 |
unless close $fh |
|
59
|
0 |
0 |
unless rename "$CONFIG_FILE~new~", $CONFIG_FILE |
|
71
|
0 |
0 |
if (defined $name) { } |
|
94
|
0 |
0 |
unless ($norc) |
|
95
|
0 |
0 |
if ($force) { } |