Hello community,
here is the log from the commit of package perl-Devel-PartialDump for
openSUSE:Factory checked in at 2013-12-12 11:20:39
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Devel-PartialDump (Old)
and /work/SRC/openSUSE:Factory/.perl-Devel-PartialDump.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Devel-PartialDump"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Devel-PartialDump/perl-Devel-PartialDump.changes
2013-12-09 07:13:51.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Devel-PartialDump.new/perl-Devel-PartialDump.changes
2013-12-12 11:20:40.000000000 +0100
@@ -1,0 +2,10 @@
+Mon Dec 9 11:15:23 UTC 2013 - [email protected]
+
+- updated to 0.17
+ - many fixes (thanks, Steven Lee!)
+ - attribute list_delim is now being used in list dumps
+ - setting attribute max_length to 0 now shortens more, to '...'
+ - fixed use of = in array/hash ref objects
+ - extra test coverage
+
+-------------------------------------------------------------------
Old:
----
Devel-PartialDump-0.16.tar.gz
New:
----
Devel-PartialDump-0.17.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Devel-PartialDump.spec ++++++
--- /var/tmp/diff_new_pack.heoJZ6/_old 2013-12-12 11:20:41.000000000 +0100
+++ /var/tmp/diff_new_pack.heoJZ6/_new 2013-12-12 11:20:41.000000000 +0100
@@ -17,7 +17,7 @@
Name: perl-Devel-PartialDump
-Version: 0.16
+Version: 0.17
Release: 0
%define cpan_name Devel-PartialDump
Summary: Partial dumping of data structures, optimized for argument
printing.
++++++ Devel-PartialDump-0.16.tar.gz -> Devel-PartialDump-0.17.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/CONTRIBUTING
new/Devel-PartialDump-0.17/CONTRIBUTING
--- old/Devel-PartialDump-0.16/CONTRIBUTING 2013-11-24 01:43:56.000000000
+0100
+++ new/Devel-PartialDump-0.17/CONTRIBUTING 2013-11-30 21:47:55.000000000
+0100
@@ -50,7 +50,7 @@
$ dzil test --release
$ dzil xtest
$ dzil listdeps --json
- $ dzil build --not
+ $ dzil build --notgz
You can learn more about Dist::Zilla at http://dzil.org/.
@@ -71,4 +71,4 @@
This file was generated via Dist::Zilla::Plugin::GenerateFile::ShareDir 0.002
from a
-template file originating in Dist-Zilla-PluginBundle-Author-ETHER-0.040.
+template file originating in Dist-Zilla-PluginBundle-Author-ETHER-0.041.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/Changes
new/Devel-PartialDump-0.17/Changes
--- old/Devel-PartialDump-0.16/Changes 2013-11-24 01:43:56.000000000 +0100
+++ new/Devel-PartialDump-0.17/Changes 2013-11-30 21:47:55.000000000 +0100
@@ -1,5 +1,12 @@
Revision history for Devel-PartialDump
+0.17 2013-11-30 20:47:47Z
+ - many fixes (thanks, Steven Lee!)
+ - attribute list_delim is now being used in list dumps
+ - setting attribute max_length to 0 now shortens more, to '...'
+ - fixed use of = in array/hash ref objects
+ - extra test coverage
+
0.16 2013-11-24 00:43:48Z
- Moose dependency removed, resolving circular dependency in Moose's
recommended prereqs (thanks, David Golden!)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/MANIFEST
new/Devel-PartialDump-0.17/MANIFEST
--- old/Devel-PartialDump-0.16/MANIFEST 2013-11-24 01:43:56.000000000 +0100
+++ new/Devel-PartialDump-0.17/MANIFEST 2013-11-30 21:47:55.000000000 +0100
@@ -14,6 +14,7 @@
t/00-report-prereqs.t
t/basic.t
t/exports.t
+t/objects.t
weaver.ini
xt/author/00-compile.t
xt/author/pod-spell.t
@@ -27,4 +28,5 @@
xt/release/no-tabs.t
xt/release/pod-no404s.t
xt/release/pod-syntax.t
+xt/release/portability.t
xt/release/test-version.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/META.json
new/Devel-PartialDump-0.17/META.json
--- old/Devel-PartialDump-0.16/META.json 2013-11-24 01:43:56.000000000
+0100
+++ new/Devel-PartialDump-0.17/META.json 2013-11-30 21:47:55.000000000
+0100
@@ -29,7 +29,7 @@
},
"develop" : {
"recommends" : {
- "Dist::Zilla::PluginBundle::Author::ETHER" : "0.040"
+ "Dist::Zilla::PluginBundle::Author::ETHER" : "0.041"
},
"requires" : {
"Dist::Zilla" : "5.006",
@@ -38,6 +38,7 @@
"Dist::Zilla::Plugin::GithubMeta" : "0",
"Dist::Zilla::Plugin::MakeMaker::Fallback" : "0",
"Dist::Zilla::Plugin::ModuleBuildTiny" : "0.004",
+ "Dist::Zilla::Plugin::Prereqs" : "0",
"Dist::Zilla::PluginBundle::Author::ETHER" : "0",
"File::Spec" : "0",
"IO::Handle" : "0",
@@ -48,7 +49,8 @@
"Test::Kwalitee" : "1.12",
"Test::More" : "0.94",
"Test::NoTabs" : "0",
- "Test::Pod" : "1.41"
+ "Test::Pod" : "1.41",
+ "Test::Warnings" : "0"
}
},
"runtime" : {
@@ -75,14 +77,16 @@
"List::Util" : "0",
"Test::More" : "0",
"Test::Warn" : "0",
- "ok" : "0"
+ "if" : "0",
+ "ok" : "0",
+ "overload" : "0"
}
}
},
"provides" : {
"Devel::PartialDump" : {
"file" : "lib/Devel/PartialDump.pm",
- "version" : "0.16"
+ "version" : "0.17"
}
},
"release_status" : "stable",
@@ -98,10 +102,10 @@
"web" : "https://github.com/karenetheridge/Devel-PartialDump";
}
},
- "version" : "0.16",
+ "version" : "0.17",
"x_Dist_Zilla" : {
"perl" : {
- "version" : "5.019005"
+ "version" : "5.019006"
},
"plugins" : [
{
@@ -111,13 +115,41 @@
},
{
"class" : "Dist::Zilla::Plugin::PromptIfStale",
+ "config" : {
+ "Dist::Zilla::Plugin::PromptIfStale" : {
+ "check_all_plugins" : 0,
+ "check_all_prereqs" : 0,
+ "modules" : [
+ "Dist::Zilla::PluginBundle::Author::ETHER"
+ ],
+ "phase" : "build",
+ "skip" : []
+ }
+ },
"name" : "@Author::ETHER/build",
- "version" : "0.013"
+ "version" : "0.014"
},
{
"class" : "Dist::Zilla::Plugin::PromptIfStale",
+ "config" : {
+ "Dist::Zilla::Plugin::PromptIfStale" : {
+ "check_all_plugins" : "1",
+ "check_all_prereqs" : "1",
+ "modules" : [],
+ "phase" : "release",
+ "skip" : [
+ "Dist::Zilla::Plugin::Git::Check",
+ "Dist::Zilla::Plugin::Git::Commit",
+ "Dist::Zilla::Plugin::Git::GatherDir",
+ "Dist::Zilla::Plugin::Git::NextVersion",
+ "Dist::Zilla::Plugin::Git::Push",
+ "Dist::Zilla::Plugin::Git::Tag",
+ "Dist::Zilla::Plugin::Git::Init"
+ ]
+ }
+ },
"name" : "@Author::ETHER/release",
- "version" : "0.013"
+ "version" : "0.014"
},
{
"class" : "Dist::Zilla::Plugin::ExecDir",
@@ -192,7 +224,7 @@
}
},
"name" : "@Author::ETHER/Test::Compile",
- "version" : "2.037"
+ "version" : "2.038"
},
{
"class" : "Dist::Zilla::Plugin::Test::NoTabs",
@@ -271,6 +303,11 @@
"version" : "0.010"
},
{
+ "class" : "Dist::Zilla::Plugin::Test::Portability",
+ "name" : "@Author::ETHER/Test::Portability",
+ "version" : "2.000005"
+ },
+ {
"class" : "Dist::Zilla::Plugin::PruneCruft",
"name" : "@Author::ETHER/PruneCruft",
"version" : "5.006"
@@ -395,11 +432,6 @@
"version" : "1.008"
},
{
- "class" : "Pod::Weaver::Plugin::Encoding",
- "name" : "-Encoding",
- "version" : "0.02"
- },
- {
"class" : "Pod::Weaver::Section::Contributors",
"name" : "Contributors",
"version" : "0.006"
@@ -418,7 +450,7 @@
{
"class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod",
"name" : "@Author::ETHER/ReadmeAnyFromPod",
- "version" : "0.133060"
+ "version" : "0.133290"
},
{
"class" : "Dist::Zilla::Plugin::GithubMeta",
@@ -513,7 +545,7 @@
{
"class" : "Dist::Zilla::Plugin::InstallGuide",
"name" : "@Author::ETHER/InstallGuide",
- "version" : "1.200001"
+ "version" : "1.200002"
},
{
"class" : "Dist::Zilla::Plugin::CheckSelfDependency",
@@ -612,6 +644,17 @@
"version" : "5.006"
},
{
+ "class" : "Dist::Zilla::Plugin::Prereqs",
+ "config" : {
+ "Dist::Zilla::Plugin::Prereqs" : {
+ "phase" : "develop",
+ "type" : "requires"
+ }
+ },
+ "name" : "DevelopRequires",
+ "version" : "5.006"
+ },
+ {
"class" : "Dist::Zilla::Plugin::ContributorsFromGit",
"name" : "ContributorsFromGit",
"version" : "0.006"
@@ -661,7 +704,8 @@
"Florian Ragwitz <[email protected]>",
"Jesse Luehrs <[email protected]>",
"Karen Etheridge <[email protected]>",
- "Leo Lapworth <[email protected]>"
+ "Leo Lapworth <[email protected]>",
+ "Steven Lee <[email protected]>"
]
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/META.yml
new/Devel-PartialDump-0.17/META.yml
--- old/Devel-PartialDump-0.16/META.yml 2013-11-24 01:43:56.000000000 +0100
+++ new/Devel-PartialDump-0.17/META.yml 2013-11-30 21:47:55.000000000 +0100
@@ -8,7 +8,9 @@
List::Util: 0
Test::More: 0
Test::Warn: 0
+ if: 0
ok: 0
+ overload: 0
configure_requires:
ExtUtils::MakeMaker: 6.30
Module::Build::Tiny: 0.030
@@ -27,7 +29,7 @@
provides:
Devel::PartialDump:
file: lib/Devel/PartialDump.pm
- version: 0.16
+ version: 0.17
requires:
Carp: 0
Carp::Heavy: 0
@@ -42,10 +44,10 @@
bugtracker:
https://rt.cpan.org/Public/Dist/Display.html?Name=Devel-PartialDump
homepage: https://github.com/karenetheridge/Devel-PartialDump
repository: https://github.com/karenetheridge/Devel-PartialDump.git
-version: 0.16
+version: 0.17
x_Dist_Zilla:
perl:
- version: 5.019005
+ version: 5.019006
plugins:
-
class: Dist::Zilla::Plugin::Git::NextVersion
@@ -53,12 +55,34 @@
version: 2.017
-
class: Dist::Zilla::Plugin::PromptIfStale
+ config:
+ Dist::Zilla::Plugin::PromptIfStale:
+ check_all_plugins: 0
+ check_all_prereqs: 0
+ modules:
+ - Dist::Zilla::PluginBundle::Author::ETHER
+ phase: build
+ skip: []
name: '@Author::ETHER/build'
- version: 0.013
+ version: 0.014
-
class: Dist::Zilla::Plugin::PromptIfStale
+ config:
+ Dist::Zilla::Plugin::PromptIfStale:
+ check_all_plugins: 1
+ check_all_prereqs: 1
+ modules: []
+ phase: release
+ skip:
+ - Dist::Zilla::Plugin::Git::Check
+ - Dist::Zilla::Plugin::Git::Commit
+ - Dist::Zilla::Plugin::Git::GatherDir
+ - Dist::Zilla::Plugin::Git::NextVersion
+ - Dist::Zilla::Plugin::Git::Push
+ - Dist::Zilla::Plugin::Git::Tag
+ - Dist::Zilla::Plugin::Git::Init
name: '@Author::ETHER/release'
- version: 0.013
+ version: 0.014
-
class: Dist::Zilla::Plugin::ExecDir
name: '@Author::ETHER/ExecDir'
@@ -116,7 +140,7 @@
- ':ExecFiles'
- '@Author::ETHER/Examples'
name: '@Author::ETHER/Test::Compile'
- version: 2.037
+ version: 2.038
-
class: Dist::Zilla::Plugin::Test::NoTabs
config:
@@ -177,6 +201,10 @@
name: '@Author::ETHER/Test::ReportPrereqs'
version: 0.010
-
+ class: Dist::Zilla::Plugin::Test::Portability
+ name: '@Author::ETHER/Test::Portability'
+ version: 2.000005
+ -
class: Dist::Zilla::Plugin::PruneCruft
name: '@Author::ETHER/PruneCruft'
version: 5.006
@@ -277,10 +305,6 @@
name: '-StopWords'
version: 1.008
-
- class: Pod::Weaver::Plugin::Encoding
- name: '-Encoding'
- version: 0.02
- -
class: Pod::Weaver::Section::Contributors
name: Contributors
version: 0.006
@@ -293,7 +317,7 @@
-
class: Dist::Zilla::Plugin::ReadmeAnyFromPod
name: '@Author::ETHER/ReadmeAnyFromPod'
- version: 0.133060
+ version: 0.133290
-
class: Dist::Zilla::Plugin::GithubMeta
name: '@Author::ETHER/GithubMeta'
@@ -367,7 +391,7 @@
-
class: Dist::Zilla::Plugin::InstallGuide
name: '@Author::ETHER/InstallGuide'
- version: 1.200001
+ version: 1.200002
-
class: Dist::Zilla::Plugin::CheckSelfDependency
name: '@Author::ETHER/CheckSelfDependency'
@@ -445,6 +469,14 @@
name: '@Author::ETHER/via_options'
version: 5.006
-
+ class: Dist::Zilla::Plugin::Prereqs
+ config:
+ Dist::Zilla::Plugin::Prereqs:
+ phase: develop
+ type: requires
+ name: DevelopRequires
+ version: 5.006
+ -
class: Dist::Zilla::Plugin::ContributorsFromGit
name: ContributorsFromGit
version: 0.006
@@ -484,3 +516,4 @@
- 'Jesse Luehrs <[email protected]>'
- 'Karen Etheridge <[email protected]>'
- 'Leo Lapworth <[email protected]>'
+ - 'Steven Lee <[email protected]>'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/Makefile.PL
new/Devel-PartialDump-0.17/Makefile.PL
--- old/Devel-PartialDump-0.16/Makefile.PL 2013-11-24 01:43:56.000000000
+0100
+++ new/Devel-PartialDump-0.17/Makefile.PL 2013-11-30 21:47:55.000000000
+0100
@@ -7,8 +7,8 @@
BEGIN {
my %configure_requires = (
- 'Module::Build::Tiny' => '0.030',
'ExtUtils::MakeMaker' => '6.30',
+ 'Module::Build::Tiny' => '0.030',
);
my @missing = grep {
@@ -85,9 +85,11 @@
"List::Util" => 0,
"Test::More" => 0,
"Test::Warn" => 0,
- "ok" => 0
+ "if" => 0,
+ "ok" => 0,
+ "overload" => 0
},
- "VERSION" => "0.16",
+ "VERSION" => "0.17",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/README
new/Devel-PartialDump-0.17/README
--- old/Devel-PartialDump-0.16/README 2013-11-24 01:43:56.000000000 +0100
+++ new/Devel-PartialDump-0.17/README 2013-11-30 21:47:55.000000000 +0100
@@ -1,7 +1,7 @@
This archive contains the distribution Devel-PartialDump,
-version 0.16:
+version 0.17:
Partial dumping of data structures, optimized for argument printing.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/README.md
new/Devel-PartialDump-0.17/README.md
--- old/Devel-PartialDump-0.16/README.md 2013-11-24 01:43:56.000000000
+0100
+++ new/Devel-PartialDump-0.17/README.md 2013-11-30 21:47:55.000000000
+0100
@@ -4,7 +4,7 @@
# VERSION
-version 0.16
+version 0.17
# SYNOPSIS
@@ -93,7 +93,7 @@
- stringify
Whether or not to let objects stringify themselves, instead of using
- ["StrVal" in overload](http://search.cpan.org/perldoc?overload#StrVal) to
avoid side effects.
+ ["StrVal" in overload](https://metacpan.org/pod/overload#StrVal) to avoid
side effects.
Defaults to false (no overloading).
@@ -108,7 +108,7 @@
All exports are optional, nothing is exported by default.
-This module uses
[Sub::Exporter](http://search.cpan.org/perldoc?Sub::Exporter), so exports can
be renamed, curried, etc.
+This module uses [Sub::Exporter](https://metacpan.org/pod/Sub::Exporter), so
exports can be renamed, curried, etc.
- warn
- show
@@ -122,7 +122,7 @@
See the various methods for behavior documentation.
These methods will use `$Devel::PartialDump::default_dumper` as the
invocant if the
- first argument is not blessed and `isa`
[Devel::PartialDump](http://search.cpan.org/perldoc?Devel::PartialDump), so
they can be
+ first argument is not blessed and `isa`
[Devel::PartialDump](https://metacpan.org/pod/Devel::PartialDump), so they can
be
used as functions too.
Particularly `warn` can be used as a drop in replacement for the built in
@@ -168,14 +168,14 @@
which has a prototype of `$` (as opposed to taking a list).
- This is similar to the venerable Ingy's fabulous and amazing
[XXX](http://search.cpan.org/perldoc?XXX) module.
+ This is similar to the venerable Ingy's fabulous and amazing
[XXX](https://metacpan.org/pod/XXX) module.
- carp
- croak
- confess
- cluck
- Drop in replacements for [Carp](http://search.cpan.org/perldoc?Carp)
exports, that format their arguments like
+ Drop in replacements for [Carp](https://metacpan.org/pod/Carp) exports,
that format their arguments like
`warn`.
- dump @stuff
@@ -235,3 +235,4 @@
- Jesse Luehrs <[email protected]>
- Karen Etheridge <[email protected]>
- Leo Lapworth <[email protected]>
+- Steven Lee <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/dist.ini
new/Devel-PartialDump-0.17/dist.ini
--- old/Devel-PartialDump-0.16/dist.ini 2013-11-24 01:43:56.000000000 +0100
+++ new/Devel-PartialDump-0.17/dist.ini 2013-11-30 21:47:55.000000000 +0100
@@ -10,6 +10,9 @@
-remove = PodCoverageTests
-remove = Test::UnusedVars ; $depth not used
+[Prereqs / DevelopRequires]
+Test::Warnings = 0
+
; authordep Pod::Weaver::Section::Contributors
[ContributorsFromGit]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/lib/Devel/PartialDump.pm
new/Devel-PartialDump-0.17/lib/Devel/PartialDump.pm
--- old/Devel-PartialDump-0.16/lib/Devel/PartialDump.pm 2013-11-24
01:43:56.000000000 +0100
+++ new/Devel-PartialDump-0.17/lib/Devel/PartialDump.pm 2013-11-30
21:47:55.000000000 +0100
@@ -2,9 +2,9 @@
use warnings;
package Devel::PartialDump;
{
- $Devel::PartialDump::VERSION = '0.16';
+ $Devel::PartialDump::VERSION = '0.17';
}
-# git description: v0.15-14-g1affd47
+# git description: v0.16-10-g3303cfd
BEGIN {
$Devel::PartialDump::AUTHORITY = 'cpan:NUFFIN';
@@ -48,9 +48,9 @@
package DB;
{
- $DB::VERSION = '0.16';
+ $DB::VERSION = '0.17';
}
-# git description: v0.15-14-g1affd47
+# git description: v0.16-10-g3303cfd
BEGIN {
$DB::AUTHORITY = 'cpan:NUFFIN';
@@ -157,10 +157,10 @@
my $dump = $self->$method(1, @args);
- if ( defined $self->max_length ) {
- if ( length($dump) > $self->max_length ) {
- $dump = substr($dump, 0, $self->max_length - 3) . "...";
- }
+ if ( defined $self->max_length and length($dump) > $self->max_length ) {
+ my $max_length = $self->max_length - 3;
+ $max_length = 0 if $max_length < 0;
+ substr( $dump, $max_length, length($dump) - $max_length ) = '...';
}
if ( not defined wantarray ) {
@@ -193,7 +193,7 @@
@what = splice(@what, 0, $self->max_elements * 2 );
}
- return join($self->list_delim, $self->_dump_as_pairs($depth, @what),
($truncated ? "..." : ()) );
+ return join( $self->list_delim, $self->_dump_as_pairs($depth, @what),
($truncated ? "..." : ()) );
}
sub _dump_as_pairs {
@@ -218,7 +218,7 @@
@what = splice(@what, 0, $self->max_elements );
}
- return join( ", ", ( map { $self->format($depth, $_) } @what ),
($truncated ? "..." : ()) );
+ return join( $self->list_delim, ( map { $self->format($depth, $_) } @what
), ($truncated ? "..." : ()) );
}
sub format {
@@ -263,6 +263,7 @@
my ( $self, $depth, $array ) = @_;
my $class = blessed($array) || '';
+ $class .= "=" if $class;
return $class . "[ " . $self->dump_as_list($depth + 1, @$array) . " ]";
}
@@ -271,6 +272,7 @@
my ( $self, $depth, $hash ) = @_;
my $class = blessed($hash) || '';
+ $class .= "=" if $class;
return $class . "{ " . $self->dump_as_pairs($depth + 1, map { $_ =>
$hash->{$_} } sort keys %$hash) . " }";
}
@@ -331,8 +333,8 @@
=encoding UTF-8
-=for :stopwords יובל קוג'מן (Yuval Kogman) David Golden Florian Ragwitz Jesse
Luehrs Karen
-Etheridge Leo Lapworth autodetect Ingy
+=for :stopwords יובל קוג'מן (Yuval Kogman) David Steven Lee Golden Florian
Ragwitz Jesse
+Luehrs Karen Etheridge Leo Lapworth autodetect Ingy
=head1 NAME
@@ -340,7 +342,7 @@
=head1 VERSION
-version 0.16
+version 0.17
=head1 SYNOPSIS
@@ -631,6 +633,10 @@
Leo Lapworth <[email protected]>
+=item *
+
+Steven Lee <[email protected]>
+
=back
=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/t/00-report-prereqs.t
new/Devel-PartialDump-0.17/t/00-report-prereqs.t
--- old/Devel-PartialDump-0.16/t/00-report-prereqs.t 2013-11-24
01:43:56.000000000 +0100
+++ new/Devel-PartialDump-0.17/t/00-report-prereqs.t 2013-11-30
21:47:55.000000000 +0100
@@ -25,8 +25,10 @@
Sub::Exporter
Test::More
Test::Warn
+ if
namespace::clean
ok
+ overload
perl
strict
warnings
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/t/basic.t
new/Devel-PartialDump-0.17/t/basic.t
--- old/Devel-PartialDump-0.16/t/basic.t 2013-11-24 01:43:56.000000000
+0100
+++ new/Devel-PartialDump-0.17/t/basic.t 2013-11-30 21:47:55.000000000
+0100
@@ -1,21 +1,20 @@
use strict;
-use warnings;
+use warnings FATAL => 'all';
use Test::More;
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use ok 'Devel::PartialDump';
-my $d = Devel::PartialDump->new;
+our $d = Devel::PartialDump->new;
is( $d->dump("foo"), '"foo"', "simple value" );
-is( $d->dump("foo" => "bar"), 'foo: "bar"', "named params" );
-
-is( $d->dump( foo => "bar", gorch => [ 1, "bah" ] ), 'foo: "bar", gorch: [ 1,
"bah" ]', "recursion" );
+is( $d->dump(undef), "undef", "undef" );
-like( $d->dump( [ { foo => ["bar"] } ] ), qr/\[ \{ foo: ARRAY\(0x[a-z0-9]+\)
\} \]/i, "max depth" );
+is( $d->dump("foo" => "bar"), 'foo: "bar"', "named params" );
-is( $d->dump([ 1 .. 10 ]), '[ 1, 2, 3, 4, 5, 6, ... ]', "max elements" );
+is( $d->dump( \"foo" => "bar" ), '\\"foo", "bar"', "not named params" );
is( $d->dump("foo\nbar"), '"foo\nbar"', "newline" );
@@ -26,4 +25,83 @@
is( $d->dump(\\"foo"), '\\\\"foo"', "reference to reference" );
+subtest 'max_length' => sub {
+ my @list = 1 .. 10;
+ local $d = Devel::PartialDump->new(
+ pairs => 0,
+ max_elements => undef,
+ );
+
+ $d->max_length(undef);
+ is( $d->dump(@list), '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'undefined');
+
+ $d->max_length(100);
+ is( $d->dump(@list), '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'high');
+
+ $d->max_length(10);
+ is( $d->dump(@list), '1, 2, 3...', 'low' );
+
+ $d->max_length(0);
+ is( $d->dump(@list), '...', 'zero' );
+};
+
+subtest 'max_elements for lists' => sub {
+ my @list = 1 .. 10;
+ local $d = Devel::PartialDump->new( pairs => 0 );
+
+ $d->max_elements(undef);
+ is( $d->dump(@list), '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'undefined' );
+
+ $d->max_elements(100);
+ is( $d->dump(@list), '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'high' );
+
+ $d->max_elements(6);
+ is( $d->dump(@list), '1, 2, 3, 4, 5, 6, ...', 'low' );
+
+ $d->max_elements(0);
+ is( $d->dump(@list), '...', 'zero' );
+};
+
+subtest 'max_elements for pairs' => sub {
+ my @list = 1 .. 10;
+ local $d = Devel::PartialDump->new( pairs => 1 );
+
+ $d->max_elements(undef);
+ is( $d->dump(@list), '1: 2, 3: 4, 5: 6, 7: 8, 9: 10', 'undefined' );
+
+ $d->max_elements(100);
+ is( $d->dump(@list), '1: 2, 3: 4, 5: 6, 7: 8, 9: 10', 'high' );
+
+ $d->max_elements(3);
+ is( $d->dump(@list), '1: 2, 3: 4, 5: 6, ...', 'low' );
+
+ $d->max_elements(0);
+ is( $d->dump(@list), '...', 'zero' );
+};
+
+subtest 'max_depth' => sub {
+ local $d = Devel::PartialDump->new;
+
+ my $data = { foo => ["bar"], gorch => { 1 => ["bah"] } };
+
+ $d->max_depth(10);
+ is( $d->dump($data), '{ foo: [ "bar" ], gorch: { 1: [ "bah" ] } }', "high"
);
+
+ $d->max_depth(2);
+ like( $d->dump($data), qr/^\{ foo: \[ "bar" \], gorch: \{ 1:
ARRAY\(0x[a-z0-9]+\) \} \}/, "low" );
+
+ $d->max_depth(0);
+ like( $d->dump($data), qr/^HASH\(0x[a-z0-9]+\)/, "zero" );
+};
+
+{
+ local $d = Devel::PartialDump->new( pairs => 0, list_delim => ',' );
+ is( $d->dump("foo", "bar"), '"foo","bar"', "list_delim" );
+}
+
+{
+ local $d = Devel::PartialDump->new( pairs => 1, pair_delim => '=>' );
+ is( $d->dump("foo" => "bar"), 'foo=>"bar"', "pair_delim" );
+}
+
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/t/exports.t
new/Devel-PartialDump-0.17/t/exports.t
--- old/Devel-PartialDump-0.16/t/exports.t 2013-11-24 01:43:56.000000000
+0100
+++ new/Devel-PartialDump-0.17/t/exports.t 2013-11-30 21:47:55.000000000
+0100
@@ -1,8 +1,9 @@
use strict;
-use warnings;
+use warnings FATAL => 'all';
use Test::More;
-use Test::Warn;
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
+use Test::Warn; # for 'carped'
{
package Foo;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/t/objects.t
new/Devel-PartialDump-0.17/t/objects.t
--- old/Devel-PartialDump-0.16/t/objects.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Devel-PartialDump-0.17/t/objects.t 2013-11-30 21:47:55.000000000
+0100
@@ -0,0 +1,72 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+package My::Object::Hash;
+{
+ use overload '""' => \&stringify;
+
+ sub new {
+ my $class = shift;
+ bless { value => $_[0] }, $class;
+ }
+ sub stringify { $_[0]->{value} }
+}
+
+package My::Object::Array;
+{
+ use overload '""' => \&stringify;
+
+ sub new {
+ my $class = shift;
+ bless [$_[0]], $class;
+ }
+ sub stringify { $_[0]->[0] }
+}
+
+package My::Object::Scalar;
+{
+ use overload '""' => \&stringify;
+
+ sub new {
+ my $class = shift;
+ my $arg = shift;
+ bless \$arg, $class;
+ }
+ sub stringify { ${$_[0]} }
+}
+
+package main;
+
+use ok 'Devel::PartialDump';
+
+my $hash = My::Object::Hash->new('foo');
+my $array = My::Object::Array->new('foo');
+my $scalar = My::Object::Scalar->new('foo');
+
+subtest 'dump' => sub {
+ my $d = Devel::PartialDump->new( objects => 1, stringify => 0 );
+
+ is( $d->dump($hash), 'My::Object::Hash={ value: "foo" }' );
+ is( $d->dump($array), 'My::Object::Array=[ "foo" ]' );
+ is( $d->dump($scalar), 'My::Object::Scalar=\"foo"' );
+};
+
+subtest 'string value' => sub {
+ my $d = Devel::PartialDump->new( objects => 0, stringify => 0 );
+
+ like( $d->dump($hash), qr/^My::Object::Hash=HASH\(0x[a-z0-9]+\)$/ );
+ like( $d->dump($array), qr/^My::Object::Array=ARRAY\(0x[a-z0-9]+\)$/ );
+ like( $d->dump($scalar), qr/^My::Object::Scalar=SCALAR\(0x[a-z0-9]+\)$/ );
+};
+
+subtest 'string overload' => sub {
+ my $d = Devel::PartialDump->new( objects => 0, stringify => 1 );
+
+ is( $d->dump($hash), 'foo' );
+ is( $d->dump($array), 'foo' );
+ is( $d->dump($scalar), 'foo' );
+};
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/weaver.ini
new/Devel-PartialDump-0.17/weaver.ini
--- old/Devel-PartialDump-0.16/weaver.ini 2013-11-24 01:43:56.000000000
+0100
+++ new/Devel-PartialDump-0.17/weaver.ini 2013-11-30 21:47:55.000000000
+0100
@@ -5,6 +5,4 @@
[-StopWords]
-[-Encoding]
-
[Contributors]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/xt/author/00-compile.t
new/Devel-PartialDump-0.17/xt/author/00-compile.t
--- old/Devel-PartialDump-0.16/xt/author/00-compile.t 2013-11-24
01:43:56.000000000 +0100
+++ new/Devel-PartialDump-0.17/xt/author/00-compile.t 2013-11-30
21:47:55.000000000 +0100
@@ -1,7 +1,8 @@
+use 5.006;
use strict;
use warnings;
-# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.037
+# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.038
use Test::More 0.94 tests => 1 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
@@ -21,15 +22,16 @@
use IPC::Open3;
use IO::Handle;
+open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
+my $stderr = IO::Handle->new;
+binmode $stderr, ':crlf' if $^O eq 'MSWin32';
+
my @warnings;
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
- open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
- my $stderr = IO::Handle->new;
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e',
"require q[$lib]");
- binmode $stderr, ':crlf' if $^O eq 'MSWin32';
my @_warnings = <$stderr>;
waitpid($pid, 0);
is($?, 0, "$lib loaded ok");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/xt/author/pod-spell.t
new/Devel-PartialDump-0.17/xt/author/pod-spell.t
--- old/Devel-PartialDump-0.16/xt/author/pod-spell.t 2013-11-24
01:43:56.000000000 +0100
+++ new/Devel-PartialDump-0.17/xt/author/pod-spell.t 2013-11-30
21:47:55.000000000 +0100
@@ -30,6 +30,9 @@
Leo
Lapworth
web
+Steven
+Lee
+stevenwh
lib
Devel
PartialDump
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Devel-PartialDump-0.16/xt/release/changes_has_content.t
new/Devel-PartialDump-0.17/xt/release/changes_has_content.t
--- old/Devel-PartialDump-0.16/xt/release/changes_has_content.t 2013-11-24
01:43:56.000000000 +0100
+++ new/Devel-PartialDump-0.17/xt/release/changes_has_content.t 2013-11-30
21:47:55.000000000 +0100
@@ -4,7 +4,7 @@
note 'Checking Changes';
my $changes_file = 'Changes';
-my $newver = '0.16';
+my $newver = '0.17';
my $trial_token = '-TRIAL';
SKIP: {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-PartialDump-0.16/xt/release/portability.t
new/Devel-PartialDump-0.17/xt/release/portability.t
--- old/Devel-PartialDump-0.16/xt/release/portability.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Devel-PartialDump-0.17/xt/release/portability.t 2013-11-30
21:47:55.000000000 +0100
@@ -0,0 +1,11 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval 'use Test::Portability::Files';
+plan skip_all => 'Test::Portability::Files required for testing portability'
+ if $@;
+run_tests();
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
