Revision 27381768
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/Controller/Base.pm | ||
|---|---|---|
| 98 | 98 |
sub _dispatch {
|
| 99 | 99 |
my $self = shift; |
| 100 | 100 |
|
| 101 |
no strict 'refs'; |
|
| 101 | 102 |
my @actions = grep { m/^action_/ } keys %{ ref($self) . "::" };
|
| 102 | 103 |
my $action = first { $::form->{$_} } @actions;
|
| 103 | 104 |
|
Auch abrufbar als: Unified diff
Controller-Namensraum nur ohne "strict refs" durchsuchbar