diff options
Diffstat (limited to 'lib/Bot/Games/Meta/Role')
-rw-r--r-- | lib/Bot/Games/Meta/Role/Attribute/Command.pm (renamed from lib/Bot/Games/Meta/Role/Attribute.pm) | 4 | ||||
-rw-r--r-- | lib/Bot/Games/Meta/Role/Class/Command.pm (renamed from lib/Bot/Games/Meta/Role/Class.pm) | 6 | ||||
-rw-r--r-- | lib/Bot/Games/Meta/Role/Method/Command.pm (renamed from lib/Bot/Games/Meta/Role/Command.pm) | 2 |
3 files changed, 6 insertions, 6 deletions
diff --git a/lib/Bot/Games/Meta/Role/Attribute.pm b/lib/Bot/Games/Meta/Role/Attribute/Command.pm index 12c5803..bf3ea50 100644 --- a/lib/Bot/Games/Meta/Role/Attribute.pm +++ b/lib/Bot/Games/Meta/Role/Attribute/Command.pm @@ -1,4 +1,4 @@ -package Bot::Games::Meta::Role::Attribute; +package Bot::Games::Meta::Role::Attribute::Command; use Moose::Role; has command => ( @@ -27,7 +27,7 @@ around accessor_metaclass => sub { return $metaclass unless $self->command; return Moose::Meta::Class->create_anon_class( superclasses => [$metaclass], - roles => ['Bot::Games::Meta::Role::Command'], + roles => ['Bot::Games::Meta::Role::Method::Command'], cache => 1, )->name; }; diff --git a/lib/Bot/Games/Meta/Role/Class.pm b/lib/Bot/Games/Meta/Role/Class/Command.pm index b5eb061..9e8d647 100644 --- a/lib/Bot/Games/Meta/Role/Class.pm +++ b/lib/Bot/Games/Meta/Role/Class/Command.pm @@ -1,4 +1,4 @@ -package Bot::Games::Meta::Role::Class; +package Bot::Games::Meta::Role::Class::Command; use Moose::Role; after ((map { "add_${_}_method_modifier" } qw/before after around/) => sub { @@ -8,11 +8,11 @@ after ((map { "add_${_}_method_modifier" } qw/before after around/) => sub { my $method_meta = $self->get_method($name); my $orig_method_meta = $method_meta->get_original_method; return unless $orig_method_meta->meta->can('does_role') - && $orig_method_meta->meta->does_role('Bot::Games::Meta::Role::Command'); + && $orig_method_meta->meta->does_role('Bot::Games::Meta::Role::Method::Command'); my $pass_args = $orig_method_meta->pass_args; my $method_metaclass = Moose::Meta::Class->create_anon_class( superclasses => [blessed $method_meta], - roles => ['Bot::Games::Meta::Role::Command'], + roles => ['Bot::Games::Meta::Role::Method::Command'], cache => 1, ); $method_metaclass->rebless_instance($method_meta, pass_args => $pass_args); diff --git a/lib/Bot/Games/Meta/Role/Command.pm b/lib/Bot/Games/Meta/Role/Method/Command.pm index 75475f9..36e496f 100644 --- a/lib/Bot/Games/Meta/Role/Command.pm +++ b/lib/Bot/Games/Meta/Role/Method/Command.pm @@ -1,4 +1,4 @@ -package Bot::Games::Meta::Role::Command; +package Bot::Games::Meta::Role::Method::Command; use Moose::Role; has pass_args => ( |