Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package MyExporter;
- use Moose ();
- use Moose::Exporter;
- Moose::Exporter->setup_import_methods(
- also => 'Moose',
- );
- sub init_meta {
- my ($class,%args) = @_;
- my $meta = Moose->init_meta( %args );
- Moose::Util::MetaRole::apply_metaroles(
- for => $meta,
- class_metaroles => {
- class => ['MyMetaRole'],
- },
- );
- Moose::Util::apply_all_roles($args{for_class},'MyRole');
- return $meta;
- }
- 1;
Add Comment
Please, Sign In to add comment