die $@ if $@;
is join(',', sort "${class}Class"->meta->get_method_list()), 'foo,meta', "mutable $class";
is join(',', sort "${class}ClassImm"->meta->get_method_list()), 'DESTROY,foo,meta,new', "immutable $class";
- is join(',', sort "${class}Role"->meta->get_method_list()), 'bar', "role $class";
+ is join(',', sort "${class}Role"->meta->get_method_list()), 'bar,meta', "role $class";
}