blib/lib/AnyEvent/MP/Config.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 2 | 16 | 12.5 |
line | true | false | branch |
---|---|---|---|
30 | 0 | 1 | if (open my $fh, '<:raw', $CONFIG_FILE) |
31 | 0 | 0 | if eval { do { local $/; (%CFG) = %{'JSON::XS'->new->utf8->relaxed->decode(scalar <$fh>);}; 1 } } |
44 | 1 | 0 | unless delete $CFG{'dirty'} |
46 | 0 | 0 | unless open my $fh, '>:raw', "$CONFIG_FILE~new~" |
49 | 0 | 0 | unless syswrite $fh, 'JSON::XS'->new->pretty->utf8->encode(\%CFG) . "\n" |
52 | 0 | 0 | unless close $fh |
57 | 0 | 0 | unless rename "$CONFIG_FILE~new~", $CONFIG_FILE |
69 | 0 | 0 | if (defined $name) { } |