| perllib/Arch/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 42 | 40.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 44 | 29 | 0 | 0 | $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cA") ne "\000" |
| 80 | 2185 | 0 | 0 | $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cD") ne "\000" |
| 98 | 2131 | 0 | 0 | $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cD") ne "\000" |
| 132 | 0 | 0 | 3 | -d _ && -w _ |
| 6 | 3 | 0 | -e _ and not -d _ && -w _ | |
| 135 | 6 | 0 | 0 | $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cB") ne "\000" |
| line | l | !l | condition |
|---|---|---|---|
| 39 | 29 | 0 | shift() || die() |
| 56 | 28 | 0 | shift() || die() |
| 64 | 5 | 8 | $lines[0] || '' |
| 68 | 11 | 0 | shift() || die() |
| 126 | 2 | 0 | $ENV{'HOME'} || '/tmp' |
| 150 | 0 | 0 | $months{$1} || 88 |
| 169 | 0 | 0 | shift() || die("adjacent_revision: no offset given\n") |
| 214 | 0 | 0 | shift() || die() |
| 215 | 0 | 0 | shift() || die() |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 125 | 1 | 0 | 2 | $dir ||= $ENV{'ARCH_MAGIC_DIR'} |
| 126 | 1 | 2 | 0 | $dir ||= ($ENV{'HOME'} || '/tmp') . '/.arch-magic' |