fix more things for metaclass roles

This commit is contained in:
Graham Knop 2010-02-19 11:55:36 -06:00
parent 13b753850f
commit a2f0cbe9ba
6 changed files with 57 additions and 45 deletions

View file

@ -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;