Mini Shell
Mini Shell
| Direktori : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Role-Tiny-2.000006/t/ |
| Current File : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Role-Tiny-2.000006/t/create-hook.t |
use strict;
use warnings;
use Test::More;
use Role::Tiny ();
my $last_role;
push @Role::Tiny::ON_ROLE_CREATE, sub {
($last_role) = @_;
};
eval q{
package MyRole;
use Role::Tiny;
};
is $last_role, 'MyRole', 'role create hook was run';
eval q{
package MyRole2;
use Role::Tiny;
};
is $last_role, 'MyRole2', 'role create hook was run again';
done_testing;