summaryrefslogtreecommitdiffstats
path: root/lib/Bot/Games/Trait/Attribute/Formatted.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Bot/Games/Trait/Attribute/Formatted.pm')
-rw-r--r--lib/Bot/Games/Trait/Attribute/Formatted.pm22
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);
}
};