X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FData%2FDumper%2FConcise.pm;fp=lib%2FData%2FDumper%2FConcise.pm;h=b82917989cd89b3c236b9254541b88d8441c6cb2;hb=39d55febf4cd4843f5bb61b5603ae1aecd7bb186;hp=2220af7d8ebc76f99f68c83b17ea5f4447d9d326;hpb=69d8b42249afd9e110aa837fa3258c6f51da0247;p=p5sagit%2FData-Dumper-Concise.git diff --git a/lib/Data/Dumper/Concise.pm b/lib/Data/Dumper/Concise.pm index 2220af7..b829179 100644 --- a/lib/Data/Dumper/Concise.pm +++ b/lib/Data/Dumper/Concise.pm @@ -14,7 +14,6 @@ BEGIN { @ISA = qw(Exporter) } sub Dumper { my $dd = Data::Dumper->new([]); $dd->Terse(1)->Indent(1)->Useqq(1)->Deparse(1)->Quotekeys(0)->Sortkeys(1); - return $dd unless @_; return $dd->Values([ @_ ])->Dump; } @@ -41,20 +40,6 @@ is equivalent to: warn Dumper($var); } -whereas - - my $dd = Dumper; - -is equivalent to: - - my $dd = Data::Dumper->new([]) - ->Terse(1) - ->Indent(1) - ->Useqq(1) - ->Deparse(1) - ->Quotekeys(0) - ->Sortkeys(1); - So for the structure: { foo => "bar\nbaz", quux => sub { "fleem" } }; @@ -83,16 +68,7 @@ instead of the default Data::Dumper output: =head1 DESCRIPTION This module always exports a single function, Dumper, which can be called -with an array of values to dump those values or with no arguments to -return the Data::Dumper object it's created. Note that this means that - - Dumper @list - -will probably not do what you wanted when @list is empty. In this case use - - Dumper \@list - -instead. +with an array of values to dump those values. It exists, fundamentally, as a convenient way to reproduce a set of Dumper options that we've found ourselves using across large numbers of applications, @@ -146,7 +122,7 @@ frew - Arthur Axel "fREW" Schmidt =head1 COPYRIGHT -Copyright (c) 2009 the Data::Dumper::Concise L and L +Copyright (c) 2010 the Data::Dumper::Concise L and L as listed above. =head1 LICENSE