← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libtest-roo-perl/trusty-proposed 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

package SetTear;
use Test::Roo::Role;
use File::Temp;

has tempdir => ( is => 'rw', );

has tempname => ( is => 'rw', );

before setup => sub {
    my $self = shift;
    $self->tempdir( File::Temp->newdir );
    $self->tempname( '' . $self->tempdir );
};

after teardown => sub {
    my $self = shift;
    $self->tempdir(undef);
};

1;