diff options
author | doy <doy@tozt.net> | 2009-01-15 03:24:30 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-01-15 03:24:30 -0500 |
commit | 1493acc6b0a56e5377470f6cdbadc07a4a59271b (patch) | |
tree | 4a985f412df4425f612b479bbdd986d83f112763 | |
parent | 7e0cdc18d34c2c0cddce186400d508581a5a698b (diff) | |
download | bot-games-1493acc6b0a56e5377470f6cdbadc07a4a59271b.tar.gz bot-games-1493acc6b0a56e5377470f6cdbadc07a4a59271b.zip |
hmmm, i think apply_all_roles needs the metaclass of the class it's applying to
-rw-r--r-- | lib/Bot/Games/Meta/Attribute.pm | 4 | ||||
-rw-r--r-- | lib/Bot/Games/OO.pm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/Bot/Games/Meta/Attribute.pm b/lib/Bot/Games/Meta/Attribute.pm index 550c128..3d54e69 100644 --- a/lib/Bot/Games/Meta/Attribute.pm +++ b/lib/Bot/Games/Meta/Attribute.pm @@ -20,13 +20,13 @@ after install_accessors => sub { my $self = shift; my $accessor_meta = $self->get_read_method_ref; if ($self->command) { - Moose::Util::apply_all_roles($accessor_meta, 'Bot::Games::Meta::Role::Command'); + Moose::Util::apply_all_roles($accessor_meta->meta, 'Bot::Games::Meta::Role::Command'); # don't let plugins pass arguments to reader methods $accessor_meta->pass_args(0); } for my $method (@{ $self->commands }) { my $method_meta = $self->find_method_by_name($method); - Moose::Util::apply_all_roles($method_meta, 'Bot::Games::Meta::Role::Command'); + Moose::Util::apply_all_roles($method_meta->meta, 'Bot::Games::Meta::Role::Command'); # don't let plugins pass arguments to generated methods (?) $accessor_meta->pass_args(0); } diff --git a/lib/Bot/Games/OO.pm b/lib/Bot/Games/OO.pm index 97d6eb0..48c51d7 100644 --- a/lib/Bot/Games/OO.pm +++ b/lib/Bot/Games/OO.pm @@ -13,7 +13,7 @@ sub command { package_name => $class, name => $name, ); - Moose::Util::apply_all_roles($method_meta, 'Bot::Games::Meta::Role::Command'); + Moose::Util::apply_all_roles($method_meta->meta, 'Bot::Games::Meta::Role::Command'); $class->meta->add_method($name, $method_meta); } |