L.dump

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index 9aead01..b9098ec 100644 (file)
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -397,6 +397,12 @@ EOCODE
   return $code;
 }
 
+sub dump {
+  my $self = shift;
+  require Data::Dumper;
+  return '<pre>' . Data::Dumper::Dumper(@_) . '</pre>';
+}
+
 1;
 
 __END__
@@ -586,6 +592,10 @@ translation of 'Selected'.
 
 =back
 
+=item C<dump REF>
+
+Dumps the Argument using L<Data::Dumper> into a E<lt>preE<gt> block.
+
 =back
 
 =head2 CONVERSION FUNCTIONS