diff options
Diffstat (limited to 'lib/Bot/Games.pm')
-rw-r--r-- | lib/Bot/Games.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm index fb8df7c..a1de583 100644 --- a/lib/Bot/Games.pm +++ b/lib/Bot/Games.pm @@ -42,10 +42,11 @@ sub BUILD { my $self = shift; $say = sub { shift; - return $self->say(%$say_args, body => $self->_format(@_)) if @_ == 1; + unshift @_, 'body' if @_ % 2 == 1; my %overrides = @_; - $overrides{body} = $self->_format($overrides{body}) - if exists $overrides{body}; + my $formatter = delete $overrides{formatter}; + $overrides{body} = $formatter->($overrides{body}) + if $formatter && exists $overrides{body}; return $self->say(%$say_args, %overrides); }; require Bot::Games::Game; |