| blib/lib/Tie/File/FixedRecLen/Store.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 22 | 63.6 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 2 | 1 | if (not defined $file && defined $args{'record_length'} or $args{'record_length'} =~ /\D/) |
| 33 | 0 | 1 | unless open my $fh, '>>', $file |
| 35 | 0 | 1 | unless flock $fh, 2 |
| 45 | 0 | 1 | if $filesize % $elemlen != 0 |
| 68 | 1 | 3 | if grep {length $_ > $$self{'reclen'};} @list |
| 71 | 0 | 3 | if grep {/$$self{'recsep'}/;} @list |
| 92 | 1 | 1 | if length $value > $$self{'reclen'} |
| 95 | 0 | 1 | if $value =~ /$$self{'recsep'}/ |
| 100 | 0 | 1 | if $blanks < 0 |
| 112 | 0 | 1 | if $count == $$self{'records'} |
| 114 | 0 | 1 | if $count < $$self{'records'} |