Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
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'],
},
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.