oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Applying class metaroles before the other roles seems to do the right thing.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-05 10:28:32 -08:00
parent 3c790d9ce5
commit ecd31580cf
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Definition.pm
View file

@ -77,16 +77,16 @@ sub init_meta {
my $for_class = $args{for_class}; my $for_class = $args{for_class};
if ($for_class->meta->isa('Moose::Meta::Class')) { if ($for_class->meta->isa('Moose::Meta::Class')) {
Moose::Util::apply_all_roles(
$for_class,
'WebGUI::Definition::Role::Object',
);
Moose::Util::MetaRole::apply_metaroles( Moose::Util::MetaRole::apply_metaroles(
for => $for_class, for => $for_class,
class_metaroles => { class_metaroles => {
class => ['WebGUI::Definition::Meta::Class'], class => ['WebGUI::Definition::Meta::Class'],
}, },
); );
Moose::Util::apply_all_roles(
$for_class,
'WebGUI::Definition::Role::Object',
);
} }
else { else {
Moose::Util::MetaRole::apply_metaroles( Moose::Util::MetaRole::apply_metaroles(

8
lib/WebGUI/Definition/Asset.pm
View file

@ -78,16 +78,16 @@ sub init_meta {
my %args = @_; my %args = @_;
my $for_class = $args{for_class}; my $for_class = $args{for_class};
if ($for_class->meta->isa('Moose::Meta::Class')) { if ($for_class->meta->isa('Moose::Meta::Class')) {
Moose::Util::apply_all_roles(
$for_class,
'WebGUI::Definition::Role::Asset',
);
Moose::Util::MetaRole::apply_metaroles( Moose::Util::MetaRole::apply_metaroles(
for => $for_class, for => $for_class,
class_metaroles => { class_metaroles => {
class => ['WebGUI::Definition::Meta::Asset'], class => ['WebGUI::Definition::Meta::Asset'],
}, },
); );
Moose::Util::apply_all_roles(
$for_class,
'WebGUI::Definition::Role::Asset',
);
} }
else { else {
Moose::Util::MetaRole::apply_metaroles( Moose::Util::MetaRole::apply_metaroles(