From d7b0d93ad8f4c3ad66bec1cdf4d3bda66d5b691e Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Wed, 3 Mar 2010 13:49:00 -0600
Subject: [PATCH] Apply Definition roles properly to eliminate warnings

---
 lib/WebGUI/Definition.pm       | 7 ++++---
 lib/WebGUI/Definition/Asset.pm | 6 +++---
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/lib/WebGUI/Definition.pm b/lib/WebGUI/Definition.pm
index 6734d883e..5d43c44f0 100644
--- a/lib/WebGUI/Definition.pm
+++ b/lib/WebGUI/Definition.pm
@@ -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,
diff --git a/lib/WebGUI/Definition/Asset.pm b/lib/WebGUI/Definition/Asset.pm
index cd82902f1..741aece11 100644
--- a/lib/WebGUI/Definition/Asset.pm
+++ b/lib/WebGUI/Definition/Asset.pm
@@ -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,