2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
8 $TODO = q{Mouse is not yet completed};
12 package Foo::Meta::Instance;
15 sub is_inlinable { 0 }
17 after get_slot_value => sub { $called++ };
23 Mouse::Util::MetaRole::apply_metaroles(
26 instance => ['Foo::Meta::Instance'],
30 has foo => (is => 'ro');
33 my $foo = Foo->new(foo => 1);
34 is($foo->foo, 1, "got the right value");
35 is($called, 1, "reader was called");