Skip to content

Instantly share code, notes, and snippets.

@perlDreamer
Created March 2, 2010 00:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save perlDreamer/318976 to your computer and use it in GitHub Desktop.
Save perlDreamer/318976 to your computer and use it in GitHub Desktop.
diff --git a/lib/WebGUI/Definition.pm b/lib/WebGUI/Definition.pm
index a53870c..c7155e3 100644
--- a/lib/WebGUI/Definition.pm
+++ b/lib/WebGUI/Definition.pm
@@ -77,14 +77,12 @@ sub init_meta {
Moose->init_meta(%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},
- class_metaroles => {
- class => ['WebGUI::Definition::Meta::Class'],
- },
+ Moose::Util::MetaRole::apply_metaclass_roles(
+ for_class => $args{for_class},
+ metaclass_roles => ['WebGUI::Definition::Meta::Class', ],
);
return $args{for_class}->meta;
}
diff --git a/lib/WebGUI/Definition/Asset.pm b/lib/WebGUI/Definition/Asset.pm
index 3f1d8d6..92a3b55 100644
--- a/lib/WebGUI/Definition/Asset.pm
+++ b/lib/WebGUI/Definition/Asset.pm
@@ -80,14 +80,12 @@ 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},
- class_metaroles => {
- class => ['WebGUI::Definition::Meta::Asset'],
- },
+ Moose::Util::MetaRole::apply_metaclass_roles(
+ for_class => $args{for_class},
+ metaclass_roles => ['WebGUI::Definition::Meta::Asset', ],
);
return $args{for_class}->meta;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment