From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 17 Jun 2008 02:24:37 +0000 (+0000)
Subject: Begin adding Mouse::Role
X-Git-Tag: 0.19~317
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f9e68395ec48e239c2a2c77d15399aac9497b937;p=gitmo%2FMouse.git

Begin adding Mouse::Role
---

diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm
new file mode 100644
index 0000000..7530423
--- /dev/null
+++ b/lib/Mouse/Role.pm
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl
+package Mouse::Role;
+use strict;
+use warnings;
+
+use Sub::Exporter;
+
+do {
+    my $CALLER;
+
+    my %exports = (
+    );
+
+    my $exporter = Sub::Exporter::build_exporter({
+        exports => \%exports,
+        groups  => { default => [':all'] },
+    });
+
+    sub import {
+        $CALLER = caller;
+
+        strict->import;
+        warnings->import;
+
+        goto $exporter;
+    }
+
+    sub unimport {
+    }
+};
+
+1;
+