From 1d00bff3291758b8c675e3c08b12f1ea9f69875b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 20 Dec 2009 00:28:18 -0600
Subject: allow creating abstract subclasses

---
 lib/MooseX/ABC.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/lib/MooseX/ABC.pm b/lib/MooseX/ABC.pm
index 11ec50b..6748acb 100644
--- a/lib/MooseX/ABC.pm
+++ b/lib/MooseX/ABC.pm
@@ -66,7 +66,9 @@ sub init_meta {
     my ($package, %options) = @_;
     Carp::confess("Can't make a role into an abstract base class")
         if Class::MOP::class_of($options{for_class})->isa('Moose::Meta::Role');
-    goto $init_meta if $init_meta;
+    my $ret = $init_meta->(@_);
+    Class::MOP::class_of($options{for_class})->is_abstract(1);
+    return $ret;
 }
 
 =head1 TODO
-- 
cgit v1.2.3-54-g00ecf