refactor say to allow arbitrary formatters

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;