use 5.006;
-$VERSION = '2.011';
+$VERSION = '2.012';
require Exporter;
require Data::Dumper;
BEGIN { @ISA = qw(Exporter) }
-@EXPORT = qw(Dumper);
+@EXPORT = qw(Dumper DumperF);
sub Dumper {
my $dd = Data::Dumper->new([]);
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
(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