t/050_metaclasses/020_metaclass_parameterized_traits.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More skip_all => "Feature not implemented yet";
   5 #use Test::More tests => 1;
   6
   7 {
   8     package My::Trait;
   9     use Moose::Role;
  10
  11     sub reversed_name {
  12         my $self = shift;
  13         scalar reverse $self->name;
  14     }
  15 }
  16
  17 {
  18     package My::Class;
  19     use Moose -traits => [
  20         'My::Trait' => {
  21             alias => {
  22                 reversed_name => 'enam',
  23             },
  24         },
  25     ];
  26 }
  27
  28 is(My::Class->meta->enam, 'ssalC::yM', 'parameterized trait applied');
  29