Payment-Helper pay_invoice um Rückgabewert der acc_trans_ids erweitert

[mfinanz.git] / SL / DB / Helper / Presenter.pm

diff --git a/SL/DB/Helper/Presenter.pm b/SL/DB/Helper/Presenter.pm
index 240d18ff2462340bfe518171af0658b1bf9edc9c..1dae8ccbdac531fddfbc83e01eb020c158c5f200 100644 (file)
--- a/SL/DB/Helper/Presenter.pm
+++ b/SL/DB/Helper/Presenter.pm
@@ -17,7 +17,19 @@ sub AUTOLOAD {
 
   return if $method eq 'DESTROY';
 
-  return $self->[0]->$method($self->[1], @args);
+  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);
+  }
+}
+
+sub can {
+  my ($self, $method) = @_;
+  eval "require $self->[0]";
+  $self->[0]->can($method);
 }
 
 1;