summaryrefslogtreecommitdiffstats
path: root/lib/Bot/Games.pm
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2009-01-25 18:52:10 -0500
committerdoy <doy@tozt.net>2009-01-25 18:52:10 -0500
commit92e666057ee84e1b3f306aa6016bfcc64a960552 (patch)
tree4e4632189f7294a60b1ed2a960f2314fc7498b0e /lib/Bot/Games.pm
parent66ca728157b3dd0425e9dd8df09bb6ff224f2b93 (diff)
downloadbot-games-92e666057ee84e1b3f306aa6016bfcc64a960552.tar.gz
bot-games-92e666057ee84e1b3f306aa6016bfcc64a960552.zip
need to catch the proper arguments to be passing back to $self->say each time
Diffstat (limited to 'lib/Bot/Games.pm')
-rw-r--r--lib/Bot/Games.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index 22bf855..9d42e1b 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -29,16 +29,17 @@ has done_init => (
);
my $say;
+my $say_args;
sub BUILD {
my $self = shift;
$say = sub {
shift;
- return $self->say(%$args, body => $self->_format(@_)) if @_ == 1;
+ return $self->say(%$say_args, body => $self->_format(@_)) if @_ == 1;
my %overrides = @_;
$overrides{body} = $self->_format($overrides{body})
if exists $overrides{body};
- return $self->say(%$args, %overrides);
+ return $self->say(%$say_args, %overrides);
};
require Bot::Games::Game;
Bot::Games::Game->meta->add_method(say => $say);
@@ -49,6 +50,7 @@ sub said {
my $self = shift;
my ($args) = @_;
my $prefix = $self->prefix;
+ $say_args = $args;
return if $args->{channel} eq 'msg';
return unless $args->{body} =~ /^$prefix(\w+)(?:\s+(.*))?/;