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

Apply Definition roles properly to eliminate warnings

Browse source
This commit is contained in:
Graham Knop 2010-03-03 13:49:00 -06:00
parent 44c6048da4
commit d7b0d93ad8
2 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Definition.pm
View file

@ -19,6 +19,7 @@ use feature ();
use Moose (); use Moose ();
use Moose::Exporter; use Moose::Exporter;
use Moose::Util;
use Moose::Util::MetaRole; use Moose::Util::MetaRole;
use namespace::autoclean; use namespace::autoclean;
@ -76,9 +77,9 @@ 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::MetaRole::apply_base_class_roles( Moose::Util::apply_all_roles(
for => $for_class, $for_class,
roles => [ 'WebGUI::Definition::Role::Object' ], 'WebGUI::Definition::Role::Object',
); );
Moose::Util::MetaRole::apply_metaroles( Moose::Util::MetaRole::apply_metaroles(
for => $for_class, for => $for_class,

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

@ -78,9 +78,9 @@ 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::MetaRole::apply_base_class_roles( Moose::Util::apply_all_roles(
for => $for_class, $for_class,
roles => [ 'WebGUI::Definition::Role::Asset' ], 'WebGUI::Definition::Role::Asset',
); );
Moose::Util::MetaRole::apply_metaroles( Moose::Util::MetaRole::apply_metaroles(
for => $for_class, for => $for_class,