|
1
by gregor herrmann
Import upstream version 1.002 |
1 |
package SetTear; |
2 |
use Test::Roo::Role; |
|
3 |
use File::Temp; |
|
4 |
||
5 |
has tempdir => ( is => 'rw', ); |
|
6 |
||
7 |
has tempname => ( is => 'rw', ); |
|
8 |
||
9 |
before setup => sub { |
|
10 |
my $self = shift; |
|
11 |
$self->tempdir( File::Temp->newdir ); |
|
12 |
$self->tempname( '' . $self->tempdir ); |
|
13 |
};
|
|
14 |
||
15 |
after teardown => sub { |
|
16 |
my $self = shift; |
|
17 |
$self->tempdir(undef); |
|
18 |
};
|
|
19 |
||
20 |
1; |