6 use Test::More tests => 17;
23 -alias => { foo => 'baz', bar => 'gorch' },
24 -excludes => ['foo', 'bar'],
29 my $x = My::Class->new;
30 isa_ok($x, 'My::Class');
31 does_ok($x, 'My::Role');
33 can_ok($x, $_) for qw[baz gorch];
35 ok(!$x->can($_), '... cant call method ' . $_) for qw[foo bar];
37 is($x->baz, 'FOO', '... got the right value');
38 is($x->gorch, 'BAR', '... got the right value');
42 package My::Role::Again;
46 -alias => { foo => 'baz', bar => 'gorch' },
47 -excludes => ['foo', 'bar'],
50 package My::Class::Again;
53 with 'My::Role::Again';
57 my $x = My::Class::Again->new;
58 isa_ok($x, 'My::Class::Again');
59 does_ok($x, 'My::Role::Again');
60 does_ok($x, 'My::Role');
62 can_ok($x, $_) for qw[baz gorch];
64 ok(!$x->can($_), '... cant call method ' . $_) for qw[foo bar];
66 is($x->baz, 'FOO', '... got the right value');
67 is($x->gorch, 'BAR', '... got the right value');