gistfile1.perl

diff --git a/lib/WebGUI/Definition.pm b/lib/WebGUI/Definition.pm
index a53870c..a62bf66 100644
--- a/lib/WebGUI/Definition.pm
+++ b/lib/WebGUI/Definition.pm
@@ -76,16 +76,21 @@ sub init_meta {
 
     Moose->init_meta(%args);
 
+    warn "for_class: ".$args{for_class};
+    use Data::Dumper;
+    warn Dumper \%args;
     Moose::Util::MetaRole::apply_base_class_roles(
-        for     => $args{for_class},
-        roles   => [ 'WebGUI::Definition::Role::Object' ],
+        for_class => $args{for_class},
+        roles     => [ 'WebGUI::Definition::Role::Object' ],
     );
-    Moose::Util::MetaRole::apply_metaroles(
-        for              => $args{for_class},
+    warn "2nd check";
+    Moose::Util::MetaRole::apply_metaclass_roles(
+        for_class        => $args{for_class},
         class_metaroles  => {
             class           => ['WebGUI::Definition::Meta::Class'],
         },
     );
+    warn "3rd check";
     return $args{for_class}->meta;
 }
 
diff --git a/lib/WebGUI/Definition/Asset.pm b/lib/WebGUI/Definition/Asset.pm
index 3f1d8d6..97187b5 100644
--- a/lib/WebGUI/Definition/Asset.pm
+++ b/lib/WebGUI/Definition/Asset.pm
@@ -80,11 +80,11 @@ sub init_meta {
     WebGUI::Definition->init_meta(%args);
 
     Moose::Util::MetaRole::apply_base_class_roles(
-        for   => $args{for_class},
+        for_class   => $args{for_class},
         roles => [ 'WebGUI::Definition::Role::Asset' ],
     );
-    Moose::Util::MetaRole::apply_metaroles(
-        for              => $args{for_class},
+    Moose::Util::MetaRole::apply_metaclass_roles(
+        for_class        => $args{for_class},
         class_metaroles  => {
             class           => ['WebGUI::Definition::Meta::Asset'],
         },