SL::DB<->Presenter: Argumente aus Templates korrekt splicen

diff --git a/SL/DB/Helper/Presenter.pm b/SL/DB/Helper/Presenter.pm
index 0a33902af5dc1774aa359a36183b451b47511646..1dae8ccbdac531fddfbc83e01eb020c158c5f200 100644 (file)
--- a/SL/DB/Helper/Presenter.pm
+++ b/SL/DB/Helper/Presenter.pm
@@ -19,6 +19,8 @@ sub AUTOLOAD {
 
   eval "require $self->[0]";
 
 
   eval "require $self->[0]";
 

+  splice @args, -1, 1, %{ $args[-1] } if @args && (ref($args[-1]) eq 'HASH');
+

   if (my $sub = $self->[0]->can($method)) {
     return $sub->($self->[1], @args);
   }
   if (my $sub = $self->[0]->can($method)) {
     return $sub->($self->[1], @args);
   }