Guest User

Untitled

a guest
Oct 22nd, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.48 KB | None | 0 0
  1. package MyExporter;
  2.  
  3. use Moose ();
  4. use Moose::Exporter;
  5.  
  6. Moose::Exporter->setup_import_methods(
  7. also => 'Moose',
  8. );
  9.  
  10. sub init_meta {
  11. my ($class,%args) = @_;
  12.  
  13. my $meta = Moose->init_meta( %args );
  14.  
  15. Moose::Util::MetaRole::apply_metaroles(
  16. for => $meta,
  17. class_metaroles => {
  18. class => ['MyMetaRole'],
  19. },
  20. );
  21.  
  22. Moose::Util::apply_all_roles($args{for_class},'MyRole');
  23.  
  24. return $meta;
  25. }
  26.  
  27. 1;
Add Comment
Please, Sign In to add comment