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;
14 sub BUILD { $called++ }
18 is($called, 1, "BUILD called from ->new");
20 Foo->meta->new_object;
21 is($called, 1, "BUILD called from ->meta->new_object");