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{$_} ? : |