Revision c4eb3b16
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
SL/Controller/Base.pm | ||
---|---|---|
204 | 204 |
} |
205 | 205 |
|
206 | 206 |
sub _controller_name { |
207 |
return (split(/::/, ref($_[0]) || $_[0]))[-1]; |
|
207 |
my $class = ref($_[0]) || $_[0]; |
|
208 |
$class =~ s/^SL::Controller:://; |
|
209 |
return $class; |
|
208 | 210 |
} |
209 | 211 |
|
210 | 212 |
sub _dispatch { |
Auch abrufbar als: Unified diff
SL::Controller::Base::_controller_name für Kontrollernamen mit :: im lokalen Part