Add DumperObject for getting at the underlying obj

diff --git a/Changes b/Changes
index 9e77f22..0659c74 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,4 @@
+  - Add DumperObject for getting at the underlying obj
   - create DwarnF for formatting Dumper'd output
   - Create Ddie for die'ing output
 

diff --git a/lib/Data/Dumper/Concise.pm b/lib/Data/Dumper/Concise.pm
index 5beb1a5..14c147c 100644 (file)
--- a/lib/Data/Dumper/Concise.pm
+++ b/lib/Data/Dumper/Concise.pm
@@ -9,14 +9,15 @@ require Data::Dumper;
 
 BEGIN { @ISA = qw(Exporter) }
 
-@EXPORT = qw(Dumper DumperF);
+@EXPORT = qw(Dumper DumperF DumperObject);
 
-sub Dumper {
+sub DumperObject {
   my $dd = Data::Dumper->new([]);
   $dd->Terse(1)->Indent(1)->Useqq(1)->Deparse(1)->Quotekeys(0)->Sortkeys(1);
-  return $dd->Values([ @_ ])->Dump;
 }
 
+sub Dumper { DumperObject->Values([ @_ ])->Dump }
+
 sub DumperF (&@) {
   my $code = shift;
   return $code->(map Dumper($_), @_);
@@ -70,6 +71,8 @@ instead of the default Data::Dumper output:
 
 (note the tab indentation, oh joy ...)
 
+If you need to get the underlying L<Dumper> object just call C<DumperObject>.
+
 Also try out C<DumperF> which takes a C<CodeRef> as the first argument to
 format the output.  For example: