SL::Controller::Base::_controller_name für Kontrollernamen mit :: im lokalen Part
authorMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 31 Aug 2012 16:06:33 +0000 (18:06 +0200)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 31 Aug 2012 16:06:33 +0000 (18:06 +0200)
SL/Controller/Base.pm

index 4dace86..1188ffe 100644 (file)
@@ -204,7 +204,9 @@ sub _run_action {
 }
 
 sub _controller_name {
-  return (split(/::/, ref($_[0]) || $_[0]))[-1];
+  my $class = ref($_[0]) || $_[0];
+  $class    =~ s/^SL::Controller:://;
+  return $class;
 }
 
 sub _dispatch {