From a3d2e93584fad534414255ce45f58d9d98fbceeb Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Mon, 27 Apr 2009 17:52:32 -0500
Subject: add a has_player method to the base game class

---
 lib/Bot/Games/Game.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/Bot/Games/Game.pm b/lib/Bot/Games/Game.pm
index 24f4caa..6d0c29c 100644
--- a/lib/Bot/Games/Game.pm
+++ b/lib/Bot/Games/Game.pm
@@ -26,9 +26,20 @@ has players => (
         push  => 'add_player',
         count => 'num_players',
     },
+    curries    => {
+        find  => {
+            has_player => sub {
+                my $self = shift;
+                my $body = shift;
+                my ($player) = @_;
+                return $self->$body(sub { $_[0] eq $player }) ? 1 : 0;
+            },
+        },
+    },
     command    => 1,
 );
 command 'num_players';
+command 'has_player', formatter => sub { $_[0] ? 'true' : 'false' };
 
 has start_time => (
     is         => 'ro',
-- 
cgit v1.2.3-54-g00ecf