diff options
author | doy <doy@tozt.net> | 2009-04-26 19:25:37 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-26 19:25:37 -0500 |
commit | 42385a5a09bee71148e745ccbfe0a8d5286255f8 (patch) | |
tree | 70da3ab0f3f9528efdcceb5a87e2ea682549f17b /lib/Bot/Games | |
parent | 27da6e113d34fef72de8b95b7261c137d6f9ef76 (diff) | |
download | bot-games-42385a5a09bee71148e745ccbfe0a8d5286255f8.tar.gz bot-games-42385a5a09bee71148e745ccbfe0a8d5286255f8.zip |
more renamespacing
Diffstat (limited to 'lib/Bot/Games')
-rw-r--r-- | lib/Bot/Games/Game.pm | 4 | ||||
-rw-r--r-- | lib/Bot/Games/OO/Game.pm | 8 | ||||
-rw-r--r-- | lib/Bot/Games/Trait/Attribute/Command.pm (renamed from lib/Bot/Games/Meta/Role/Attribute/Command.pm) | 4 | ||||
-rw-r--r-- | lib/Bot/Games/Trait/Class/Command.pm (renamed from lib/Bot/Games/Meta/Role/Class/Command.pm) | 6 | ||||
-rw-r--r-- | lib/Bot/Games/Trait/Method/Command.pm (renamed from lib/Bot/Games/Meta/Role/Method/Command.pm) | 2 |
5 files changed, 12 insertions, 12 deletions
diff --git a/lib/Bot/Games/Game.pm b/lib/Bot/Games/Game.pm index 55a1547..ceeda9d 100644 --- a/lib/Bot/Games/Game.pm +++ b/lib/Bot/Games/Game.pm @@ -15,7 +15,7 @@ has help => ( # just use that instead. has players => ( metaclass => 'Collection::Array', - traits => [qw/Bot::Games::Meta::Role::Attribute::Command/], + traits => [qw/Bot::Games::Trait::Attribute::Command/], is => 'ro', isa => 'ArrayRef[Str]', auto_deref => 1, @@ -69,7 +69,7 @@ command cmdlist => sub { for my $method ($self->meta->get_all_methods) { push @commands, $method->name if $method->meta->can('does_role') - && $method->meta->does_role('Bot::Games::Meta::Role::Command'); + && $method->meta->does_role('Bot::Games::Trait::Method::Command'); } return join ' ', sort map { '-' . $_ } @commands; }, needs_init => 0; diff --git a/lib/Bot/Games/OO/Game.pm b/lib/Bot/Games/OO/Game.pm index 938af7c..b260477 100644 --- a/lib/Bot/Games/OO/Game.pm +++ b/lib/Bot/Games/OO/Game.pm @@ -8,7 +8,7 @@ sub command { my $superclass = Moose::blessed($method_meta) || 'Moose::Meta::Method'; my $method_metaclass = Moose::Meta::Class->create_anon_class( superclasses => [$superclass], - roles => ['Bot::Games::Meta::Role::Method::Command'], + roles => ['Bot::Games::Trait::Method::Command'], cache => 1, ); if ($method_meta) { @@ -22,7 +22,7 @@ sub command { ); $class->meta->add_method($name, $method_meta); } - for my $attr (Bot::Games::Meta::Role::Method::Command->meta->get_attribute_list) { + for my $attr (Bot::Games::Trait::Method::Command->meta->get_attribute_list) { $method_meta->$attr($args{$attr}) if exists $args{$attr}; } } @@ -40,9 +40,9 @@ sub init_meta { for_class => $options{for_class}, attribute_metaclass_roles => - ['Bot::Games::Meta::Role::Attribute::Command'], + ['Bot::Games::Trait::Attribute::Command'], metaclass_roles => - ['Bot::Games::Meta::Role::Class::Command'], + ['Bot::Games::Trait::Class::Command'], ); return $options{for_class}->meta; } diff --git a/lib/Bot/Games/Meta/Role/Attribute/Command.pm b/lib/Bot/Games/Trait/Attribute/Command.pm index bf3ea50..9b51b13 100644 --- a/lib/Bot/Games/Meta/Role/Attribute/Command.pm +++ b/lib/Bot/Games/Trait/Attribute/Command.pm @@ -1,4 +1,4 @@ -package Bot::Games::Meta::Role::Attribute::Command; +package Bot::Games::Trait::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::Method::Command'], + roles => ['Bot::Games::Trait::Method::Command'], cache => 1, )->name; }; diff --git a/lib/Bot/Games/Meta/Role/Class/Command.pm b/lib/Bot/Games/Trait/Class/Command.pm index 9e8d647..3c242ae 100644 --- a/lib/Bot/Games/Meta/Role/Class/Command.pm +++ b/lib/Bot/Games/Trait/Class/Command.pm @@ -1,4 +1,4 @@ -package Bot::Games::Meta::Role::Class::Command; +package Bot::Games::Trait::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::Method::Command'); + && $orig_method_meta->meta->does_role('Bot::Games::Trait::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::Method::Command'], + roles => ['Bot::Games::Trait::Method::Command'], cache => 1, ); $method_metaclass->rebless_instance($method_meta, pass_args => $pass_args); diff --git a/lib/Bot/Games/Meta/Role/Method/Command.pm b/lib/Bot/Games/Trait/Method/Command.pm index 36e496f..e00cb43 100644 --- a/lib/Bot/Games/Meta/Role/Method/Command.pm +++ b/lib/Bot/Games/Trait/Method/Command.pm @@ -1,4 +1,4 @@ -package Bot::Games::Meta::Role::Method::Command; +package Bot::Games::Trait::Method::Command; use Moose::Role; has pass_args => ( |