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