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 |