Branch Coverage

blib/lib/Data/CompactReadonly.pm
Criterion Covered Total %
branch 16 18 88.8


line true false branch
188 0 57 unless open my $fh, '>:unix', $file
199 4 53 if ($@ and index($@, "Data::CompactReadonly::V${version}::Node"->_ptr_blown) != -1) { }
0 53 elsif ($@) { }
209 58 56 if (ref $file) { }
212 2 56 if (grep {not $_ =~ /^(unix|perlio|scalar)$/;} @layers)
220 1 55 unless open $fh, '<', $file
228 1 110 unless defined $byte5
232 1 109 if $version == 31
239 7 211 exists $args{$_} ? :