Begin adding Mouse::Role
Shawn M Moore [Tue, 17 Jun 2008 02:24:37 +0000 (02:24 +0000)]
lib/Mouse/Role.pm [new file with mode: 0644]

diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm
new file mode 100644 (file)
index 0000000..7530423
--- /dev/null
@@ -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;
+