From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Thu, 20 Jan 2011 18:37:28 +0000 (-0600)
Subject: Add DumperObject for getting at the underlying obj
X-Git-Tag: v2.020~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FData-Dumper-Concise.git;a=commitdiff_plain;h=7bbc3007e2785ad38fd057e30e31fc1f704cb26e

Add DumperObject for getting at the underlying obj
---

diff --git a/Changes b/Changes
index 9e77f22..0659c74 100644
--- 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
--- 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: