r46819 - in /branches/upstream/libdevel-partialdump-perl/current: .gitignore Changes MANIFEST META.yml SIGNATURE lib/Devel/PartialDump.pm

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

Author: jawnsy-guest
Date: Fri Nov  6 02:05:20 2009
New Revision: 46819

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=46819
Log:
[svn-upgrade] Integrating new upstream version, libdevel-partialdump-perl (0.10)

Removed:
    branches/upstream/libdevel-partialdump-perl/current/.gitignore
Modified:
    branches/upstream/libdevel-partialdump-perl/current/Changes
    branches/upstream/libdevel-partialdump-perl/current/MANIFEST
    branches/upstream/libdevel-partialdump-perl/current/META.yml
    branches/upstream/libdevel-partialdump-perl/current/SIGNATURE
    branches/upstream/libdevel-partialdump-perl/current/lib/Devel/PartialDump.pm

Modified: branches/upstream/libdevel-partialdump-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-partialdump-perl/current/Changes?rev=46819&op=diff
==============================================================================
--- branches/upstream/libdevel-partialdump-perl/current/Changes (original)
+++ branches/upstream/libdevel-partialdump-perl/current/Changes Fri Nov  6 02:05:20 2009
@@ -1,3 +1,6 @@
+0.10
+	- Make formatting configurable, and change to resemble JSON by default
+
 0.09
     - Add some example output to the documentation
     - Update version control notice

Modified: branches/upstream/libdevel-partialdump-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-partialdump-perl/current/MANIFEST?rev=46819&op=diff
==============================================================================
--- branches/upstream/libdevel-partialdump-perl/current/MANIFEST (original)
+++ branches/upstream/libdevel-partialdump-perl/current/MANIFEST Fri Nov  6 02:05:20 2009
@@ -1,4 +1,3 @@
-.gitignore
 Changes
 lib/Devel/PartialDump.pm
 Makefile.PL

Modified: branches/upstream/libdevel-partialdump-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-partialdump-perl/current/META.yml?rev=46819&op=diff
==============================================================================
--- branches/upstream/libdevel-partialdump-perl/current/META.yml (original)
+++ branches/upstream/libdevel-partialdump-perl/current/META.yml Fri Nov  6 02:05:20 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Devel-PartialDump
-version:            0.09
+version:            0.10
 abstract:           ~
 author:  []
 license:            unknown
@@ -19,7 +19,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.52
+generated_by:       ExtUtils::MakeMaker version 6.55_02
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libdevel-partialdump-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-partialdump-perl/current/SIGNATURE?rev=46819&op=diff
==============================================================================
--- branches/upstream/libdevel-partialdump-perl/current/SIGNATURE (original)
+++ branches/upstream/libdevel-partialdump-perl/current/SIGNATURE Fri Nov  6 02:05:20 2009
@@ -14,19 +14,18 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 fbebb6669eb496e223ef60cee9438b1e46cc574b .gitignore
-SHA1 be7c08b9146f65d4629b611b466d861210ad3ec4 Changes
-SHA1 fc4d2fae1511e8e7af88ed1a40a908f8f9400196 MANIFEST
+SHA1 64fe56b70fe03b81224b6f629be5028d2296aad4 Changes
+SHA1 373326ac80144d6db998638962151efb7381a926 MANIFEST
 SHA1 190e9058eb9c6446a1a3f3ddf15b082f1ecde152 MANIFEST.SKIP
-SHA1 f2c583277ac06c02d9427e5b5b994f6a9358cef0 META.yml
+SHA1 a52cf8f256659a5124c4c04070949449428b7c40 META.yml
 SHA1 50f268c5573b0ab9da4f22e09c855f02197b2159 Makefile.PL
-SHA1 346bb5b3c6d6e6b5dc7b78de1e2e3d0a29ebc1b6 lib/Devel/PartialDump.pm
+SHA1 c38de7cd4aa5ad2ed69c87d46e53827510f5d157 lib/Devel/PartialDump.pm
 SHA1 fe12566225161119850eaf537323a99110cb5926 t/basic.t
 SHA1 a74707044fe38d2c1709780b6834e8ab21382d43 t/exports.t
 -----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.9 (GNU/Linux)
+Version: GnuPG/MacGPG2 v2.0.12 (Darwin)
 
-iEYEARECAAYFAkpJjmUACgkQdC8qQo5jWl4YlACgheu5BwVVUmAAqyTXnQGVziex
-qroAn0/4A3BEUKSGtUkSbVNprju+SxF8
-=eO5f
+iEYEARECAAYFAkry3xgACgkQVCwRwOvSdBjmowCgiG7V3Spv4zvAOV6Ser+WvWVO
+0BEAn0cXy8e4zjDNSiBzhcojiRPExeXQ
+=+s9C
 -----END PGP SIGNATURE-----

Modified: branches/upstream/libdevel-partialdump-perl/current/lib/Devel/PartialDump.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-partialdump-perl/current/lib/Devel/PartialDump.pm?rev=46819&op=diff
==============================================================================
--- branches/upstream/libdevel-partialdump-perl/current/lib/Devel/PartialDump.pm (original)
+++ branches/upstream/libdevel-partialdump-perl/current/lib/Devel/PartialDump.pm Fri Nov  6 02:05:20 2009
@@ -8,7 +8,7 @@
 
 use namespace::clean -except => 'meta';
 
-our $VERSION = "0.09";
+our $VERSION = "0.10";
 
 use Sub::Exporter -setup => {
 	exports => [qw(dump warn show show_scalar croak carp confess cluck $default_dumper)],
@@ -89,6 +89,19 @@
 	default => 1,
 );
 
+has list_delim => (
+	isa => "Str",
+	default => ", ",
+	is => "rw",
+);
+
+has pair_delim => (
+	isa => "Str",
+	#default => " => ",
+	default => ": ",
+	is => "rw",
+);
+
 sub warn_str {
 	my ( @args ) = @_;
 	my $self;
@@ -208,7 +221,7 @@
 		@what = splice(@what, 0, $self->max_elements * 2 );
 	}
 
-	return join(", ", $self->_dump_as_pairs($depth, @what), ($truncated ? "..." : ()) );
+	return join($self->list_delim, $self->_dump_as_pairs($depth, @what), ($truncated ? "..." : ()) );
 }
 
 sub _dump_as_pairs {
@@ -219,7 +232,7 @@
 	my ( $key, $value, @rest ) = @what;
 
 	return (
-		( $self->format_key($depth, $key) . " => " . $self->format($depth, $value) ),
+		( $self->format_key($depth, $key) . $self->pair_delim . $self->format($depth, $value) ),
 		$self->_dump_as_pairs($depth, @rest),
 	);
 }
@@ -276,7 +289,6 @@
 	my ( $self, $depth, $array ) = @_;
 
 	my $class = blessed($array) || '';
-	$class .= "=" if $class;
 
 	return $class . "[ " . $self->dump_as_list($depth + 1, @$array) . " ]";
 }
@@ -285,7 +297,6 @@
 	my ( $self, $depth, $hash ) = @_;
 
 	my $class = blessed($hash) || '';
-	$class .= "=" if $class;
 
 	return $class . "{ " . $self->dump_as_pairs($depth + 1, map { $_ => $hash->{$_} } sort keys %$hash) . " }";
 }