6 use Test::More tests => 5;
20 bless { no_moose => "Elk" } => $class;
23 sub no_moose { $_[0]->{no_moose} }
32 has 'moose' => (is => 'ro', default => 'Foo');
36 my $super = $class->SUPER::new(@_);
37 return $class->meta->new_object('__INSTANCE__' => $super, @_);
41 my $foo_moose = Foo::Moose->new();
42 isa_ok($foo_moose, 'Foo::Moose');
43 isa_ok($foo_moose, 'Elk');
45 is($foo_moose->no_moose, 'Elk', '... got the right value from the Elk method');
46 is($foo_moose->moose, 'Foo', '... got the right value from the Foo::Moose method');