| blib/lib/File/Value.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 55 | 45.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 57 | 12 | 4 | 2 | $how ne 'trim' and $how ne 'raw' |
| 16 | 1 | 1 | $how ne 'trim' and $how ne 'raw' and $how ne 'untaint' | |
| 81 | 9 | 2 | 1 | defined $length && $length eq '0' |
| 111 | 2 | 0 | 10 | $n = read(IN, $$ret_value, $length, $offset) and $n > 0 |
| 2 | 9 | 1 | $n = read(IN, $$ret_value, $length, $offset) and $n > 0 and ($offset += $n) < $length | |
| 117 | 2 | 9 | 0 | defined $statlength and $offset < $statlength |
| 212 | 1 | 1 | 12 | $base and $last |
| 307 | 0 | 0 | 0 | $$opt{'no_type_mismatch'} and ($isa_dir xor $as_dir) |
| 355 | 0 | 0 | 0 | sysopen FH, $node, 192 and close FH || 1 |
| line | l | !l | condition |
|---|---|---|---|
| 55 | 10 | 8 | $how ||= 'trim' |
| 212 | 1 | 1 | $base || '' |
| 1 | 1 | $last || '' | |
| 244 | 0 | 0 | $template ||= '' |
| 260 | 0 | 0 | $template ||= '' |
| 290 | 0 | 0 | -f $template or return -1, "mknextcopy only works if '${template}' is a " . 'pre-existing file' |
| 294 | 0 | 0 | $$opt{'no_type_mismatch'} ||= 0 |
| 297 | 0 | 0 | $as_dir ||= 0 |
| 355 | 0 | 0 | close FH || 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 264 | 0 | 0 | 0 | $min > $n or $min < 0 |
| 282 | 0 | 0 | 0 | $opt ||= snag_opt_defaults() |
| line | l&&r | l&&!r | !l&&r | !l&&!r | condition |
|---|---|---|---|---|---|
| 307 | 0 | 0 | 0 | 0 | $isa_dir xor $as_dir |