| blib/lib/Directory/Scratch.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 19 | 25 | 76.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 48 | 37 | 0 | 0 | defined $ENV{'PERL_DIRECTORYSCRATCH_CLEANUP'} and $ENV{'PERL_DIRECTORYSCRATCH_CLEANUP'} == 0 |
| 68 | 35 | 1 | 1 | $args{'TEMPLATE'} and not $args{'DIR'} |
| 87 | 1 | 3 | 0 | blessed $self and $self->isa('Directory::Scratch') |
| 172 | 1 | 1 | 15 | -e $dir and -d $dir |
| 238 | 5 | 50 | 3 | defined $method and $method eq 'Directory::Scratch::append' |
| line | l | !l | condition |
|---|---|---|---|
| 239 | 1 | 2 | $, || "\n" |
| 244 | 1 | 54 | $, || "\n" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 356 | 3 | 2 | 0 | scalar rmdir $path || croak("Couldn't remove directory ${path}: $!") |
| 359 | 5 | 0 | 0 | scalar unlink($path) || croak("Couldn't unlink ${path}: $!") |