From bf67b7d5ea5a353b79b724933e23cbe36acd82c2 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 2 Jun 2009 00:18:41 -0500
Subject: add custom exporters for roles

---
 lib/Bot/Games/OO/Game/Role.pm | 28 ++++++++++++++++++++++++++++
 lib/Bot/Games/OO/Role.pm      | 10 ++++++++++
 2 files changed, 38 insertions(+)
 create mode 100644 lib/Bot/Games/OO/Game/Role.pm
 create mode 100644 lib/Bot/Games/OO/Role.pm

diff --git a/lib/Bot/Games/OO/Game/Role.pm b/lib/Bot/Games/OO/Game/Role.pm
new file mode 100644
index 0000000..8aee3a4
--- /dev/null
+++ b/lib/Bot/Games/OO/Game/Role.pm
@@ -0,0 +1,28 @@
+package Bot::Games::OO::Game::Role;
+use Bot::Games::OO::Role ();
+
+# XXX: is there a better way to go about this?
+*command = \&Bot::Games::OO::Game::command;
+Moose::Exporter->setup_import_methods(
+    with_caller => ['command'],
+    also        => ['Bot::Games::OO::Role'],
+);
+
+sub init_meta {
+    shift;
+    my %options = @_;
+    Moose::Role->init_meta(%options);
+    Moose::Util::MetaRole::apply_metaclass_roles(
+        for_class =>
+            $options{for_class},
+        attribute_metaclass_roles =>
+            ['Bot::Games::Trait::Attribute::Command',
+             'Bot::Games::Trait::Attribute::Formatted'],
+        metaclass_roles =>
+            ['Bot::Games::Trait::Class::Command',
+             'Bot::Games::Trait::Class::Formatted'],
+    );
+    return $options{for_class}->meta;
+}
+
+1;
diff --git a/lib/Bot/Games/OO/Role.pm b/lib/Bot/Games/OO/Role.pm
new file mode 100644
index 0000000..80810f2
--- /dev/null
+++ b/lib/Bot/Games/OO/Role.pm
@@ -0,0 +1,10 @@
+package Bot::Games::OO::Role;
+use Moose ();
+use MooseX::AttributeHelpers;
+use Moose::Exporter;
+
+Moose::Exporter->setup_import_methods(
+    also => ['Moose::Role'],
+);
+
+1;
-- 
cgit v1.2.3-54-g00ecf