Controller-Namensraum nur ohne "strict refs" durchsuchbar

[kivitendo-erp.git] / SL / Controller / Base.pm

diff --git a/SL/Controller/Base.pm b/SL/Controller/Base.pm
index 2db2115..0c81470 100644 (file)
--- a/SL/Controller/Base.pm
+++ b/SL/Controller/Base.pm
@@ -1,5 +1,7 @@
 package SL::Controller::Base;
 
+use strict;
+
 use parent qw(Rose::Object);
 
 use Carp;
@@ -96,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;