Presenter-Template-Plugin: bei nicht existierenden Funktionen warnen

diff --git a/SL/Template/Plugin/P.pm b/SL/Template/Plugin/P.pm
index d2f4423..44eeb43 100644 (file)
--- a/SL/Template/Plugin/P.pm
+++ b/SL/Template/Plugin/P.pm
@@ -29,7 +29,12 @@ sub AUTOLOAD {
   my $method        =  $AUTOLOAD;
   $method           =~ s/.*:://;
 
-  return '' unless $presenter->can($method);
+  return '' if $method eq 'DESTROY';
+
+  if (!$presenter->can($method)) {
+    $::lxdebug->message(LXDebug::WARN(), "SL::Presenter has no method named '$method'!");
+    return '';
+  }
 
   splice @args, -1, 1, %{ $args[-1] } if @args && (ref($args[-1]) eq 'HASH');