| blib/lib/Dev/Util/Backup.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 9 | 24 | 37.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 191 | 0 | 1 | 1 | not $diff and $n1 = &Dev::Util::Backup::read($files[0]{'fh'}, \$buf1, 4096) |
| 1 | 0 | 1 | not $diff and $n1 = &Dev::Util::Backup::read($files[0]{'fh'}, \$buf1, 4096) and $n2 = &Dev::Util::Backup::read($files[1]{'fh'}, \$buf2, 4096) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 51 | 3 | 0 | 0 | $Dev::Util::Backup::REAL_USER_ID == 0 or $Dev::Util::Backup::REAL_USER_ID == $stat[4] |
| 64 | 1 | 0 | 0 | not defined $level or $level < 2 |
| 1 | 0 | 0 | not defined $level or $level < 2 or $level > 9 | |
| 84 | 1 | 0 | 0 | 'IO::File'->new_tmpfile || croak("Failed to create tmpfile\n") |
| 119 | 0 | 0 | 0 | -d $budir or &Dev::Util::Backup::mkdir($budir, 488) |
| 195 | 0 | 0 | 1 | $n1 != $n2 or $buf1 ne $buf2 |