diff options
Diffstat (limited to 'lib/Bot/Games/Trait/Attribute/Formatted.pm')
-rw-r--r-- | lib/Bot/Games/Trait/Attribute/Formatted.pm | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/lib/Bot/Games/Trait/Attribute/Formatted.pm b/lib/Bot/Games/Trait/Attribute/Formatted.pm index dd40a19..8eaa11c 100644 --- a/lib/Bot/Games/Trait/Attribute/Formatted.pm +++ b/lib/Bot/Games/Trait/Attribute/Formatted.pm @@ -10,13 +10,31 @@ has formatter => ( predicate => 'has_formatter', ); +before _process_options => sub { + my $self = shift; + my ($name, $options) = @_; + warn "only commands will have a formatter applied" + if exists($options->{formatter}) && !$options->{command}; +}; + +around accessor_metaclass => sub { + my $orig = shift; + my $self = shift; + my $metaclass = $self->$orig(@_); + return $metaclass unless $self->has_formatter; + return Moose::Meta::Class->create_anon_class( + superclasses => [$metaclass], + roles => ['Bot::Games::Trait::Method::Formatted'], + cache => 1, + )->name; +}; + after install_accessors => sub { my $self = shift; if ($self->has_formatter) { my $formatter = $self->formatter; my $method_meta = $self->get_read_method_ref; - $method_meta->formatter($formatter) - if $method_meta->can('formatter'); + $method_meta->formatter($formatter); } }; |