8 package Foo::Meta::Instance;
11 sub is_inlinable { 0 }
13 after get_slot_value => sub { $called++ };
19 Moose::Util::MetaRole::apply_metaroles(
22 instance => ['Foo::Meta::Instance'],
26 has foo => (is => 'ro');
29 my $foo = Foo->new(foo => 1);
30 is($foo->foo, 1, "got the right value");
31 is($called, 1, "reader was called");