diff options
author | doy <doy@tozt.net> | 2009-01-25 18:52:10 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-01-25 18:52:10 -0500 |
commit | 92e666057ee84e1b3f306aa6016bfcc64a960552 (patch) | |
tree | 4e4632189f7294a60b1ed2a960f2314fc7498b0e /lib/Bot/Games.pm | |
parent | 66ca728157b3dd0425e9dd8df09bb6ff224f2b93 (diff) | |
download | bot-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.pm | 6 |
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+(.*))?/; |