Blow up rather than failing to call ->can if everything is totally screwed

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Controller.pm

diff --git a/lib/Catalyst/Controller.pm b/lib/Catalyst/Controller.pm
index a086eb2..3c313c7 100644 (file)
--- a/lib/Catalyst/Controller.pm
+++ b/lib/Catalyst/Controller.pm
@@ -179,7 +179,7 @@ around path_prefix => sub {
 
 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