r47625 - in /trunk/libdata-dumper-concise-perl: Changes MANIFEST META.yml debian/changelog lib/Data/Dumper/Concise.pm t/concise.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sun Nov 22 16:46:26 2009
New Revision: 47625

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47625
Log:
New upstream release

Added:
    trunk/libdata-dumper-concise-perl/Changes
      - copied unchanged from r47624, branches/upstream/libdata-dumper-concise-perl/current/Changes
Modified:
    trunk/libdata-dumper-concise-perl/MANIFEST
    trunk/libdata-dumper-concise-perl/META.yml
    trunk/libdata-dumper-concise-perl/debian/changelog
    trunk/libdata-dumper-concise-perl/lib/Data/Dumper/Concise.pm
    trunk/libdata-dumper-concise-perl/t/concise.t

Modified: trunk/libdata-dumper-concise-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dumper-concise-perl/MANIFEST?rev=47625&op=diff
==============================================================================
--- trunk/libdata-dumper-concise-perl/MANIFEST (original)
+++ trunk/libdata-dumper-concise-perl/MANIFEST Sun Nov 22 16:46:26 2009
@@ -1,3 +1,4 @@
+Changes
 inc/Module/Install.pm
 inc/Module/Install/Base.pm
 inc/Module/Install/Can.pm

Modified: trunk/libdata-dumper-concise-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dumper-concise-perl/META.yml?rev=47625&op=diff
==============================================================================
--- trunk/libdata-dumper-concise-perl/META.yml (original)
+++ trunk/libdata-dumper-concise-perl/META.yml Sun Nov 22 16:46:26 2009
@@ -22,4 +22,4 @@
   perl: 5.6.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 1.001
+version: 1.002

Modified: trunk/libdata-dumper-concise-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dumper-concise-perl/debian/changelog?rev=47625&op=diff
==============================================================================
--- trunk/libdata-dumper-concise-perl/debian/changelog (original)
+++ trunk/libdata-dumper-concise-perl/debian/changelog Sun Nov 22 16:46:26 2009
@@ -1,3 +1,9 @@
+libdata-dumper-concise-perl (1.002-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Sun, 22 Nov 2009 08:13:29 -0500
+
 libdata-dumper-concise-perl (1.001-1) unstable; urgency=low
 
   * Initial Release (Closes: #556363)

Modified: trunk/libdata-dumper-concise-perl/lib/Data/Dumper/Concise.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dumper-concise-perl/lib/Data/Dumper/Concise.pm?rev=47625&op=diff
==============================================================================
--- trunk/libdata-dumper-concise-perl/lib/Data/Dumper/Concise.pm (original)
+++ trunk/libdata-dumper-concise-perl/lib/Data/Dumper/Concise.pm Sun Nov 22 16:46:26 2009
@@ -2,7 +2,7 @@
 
 use 5.006;
 
-$VERSION = '1.001';
+$VERSION = '1.002';
 
 require Exporter;
 require Data::Dumper;
@@ -11,16 +11,11 @@
 
 @EXPORT = qw(Dumper);
 
-my $USAGE = 'Dumper() to get an object or Dumper($ref) to dump a reference please';
-
 sub Dumper {
-  die $USAGE if @_ > 1;
   my $dd = Data::Dumper->new([]);
   $dd->Terse(1)->Indent(1)->Useqq(1)->Deparse(1)->Quotekeys(0)->Sortkeys(1);
   return $dd unless @_;
-  my $ref = $_[0];
-  die $USAGE unless ref($ref);
-  return $dd->Values([ $ref ])->Dump;
+  return $dd->Values([ @_ ])->Dump;
 }
 
 =head1 NAME
@@ -88,8 +83,16 @@
 =head1 DESCRIPTION
 
 This module always exports a single function, Dumper, which can be called
-with a single reference value to dump that value or with no arguments to
-return the Data::Dumper object it's created.
+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.
 
 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,

Modified: trunk/libdata-dumper-concise-perl/t/concise.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dumper-concise-perl/t/concise.t?rev=47625&op=diff
==============================================================================
--- trunk/libdata-dumper-concise-perl/t/concise.t (original)
+++ trunk/libdata-dumper-concise-perl/t/concise.t Sun Nov 22 16:46:26 2009
@@ -14,27 +14,27 @@
 
 my $dd_c = Dumper;
 
-my $to_dump = { foo => "bar\nbaz", quux => sub { "fleem" } };
+foreach my $to_dump (
+  [ { foo => "bar\nbaz", quux => sub { "fleem" }  } ],
+  [ 'one', 'two' ]
+) {
 
-$dd_c->Values([ $to_dump ]);
-$dd->Values([ $to_dump ]);
-
-my $example = do {
-  local $Data::Dumper::Terse = 1;
-  local $Data::Dumper::Indent = 1;
-  local $Data::Dumper::Useqq = 1;
-  local $Data::Dumper::Deparse = 1;
-  local $Data::Dumper::Quotekeys = 0;
-  local $Data::Dumper::Sortkeys = 1;
-  Data::Dumper::Dumper($to_dump);
-};
-
-is($example, $dd->Dump, 'Both Data::Dumper usages equivalent');
-
-is($example, $dd_c->Dump, 'Returned object usage equivalent');
-
-is($example, Dumper($to_dump), 'Subroutine call usage equivalent');
-
-ok(!eval { Dumper(1); 1 }, 'Non-ref call dies');
-
-ok(!eval { Dumper({}, {}); 1 }, 'Multi-ref call dies');
+  $dd_c->Values([ @$to_dump ]);
+  $dd->Values([ @$to_dump ]);
+  
+  my $example = do {
+    local $Data::Dumper::Terse = 1;
+    local $Data::Dumper::Indent = 1;
+    local $Data::Dumper::Useqq = 1;
+    local $Data::Dumper::Deparse = 1;
+    local $Data::Dumper::Quotekeys = 0;
+    local $Data::Dumper::Sortkeys = 1;
+    Data::Dumper::Dumper(@$to_dump);
+  };
+  
+  is($example, $dd->Dump, 'Both Data::Dumper usages equivalent');
+  
+  is($example, $dd_c->Dump, 'Returned object usage equivalent');
+  
+  is($example, Dumper(@$to_dump), 'Subroutine call usage equivalent');
+}