[Catalyst-commits] r11132 - Catalyst-Runtime/5.80/trunk/lib/Catalyst
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Wed Aug 12 01:11:07 GMT 2009
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
More information about the Catalyst-commits
mailing list