[Catalyst-commits] r9587 - Catalyst-Runtime/5.80/trunk/lib/Catalyst

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-03-27 06:01:59 +0000 (Fri, 27 Mar 2009)
New Revision: 9587

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm
Log:
Make mk_classdata fail if the class' metaclass is not a Class::MOP::Class.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm	2009-03-27 04:39:48 UTC (rev 9586)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm	2009-03-27 06:01:59 UTC (rev 9587)
@@ -44,6 +44,8 @@
     unless ref $accessor eq 'CODE';
 
   my $meta = $class->Class::MOP::Object::meta();
+  confess "${class}'s metaclass is not a Class::MOP::Class"
+    unless $meta->isa('Class::MOP::Class');
   my $immutable_options;
   if( $meta->is_immutable ){
     $immutable_options = $meta->get_immutable_options;