[Catalyst-commits] r13068 - Catalyst-Runtime/5.80/branches/action_roles/lib/Catalyst

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Mon Mar 22 23:49:12 GMT 2010


Author: t0m
Date: 2010-03-22 23:49:12 +0000 (Mon, 22 Mar 2010)
New Revision: 13068

Modified:
   Catalyst-Runtime/5.80/branches/action_roles/lib/Catalyst/Controller.pm
Log:
Ensure that action classes have a full Moose metaclass before we start generating anon classes from them. I don't know why or how this makes it work, and why Moose doesn't do this itself..

Modified: Catalyst-Runtime/5.80/branches/action_roles/lib/Catalyst/Controller.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/action_roles/lib/Catalyst/Controller.pm	2010-03-22 23:48:04 UTC (rev 13067)
+++ Catalyst-Runtime/5.80/branches/action_roles/lib/Catalyst/Controller.pm	2010-03-22 23:49:12 UTC (rev 13068)
@@ -298,6 +298,8 @@
                     ? $args{attributes}{ActionClass}[0]
                     : $self->_action_class);
     Class::MOP::load_class($class);
+    Moose->init_meta( for_class => $class)
+        unless Class::MOP::does_metaclass_exist($class);
 
     my @roles = (
         (blessed $self ? $self->_action_roles : ()),




More information about the Catalyst-commits mailing list