diff options
author | doy <doy@tozt.net> | 2009-01-25 16:34:34 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-01-25 16:34:34 -0500 |
commit | efaa0dfadd3373380ba122173c3bbb7f49c2f44e (patch) | |
tree | 1067a6511458c1ef97f561d760d5bf3d966ba162 | |
parent | 9fa5864411552ce62cfa0fb1fc09e2cdb1c16413 (diff) | |
download | bot-games-efaa0dfadd3373380ba122173c3bbb7f49c2f44e.tar.gz bot-games-efaa0dfadd3373380ba122173c3bbb7f49c2f44e.zip |
format the message body in the extended say syntax too
-rw-r--r-- | lib/Bot/Games.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm index f8a0284..654f288 100644 --- a/lib/Bot/Games.pm +++ b/lib/Bot/Games.pm @@ -43,7 +43,10 @@ sub said { my $say = sub { shift; return $self->say(%$args, body => $self->_format(@_)) if @_ == 1; - return $self->say(%$args, @_); + my %overrides = @_; + $overrides{body} = $self->_format($overrides{body}) + if exists $overrides{body}; + return $self->say(%$args, %overrides); }; return if $args->{channel} eq 'msg'; |