4 plan skip_all => "This test requires Moose 0.90" unless eval { require Moose; Moose->VERSION(0.90); };
7 test($_) for qw/Moose Mouse/;
14 package ${class}Class;
15 use Carp; # import external functions (not our methods)
21 package ${class}ClassImm;
22 use Carp; # import external functions (not our methods)
26 __PACKAGE__->meta->make_immutable();
30 use Carp; # import external functions (not our methods)
37 is join(',', sort "${class}Class"->meta->get_method_list()), 'foo,meta', "mutable $class";
38 is join(',', sort "${class}ClassImm"->meta->get_method_list()), 'DESTROY,foo,meta,new', "immutable $class";
39 is join(',', sort "${class}Role"->meta->get_method_list()), 'bar,meta', "role $class";