Presenter: can-Aufruf an geproxytes Objekt durchreichen & geproxyte Klasse laden

diff --git a/SL/DB/Helper/Presenter.pm b/SL/DB/Helper/Presenter.pm
index 9c9f8a25da4256879bf1230e1ec80528bb309a1b..0a33902af5dc1774aa359a36183b451b47511646 100644 (file)
--- a/SL/DB/Helper/Presenter.pm
+++ b/SL/DB/Helper/Presenter.pm
@@ -17,11 +17,19 @@ sub AUTOLOAD {
 
   return if $method eq 'DESTROY';
 
 
   return if $method eq 'DESTROY';
 

+  eval "require $self->[0]";
+

   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__