Branch Coverage

blib/lib/Inline/Files.pm
Criterion Covered Total %
branch 14 20 70.0


line true false branch
21 8 0 if $file =~ m[^(.*)/(.*)$]
27 1 0 if ($next eq '-backup') { }
30 0 1 unless open IN, $file and open OUT, ">$backup" and print OUT and close IN and close OUT
61 8 8 unless $source
91 1 5 unless $$symbol
92 2 3 $$impl{'writable'} ? :
93 0 5 unless &vf_open($symbol, "$open_mode$$symbol", $symbol)
94 0 5 unless tied *$symbol
102 0 2 unless $files{$_[0]}
136 2 8 unless $key =~ /$validkey/