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::Exporter;
use Moose::Util;
use Moose::Util::MetaRole;
use namespace::autoclean;
@ -76,9 +77,9 @@ sub init_meta {
my $for_class = $args{for_class};
if ($for_class->meta->isa('Moose::Meta::Class')) {
Moose::Util::MetaRole::apply_base_class_roles(
for => $for_class,
roles => [ 'WebGUI::Definition::Role::Object' ],
Moose::Util::apply_all_roles(
$for_class,
'WebGUI::Definition::Role::Object',
);
Moose::Util::MetaRole::apply_metaroles(
for => $for_class,

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

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