t/012-rename-role.t

   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