[gitmo/MooseX-Role-Parameterized.git] / t / 012-rename-role.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 1;

do {
    package MyRole;
    use MooseX::Role::Parameterized (
        role => { -as => 'parameterized_role' },
        'method',
    );

    parameterized_role {
        method ok => sub {};
    };
};

my $role = MyRole->meta->generate_role;
ok($role->has_method('ok'), "renaming the role block export works");
Commit	Line	Data
9ba16fb4	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 1;
	5
	6	do {
	7	package MyRole;
	8	use MooseX::Role::Parameterized (
	9	role => { -as => 'parameterized_role' },
	10	'method',
	11	);
	12
	13	parameterized_role {
	14	method ok => sub {};
	15	};
	16	};
	17
	18	my $role = MyRole->meta->generate_role;
	19	ok($role->has_method('ok'), "renaming the role block export works");
	20