Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub init_meta {
- my ($class, %options) = @_;
- my $for_class = $options{for_class};
- my $meta = find_meta($for_class) ||
- Moose::Meta::Class->initialize($for_class);
- Moose::Util::MetaRole::apply_base_class_roles(
- for_class => $class,
- roles => [ 'Test::MUnit::Role' ],
- );
- return $meta;
- }
Add Comment
Please, Sign In to add comment