| blib/lib/File/Temp/Rename.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 12 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 3 | unless my $filename = delete $opt{'FILE'} |
| 23 | 1 | 2 | if (-e $filename and not $clobber) |
| 27 | 0 | 2 | unless my $self = $class->SUPER::new('TEMPLATE', "$filename.tmpXXXXX", 'UNLINK', 0) |
| 37 | 0 | 2 | unless my $filename = delete $obj2original{refaddr $self} |
| 40 | 2 | 0 | if $self->can('SUPER::DESTROY') |
| 42 | 0 | 2 | unless move($tmp_filename, $filename) |