1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
package EachTest;
use Test::Roo::Role;
has counter => (
is => 'rw',
lazy => 1,
builder => 1,
);
requires '_build_counter';
before each_test => sub {
my $self = shift;
pass("starting before module modifier");
$self->counter( $self->counter + 1 );
};
after each_test => sub {
my $self = shift;
$self->counter( $self->counter - 1 );
pass("finishing after module modifier");
};
test 'positive' => sub { ok( shift->counter, "counter positive" ) };
1;
|