From 95d541d71019038631f80a7a66b1f7f86a10599c Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sun, 25 Jan 2009 19:10:02 -0500
Subject: need to call BUILDALL on $self, not $class

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

diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index 9d42e1b..cc412ef 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -6,7 +6,13 @@ use Module::Pluggable
     except      => ['Bot::Games::Game::Ghostlike'],
     sub_name    => 'games';
 extends 'Bot::BasicBot', 'Moose::Object';
-after new => sub { shift->BUILDALL };
+around new => sub {
+    my $orig = shift;
+    my $class = shift;
+    my $self = $class->$orig(@_);
+    $self->BUILDALL({@_});
+    return $self;
+};
 
 has prefix => (
     is       => 'rw',
-- 
cgit v1.2.3-54-g00ecf