Branch Coverage

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) { }