diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-10-31 15:16:49 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-10-31 15:28:04 -0500 |
commit | 188ad8e49c1fa2802eaa55b3d4ae978f2c58c23c (patch) | |
tree | 89333ab23955cceb45dada36ffe89a7a23c855b3 /lib/Bot/Games/Game/24.pm | |
parent | da36dca6178721b1c91b5e680d01e2595c2b1801 (diff) | |
download | bot-games-188ad8e49c1fa2802eaa55b3d4ae978f2c58c23c.tar.gz bot-games-188ad8e49c1fa2802eaa55b3d4ae978f2c58c23c.zip |
convert Bot::Games to use IM::Engine::Plugin::Commands
Diffstat (limited to 'lib/Bot/Games/Game/24.pm')
-rw-r--r-- | lib/Bot/Games/Game/24.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Bot/Games/Game/24.pm b/lib/Bot/Games/Game/24.pm index a353900..dd072c4 100644 --- a/lib/Bot/Games/Game/24.pm +++ b/lib/Bot/Games/Game/24.pm @@ -1,5 +1,5 @@ package Bot::Games::Game::24; -use Bot::Games::OO::Game; +use Bot::Games::OO; extends 'Bot::Games::Game'; use List::Util qw/shuffle/; @@ -28,7 +28,7 @@ sub init { return $self->generate_24; } -augment turn => sub { +sub turn { my $self = shift; my ($player, $expr) = @_; $self->add_player($player) unless $self->has_player($player); @@ -101,6 +101,6 @@ sub evaluate { } __PACKAGE__->meta->make_immutable; -no Bot::Games::OO::Game; +no Bot::Games::OO; 1; |