X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FData%2FDumper%2FConcise.pm;h=5beb1a54be0b71f6b3d209456b0361d46d05a9a8;hb=92264889a0f278aa61cdee48aef484496fb6e5ce;hp=0ec1961dea2829ab26fbb7af48a2c741f381a41a;hpb=452e7ff29c95f7771bf5efd31c24cfb6f2d7b2bb;p=p5sagit%2FData-Dumper-Concise.git

diff --git a/lib/Data/Dumper/Concise.pm b/lib/Data/Dumper/Concise.pm
index 0ec1961..5beb1a5 100644
--- a/lib/Data/Dumper/Concise.pm
+++ b/lib/Data/Dumper/Concise.pm
@@ -9,7 +9,7 @@ require Data::Dumper;
 
 BEGIN { @ISA = qw(Exporter) }
 
-@EXPORT = qw(Dumper);
+@EXPORT = qw(Dumper DumperF);
 
 sub Dumper {
   my $dd = Data::Dumper->new([]);
@@ -17,6 +17,11 @@ sub Dumper {
   return $dd->Values([ @_ ])->Dump;
 }
 
+sub DumperF (&@) {
+  my $code = shift;
+  return $code->(map Dumper($_), @_);
+}
+
 =head1 NAME
 
 Data::Dumper::Concise - Less indentation and newlines plus sub deparsing
@@ -65,6 +70,17 @@ instead of the default Data::Dumper output:
 
 (note the tab indentation, oh joy ...)
 
+Also try out C<DumperF> which takes a C<CodeRef> as the first argument to
+format the output.  For example:
+
+  use Data::Dumper::Concise;
+
+  warn DumperF { "result: $_[0] result2: $_[1]" } $foo, $bar;
+
+Which is the same as:
+
+  warn 'result: ' . Dumper($foo) . ' result2: ' . Dumper($bar);
+
 =head1 DESCRIPTION
 
 This module always exports a single function, Dumper, which can be called