fix more things for metaclass roles
This commit is contained in:
parent
13b753850f
commit
a2f0cbe9ba
6 changed files with 57 additions and 45 deletions
|
|
@ -20,6 +20,8 @@ use feature ();
|
|||
use Moose::Exporter;
|
||||
use WebGUI::Definition ();
|
||||
use WebGUI::Definition::Meta::Asset;
|
||||
use Moose::Util;
|
||||
use Moose::Util::MetaRole;
|
||||
|
||||
use namespace::autoclean;
|
||||
|
||||
|
|
@ -79,7 +81,7 @@ sub init_meta {
|
|||
|
||||
Moose::Util::MetaRole::apply_base_class_roles(
|
||||
for => $args{for_class},
|
||||
roles => ['WebGUI::Definition::Role::Asset'],
|
||||
roles => [ 'WebGUI::Definition::Role::Asset' ],
|
||||
);
|
||||
Moose::Util::MetaRole::apply_metaroles(
|
||||
for => $args{for_class},
|
||||
|
|
@ -87,6 +89,7 @@ sub init_meta {
|
|||
class => ['WebGUI::Definition::Meta::Asset'],
|
||||
},
|
||||
);
|
||||
return $args{for_class}->meta;
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue