trAvis - MANAGER
Edit File: 018-parameter-roles.t
use strict; use warnings; use Test::More skip_all => "Not implemented yet"; #use Test::More; { package Test::Role; use MooseX::Role::Parameterized; parameter name => ( isa => "Str", is => "ro", required => 1, ); role { my $p = shift; method foo => sub { "hello " . $p->name }; has blech => ( isa => "Str", is => "ro", required => 1, ); }; package Test::Consumer; use MooseX::Role::Parameterized -parameter_roles => [ 'Test::Role' => { name => "foo" }, ]; role { my $p = shift; method parameters => sub { $p }; }; package Test::Class; use Moose; with 'Test::Consumer' => { blech => "yes" }; } my $obj = Test::Class->new; does_ok( $obj, "Test::Consumer" ); can_ok( $obj, "parameters" ); my $p = $obj->parameters; does_ok( $p, "Test::Role" ); can_ok( $p, "foo" ); can_ok( $p, "blech" ); is( $p->blech, "yes" ); is( $p->foo, "hello foo" ); done_testing;