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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-08-12 01:11:07 +0000 (Wed, 12 Aug 2009)
New Revision: 11132

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm
Log:
Blow up rather than failing to call ->can if everything is totally screwed

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm	2009-08-12 01:09:09 UTC (rev 11131)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm	2009-08-12 01:11:07 UTC (rev 11132)
@@ -179,7 +179,7 @@
 
 sub get_action_methods {
     my $self = shift;
-    my $meta = find_meta($self);
+    my $meta = find_meta($self) || confess("No metaclass setup for $self");
     confess("Metaclass "
           . ref($meta) . " for "
           . $meta->name