From 86233c470263d60ad5aaa2e656a96c3029a54b6b Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sun, 26 Apr 2009 22:24:46 -0500
Subject: use the format roles

---
 lib/Bot/Games.pm | 20 +++-----------------
 1 file changed, 3 insertions(+), 17 deletions(-)

(limited to 'lib/Bot/Games.pm')

diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index a1de583..3490a10 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -98,8 +98,9 @@ sub said {
                 $self->$say("Game $game_name hasn't started yet!");
                 return;
             }
-            $self->$say(scalar $method_meta->execute($game, $arg,
-                                                     {player => $args->{who}}));
+            my $body = $method_meta->execute($game, $arg,
+                                             {player => $args->{who}});
+            $self->$say($body, formatter => $method_meta->formatter);
         }
         else {
             $self->$say("Unknown command $action for game $game_name");
@@ -152,21 +153,6 @@ sub find_game {
     return;
 }
 
-sub _format {
-    my $self = shift;
-    my ($to_print) = @_;
-    if (blessed $to_print) {
-        $to_print = "$to_print";
-    }
-    elsif (ref($to_print) && ref($to_print) eq 'ARRAY') {
-        $to_print = join ', ', @$to_print;
-    }
-    elsif (!$to_print) {
-        $to_print = 'false';
-    }
-    return $to_print;
-}
-
 sub _get_command {
     my ($game, $action) = @_;
     my $method_meta = $game->meta->find_method_by_name($action);
-- 
cgit v1.2.3-54-g00ecf