[gitmo/Moose.git] / t / 050_metaclasses / 020_metaclass_parameterized_traits.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More skip_all => "Feature not implemented yet";
#use Test::More tests => 1;

{
    package My::Trait;
    use Moose::Role;

    sub reversed_name {
        my $self = shift;
        scalar reverse $self->name;
    }
}

{
    package My::Class;
    use Moose -traits => [
        'My::Trait' => {
            alias => {
                reversed_name => 'enam',
            },
        },
    ];
}

is(My::Class->meta->enam, 'ssalC::yM', 'parameterized trait applied');
Commit	Line	Data
ea505fce	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