Guest User

Untitled

a guest
Jul 19th, 2018
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. sub init_meta {
  2. my ($class, %options) = @_;
  3. my $for_class = $options{for_class};
  4.  
  5. my $meta = find_meta($for_class) ||
  6. Moose::Meta::Class->initialize($for_class);
  7.  
  8. Moose::Util::MetaRole::apply_base_class_roles(
  9. for_class => $class,
  10. roles => [ 'Test::MUnit::Role' ],
  11. );
  12.  
  13. return $meta;
  14. }
Add Comment
Please, Sign In to add comment