From b9f82dfce667aa0718d8e7904dc9a2a0163efeb6 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 28 May 2009 23:05:35 -0500
Subject: apply a base class role to prevent abstract class instantiation

---
 lib/MooseX/ABC/Role/Object.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 lib/MooseX/ABC/Role/Object.pm

(limited to 'lib/MooseX/ABC/Role/Object.pm')

diff --git a/lib/MooseX/ABC/Role/Object.pm b/lib/MooseX/ABC/Role/Object.pm
new file mode 100644
index 0000000..083c0f5
--- /dev/null
+++ b/lib/MooseX/ABC/Role/Object.pm
@@ -0,0 +1,12 @@
+package MooseX::ABC::Role::Object;
+use Moose::Role;
+
+sub new {
+    my $class = shift;
+    Class::MOP::class_of($class)->throw_error(
+        "$class is abstract, it cannot be instantiated"
+    );
+}
+
+no Moose::Role;
+1;
-- 
cgit v1.2.3-54-g00ecf