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 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/MooseX/ABC.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'],
-- 
cgit v1.2.3-54-g00ecf