From ecd31580cfc7fbe8f8a0105a5250563ea515880e Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Fri, 5 Mar 2010 10:28:32 -0800 Subject: [PATCH] Applying class metaroles before the other roles seems to do the right thing. --- lib/WebGUI/Definition.pm | 8 ++++---- lib/WebGUI/Definition/Asset.pm | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/lib/WebGUI/Definition.pm b/lib/WebGUI/Definition.pm index 5d43c44f0..e34470ac2 100644 --- a/lib/WebGUI/Definition.pm +++ b/lib/WebGUI/Definition.pm @@ -77,16 +77,16 @@ sub init_meta { my $for_class = $args{for_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( for => $for_class, class_metaroles => { class => ['WebGUI::Definition::Meta::Class'], }, ); + Moose::Util::apply_all_roles( + $for_class, + 'WebGUI::Definition::Role::Object', + ); } else { Moose::Util::MetaRole::apply_metaroles( diff --git a/lib/WebGUI/Definition/Asset.pm b/lib/WebGUI/Definition/Asset.pm index 741aece11..c6ae05a29 100644 --- a/lib/WebGUI/Definition/Asset.pm +++ b/lib/WebGUI/Definition/Asset.pm @@ -78,16 +78,16 @@ sub init_meta { my %args = @_; my $for_class = $args{for_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( for => $for_class, class_metaroles => { class => ['WebGUI::Definition::Meta::Asset'], }, ); + Moose::Util::apply_all_roles( + $for_class, + 'WebGUI::Definition::Role::Asset', + ); } else { Moose::Util::MetaRole::apply_metaroles(