projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Upgrade-Doku: Hinweis auf benötigtes Perl-Modul IPC::Run
[kivitendo-erp.git]
/
SL
/
DB
/
Helper
/
Presenter.pm
diff --git
a/SL/DB/Helper/Presenter.pm
b/SL/DB/Helper/Presenter.pm
index
9c9f8a2
..
1dae8cc
100644
(file)
--- a/
SL/DB/Helper/Presenter.pm
+++ b/
SL/DB/Helper/Presenter.pm
@@
-17,11
+17,21
@@
sub AUTOLOAD {
return if $method eq 'DESTROY';
return if $method eq 'DESTROY';
+ 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);
}
}
+sub can {
+ my ($self, $method) = @_;
+ eval "require $self->[0]";
+ $self->[0]->can($method);
+}
+
1;
__END__
1;
__END__