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