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.pm             |  4 ++++
 lib/MooseX/ABC/Role/Object.pm | 12 ++++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 lib/MooseX/ABC/Role/Object.pm

diff --git a/lib/MooseX/ABC.pm b/lib/MooseX/ABC.pm
index f0f1412..95986bd 100644
--- a/lib/MooseX/ABC.pm
+++ b/lib/MooseX/ABC.pm
@@ -17,6 +17,10 @@ sub init_meta {
     shift;
     my %options = @_;
     Moose->init_meta(%options);
+    Moose::Util::MetaRole::apply_base_class_roles(
+        for_class       => $options{for_class},
+        roles           => ['MooseX::ABC::Role::Object'],
+    );
     Moose::Util::MetaRole::apply_metaclass_roles(
         for_class       => $options{for_class},
         metaclass_roles => ['MooseX::ABC::Trait::Class'],
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