File Coverage

blib/lib/File/Temp/Rename.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	7	12	58.3
condition	3	3	100.0
subroutine	9	9	100.0
pod	1	1	100.0
total	57	62	91.9

package File::Temp::Rename;
{
  $File::Temp::Rename::VERSION = '0.02';
}
# ABSTRACT: Create a temporary file object for output, and rename it when done.

use strict;
use warnings;
use Carp;
use File::Temp;
use File::Copy qw/move/;
use Scalar::Util qw/refaddr/;
use base qw/File::Temp/;

our %obj2original;

sub new {
    my $class = shift;
    my %opt = @_;
    my $filename = delete $opt{FILE} or croak "need FILE argument";
    my $clobber  = delete $opt{CLOBBER};

    if (-e $filename and ! $clobber){
        return;
    }

    my $self = $class->SUPER::new(TEMPLATE => "$filename.tmpXXXXX", UNLINK => 0) or croak "couldn't create tmp file";
    my $tmp_filename = $self->filename;

    my $addr = refaddr($self);
    $obj2original{$addr} = $filename;
    return $self;
}

sub DESTROY{
    my $self = shift;
    my $filename = delete $obj2original{refaddr($self)} or die "$self does not have appropriate entry in obj2original? bug, please report";
    my $tmp_filename = $self->filename;

    $self->SUPER::DESTROY if $self->can("SUPER::DESTROY");

    move($tmp_filename, $filename) or croak "couldn't rename $tmp_filename to $filename";
}

1;

__END__