From abe748bcfbb9bff0c358d0e2b6dd5aee6c4a29a9 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 1 Jun 2009 23:15:03 -0500
Subject: better way of getting the package of a game

---
 lib/Bot/Games.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index ac5df25..be50f4d 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -1,5 +1,6 @@
 package Bot::Games;
 use Bot::Games::OO;
+use List::Util qw/first/;
 use Module::Pluggable
     search_path => 'Bot::Games::Game',
     sub_name    => 'games';
@@ -125,7 +126,7 @@ sub valid_game {
 sub game_package {
     my $self = shift;
     my ($name) = @_;
-    return 'Bot::Games::Game::' . ucfirst($name);
+    return first { /\Q::$name\E$/i } $self->games;
 }
 
 sub game_list {
-- 
cgit v1.2.3-54-g00ecf