1 package Data::Dumper::Concise;
10 BEGIN { @ISA = qw(Exporter) }
14 my $USAGE = 'Dumper() to get an object or Dumper($ref) to dump a reference please';
18 my $dd = Data::Dumper->new([]);
19 $dd->Terse(1)->Indent(1)->Useqq(1)->Deparse(1)->Quotekeys(0)->Sortkeys(1);
22 die $USAGE unless ref($ref);
23 return $dd->Values([ $ref ])->Dump;
28 Data::Dumper::Concise - Less indentation and newlines plus sub deparsing
32 use Data::Dumper::Concise;
40 local $Data::Dumper::Terse = 1;
41 local $Data::Dumper::Indent = 1;
42 local $Data::Dumper::Useqq = 1;
43 local $Data::Dumper::Deparse = 1;
44 local $Data::Dumper::Quotekeys = 0;
45 local $Data::Dumper::Sortkeys = 1;
55 my $dd = Data::Dumper->new([])
65 { foo => "bar\nbaz", quux => sub { "fleem" } };
67 Data::Dumper::Concise will give you:
78 instead of the default Data::Dumper output:
81 'quux' => sub { "DUMMY" },
86 (note the tab indentation, oh joy ...)
90 This module always exports a single function, Dumper, which can be called
91 with a single reference value to dump that value or with no arguments to
92 return the Data::Dumper object it's created.
94 It exists, fundamentally, as a convenient way to reproduce a set of Dumper
95 options that we've found ourselves using across large numbers of applications,
96 primarily for debugging output.
98 Why is deparsing on when the aim is concision? Because you often want to know
99 what subroutine refs you have when debugging and because if you were planning
100 to eval this back in you probably wanted to remove subrefs first and add them
101 back in a custom way anyway. Note that this -does- force using the pure perl
102 Dumper rather than the XS one, but I've never in my life seen Data::Dumper
103 show up in a profile so "who cares?".
107 Matt S. Trout <mst@shadowcat.co.uk>
111 None required yet. Maybe this module is perfect (hahahahaha ...).
115 Copyright (c) 2009 the Data::Dumper::Concise L</AUTHOR> and L</CONTRIBUTORS>
120 This library is free software and may be distributed under the same terms