Fri Apr 24 22:56:10 CDT 2009  doy@tozt.net
  * use MooseX::NonMoose
diff -rN -u old-Bot-Games/dist.ini new-Bot-Games/dist.ini
--- old-Bot-Games/dist.ini	2009-04-24 22:57:45.000000000 -0500
+++ new-Bot-Games/dist.ini	2009-04-24 22:57:45.000000000 -0500
@@ -16,3 +16,4 @@
 Moose                       = 0.64
 List::Util                  = 1.05
 Games::Word                 = 0.04
+MooseX::NonMoose            = 0.01
diff -rN -u old-Bot-Games/lib/Bot/Games/OO.pm new-Bot-Games/lib/Bot/Games/OO.pm
--- old-Bot-Games/lib/Bot/Games/OO.pm	2009-04-24 22:57:45.000000000 -0500
+++ new-Bot-Games/lib/Bot/Games/OO.pm	2009-04-24 22:57:45.000000000 -0500
@@ -42,7 +42,10 @@
     Moose::Util::MetaRole::apply_metaclass_roles(
         for_class                 => $options{for_class},
         attribute_metaclass_roles => ['Bot::Games::Meta::Role::Attribute'],
-        metaclass_roles           => ['Bot::Games::Meta::Role::Class'],
+        metaclass_roles           => ['Bot::Games::Meta::Role::Class',
+                                      'MooseX::NonMoose::Meta::Role::Class'],
+        constructor_metaclass_roles =>
+            ['MooseX::NonMoose::Meta::Role::Constructor'],
     );
     return $options{for_class}->meta;
 }
diff -rN -u old-Bot-Games/lib/Bot/Games.pm new-Bot-Games/lib/Bot/Games.pm
--- old-Bot-Games/lib/Bot/Games.pm	2009-04-24 22:57:45.000000000 -0500
+++ new-Bot-Games/lib/Bot/Games.pm	2009-04-24 22:57:45.000000000 -0500
@@ -5,14 +5,7 @@
     search_path => 'Bot::Games::Game',
     except      => ['Bot::Games::Game::Ghostlike'],
     sub_name    => 'games';
-extends 'Bot::BasicBot', 'Moose::Object';
-around new => sub {
-    my $orig = shift;
-    my $class = shift;
-    my $self = $class->$orig(@_);
-    $self->BUILDALL({@_});
-    return $self;
-};
+extends 'Bot::BasicBot';

 has prefix => (
     is       => 'rw',