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;