diff options
Diffstat (limited to 'lib/Bot/Games/Trait/Class')
-rw-r--r-- | lib/Bot/Games/Trait/Class/Command.pm | 33 | ||||
-rw-r--r-- | lib/Bot/Games/Trait/Class/Formatted.pm | 26 |
2 files changed, 0 insertions, 59 deletions
diff --git a/lib/Bot/Games/Trait/Class/Command.pm b/lib/Bot/Games/Trait/Class/Command.pm deleted file mode 100644 index 8e70200..0000000 --- a/lib/Bot/Games/Trait/Class/Command.pm +++ /dev/null @@ -1,33 +0,0 @@ -package Bot::Games::Trait::Class::Command; -use Bot::Games::OO::Role; - -after ((map { "add_${_}_method_modifier" } qw/before after around/) => sub { - my $self = shift; - my $name = shift; - - 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::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::Trait::Method::Command'], - cache => 1, - ); - $method_metaclass->rebless_instance($method_meta, pass_args => $pass_args); -}); - -sub get_command { - my $self = shift; - my ($action) = @_; - my $method_meta = $self->find_method_by_name($action); - return $method_meta - if blessed($method_meta) - && $method_meta->meta->can('does_role') - && $method_meta->meta->does_role('Bot::Games::Trait::Method::Command'); -} - -no Bot::Games::OO::Role; - -1; diff --git a/lib/Bot/Games/Trait/Class/Formatted.pm b/lib/Bot/Games/Trait/Class/Formatted.pm deleted file mode 100644 index 6c3092a..0000000 --- a/lib/Bot/Games/Trait/Class/Formatted.pm +++ /dev/null @@ -1,26 +0,0 @@ -package Bot::Games::Trait::Class::Formatted; -use Bot::Games::OO::Role; - -has default_formatters => ( - metaclass => 'Collection::ImmutableHash', - is => 'ro', - isa => 'HashRef[CodeRef]', - builder => '_build_default_formatters', - provides => { - get => 'formatter_for', - exists => 'has_formatter', - keys => 'formattable_tcs', - }, -); - -sub _build_default_formatters { - { - 'ArrayRef' => sub { join ', ', @{ shift() } }, - 'Bool' => sub { return shift() ? 'true' : 'false' }, - 'Object' => sub { shift() . "" }, - } -} - -no Bot::Games::OO::Role; - -1; |