File Coverage

blib/lib/File/Tempdir.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	7	8	87.5
condition	2	3	66.6
subroutine	7	7	100.0
pod	2	2	100.0
total	39	41	95.1

package File::Tempdir;

use strict;
use warnings;
use File::Temp qw(tempdir);
use File::Path;

our $VERSION = '0.02';

=head1 NAME

File::Tempdir

=head1 SYNOPSYS

    use File::Tempdir;

    {
        my $tmpdir = File::Tempdir->new()
        my $dir = $tmpdir->name;
    }
    # the directory has been trashed
    my $adir = 'any directory';
    {
        my $tmpdir = File::Tempdir->new($dir)
        my $dir = $tmpdir->name;
    }
    # the directory has not been trashed

=head1 DESCRIPTION

This module provide an object interface to tempdir() from L.
This allow to destroy the temporary directory as soon you don't need it
anymore using the magic DESTROY() function automatically call be perl
when the object is no longer reference.

If a value is passed to at object creation, it become only a container
allowing to keep same code in your function.

=head1 FUNCTIONS

=head2 new(@options)

if @options is only one defined value, the directory is simply
retain in memory and will not been trashed.

Otherwise, @options are same than tempdir() from L.
Refer to L documentation to have options list.
In this case, the directory will be trashed.

=cut

sub new {
    my ($class, @args) = @_;
    if (@args == 1 && defined($args[0])) {
        # Not a tempdir, simply to have same interface in code
        return bless({ dir => $args[0] }, $class);
    } else {
        my $dir = tempdir(@args) or return undef;
        return bless({ tmpdir => $dir }, $class);
    }
}

sub DESTROY {
    my ($self) = @_;
    if ($self->{tmpdir}) {
        rmtree($self->{tmpdir}, 0, 0);
    }
}

=head2 name

Return the name of the directory handle by the object.

=cut

sub name {
    defined($_[0]->{tmpdir}) ? $_[0]->{tmpdir} : $_[0]->{dir}
}

1;

__END__