Controller-Namensraum nur ohne "strict refs" durchsuchbar

diff --git a/SL/Controller/Base.pm b/SL/Controller/Base.pm
index 982c379..0c81470 100644 (file)
--- a/SL/Controller/Base.pm
+++ b/SL/Controller/Base.pm
@@ -98,6 +98,7 @@ sub _controller_name {
 sub _dispatch {
   my $self    = shift;
 
+  no strict 'refs';
   my @actions = grep { m/^action_/ } keys %{ ref($self) . "::" };
   my $action  = first { $::form->{$_} } @actions;