| blib/lib/clobber.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 19 | 31 | 61.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 63 | 0 | 5 | 2 | $[ < 5.008 and $mode =~ /^\s*(?:\>{1,2}|<)&=?/ |
| 80 | 1 | 1 | 7 | -e $file and $testmode =~ /$stricture/ |
| 95 | 1 | 0 | 4 | -e $file and $mode & $stricture |
| 114 | 12 | 0 | 0 | -t STDIN and exists $INC{'Term/ReadKey.pm'} |
| line | l | !l | condition |
|---|---|---|---|
| 8 | 0 | 2 | $^I ||= '~' |
| 11 | 0 | 2 | $_[1] || '' |
| 17 | 0 | 2 | $ENV{'clobber.pm'} || 0 |
| 21 | 1 | 1 | $_[1] || '' |
| 61 | 6 | 1 | $1 || '' |
| 7 | 0 | $2 || '' | |
| 1 | 6 | $3 || '' | |
| 98 | 0 | 1 | $perms || 438 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 117 | 0 | 0 | 0 | $_[2] || "Allow modification of '$_[0]'?" |