r33099 - in /branches/upstream/libdata-visitor-perl/current: Changes MANIFEST MANIFEST.SKIP META.yml Makefile.PL SIGNATURE TODO lib/Data/Visitor.pm lib/Data/Visitor/Callback.pm t/callback_hash_entry.t
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Sun Apr 12 21:01:23 UTC 2009
Author: ryan52-guest
Date: Sun Apr 12 21:01:15 2009
New Revision: 33099
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33099
Log:
[svn-upgrade] Integrating new upstream version, libdata-visitor-perl (0.24)
Added:
branches/upstream/libdata-visitor-perl/current/t/callback_hash_entry.t
Removed:
branches/upstream/libdata-visitor-perl/current/TODO
Modified:
branches/upstream/libdata-visitor-perl/current/Changes
branches/upstream/libdata-visitor-perl/current/MANIFEST
branches/upstream/libdata-visitor-perl/current/MANIFEST.SKIP
branches/upstream/libdata-visitor-perl/current/META.yml
branches/upstream/libdata-visitor-perl/current/Makefile.PL
branches/upstream/libdata-visitor-perl/current/SIGNATURE
branches/upstream/libdata-visitor-perl/current/lib/Data/Visitor.pm
branches/upstream/libdata-visitor-perl/current/lib/Data/Visitor/Callback.pm
Modified: branches/upstream/libdata-visitor-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-visitor-perl/current/Changes?rev=33099&op=diff
==============================================================================
--- branches/upstream/libdata-visitor-perl/current/Changes (original)
+++ branches/upstream/libdata-visitor-perl/current/Changes Sun Apr 12 21:01:15 2009
@@ -1,3 +1,10 @@
+0.24
+ - use get_all_attributes instead of the deprecated
+ compute_all_applicable_attributes (rafl)
+
+0.23
+ - Switch to Any::Moose
+
0.22
- add a no warnings 'recursion', deep recursion is legitimate in most cases
Modified: branches/upstream/libdata-visitor-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-visitor-perl/current/MANIFEST?rev=33099&op=diff
==============================================================================
--- branches/upstream/libdata-visitor-perl/current/MANIFEST (original)
+++ branches/upstream/libdata-visitor-perl/current/MANIFEST Sun Apr 12 21:01:15 2009
@@ -4,14 +4,14 @@
Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
-META.yml
t/base.t
t/bugs.t
t/callback.t
t/callback_aliasing.t
+t/callback_hash_entry.t
t/circular_refs.t
t/globs.t
t/magic.t
t/weak.t
-TODO
+META.yml Module meta-data (added by MakeMaker)
SIGNATURE Public-key signature (added by MakeMaker)
Modified: branches/upstream/libdata-visitor-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-visitor-perl/current/MANIFEST.SKIP?rev=33099&op=diff
==============================================================================
--- branches/upstream/libdata-visitor-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libdata-visitor-perl/current/MANIFEST.SKIP Sun Apr 12 21:01:15 2009
@@ -4,6 +4,7 @@
\bSCCS\b
,v$
\B\.svn\b
+\B\.git\b
\b_darcs\b
# Avoid Makemaker generated and utility files.
Modified: branches/upstream/libdata-visitor-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-visitor-perl/current/META.yml?rev=33099&op=diff
==============================================================================
--- branches/upstream/libdata-visitor-perl/current/META.yml (original)
+++ branches/upstream/libdata-visitor-perl/current/META.yml Sun Apr 12 21:01:15 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Data-Visitor
-version: 0.22
+version: 0.24
abstract: ~
author: []
license: unknown
@@ -8,7 +8,7 @@
configure_requires:
ExtUtils::MakeMaker: 0
requires:
- Mouse: 0.06
+ Any::Moose: 0.07
namespace::clean: 0.08
Task::Weaken: 0
Test::MockObject: 1.04
Modified: branches/upstream/libdata-visitor-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-visitor-perl/current/Makefile.PL?rev=33099&op=diff
==============================================================================
--- branches/upstream/libdata-visitor-perl/current/Makefile.PL (original)
+++ branches/upstream/libdata-visitor-perl/current/Makefile.PL Sun Apr 12 21:01:15 2009
@@ -5,7 +5,7 @@
'NAME' => 'Data::Visitor',
'VERSION_FROM' => 'lib/Data/Visitor.pm',
'PREREQ_PM' => {
- 'Mouse' => '0.06',
+ 'Any::Moose' => '0.07',
'namespace::clean' => '0.08',
'Test::MockObject' => '1.04',
'Test::More' => '0',
Modified: branches/upstream/libdata-visitor-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-visitor-perl/current/SIGNATURE?rev=33099&op=diff
==============================================================================
--- branches/upstream/libdata-visitor-perl/current/SIGNATURE (original)
+++ branches/upstream/libdata-visitor-perl/current/SIGNATURE Sun Apr 12 21:01:15 2009
@@ -14,18 +14,18 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 789c2b9f7592b5b0359af84a0bad9f518ec63e63 Changes
-SHA1 106762d02554191b029a90b21c412fcdeb7a0db3 MANIFEST
-SHA1 e8482690dad0ff3aaa335aa5b8b650851e504871 MANIFEST.SKIP
-SHA1 2c87ce7daf991be303b52a411f67d09f0c0c2a97 META.yml
-SHA1 77503aee33fccc87148e852ef51462bd6fcbe3ce Makefile.PL
-SHA1 6cf45b4e947e1bb11fd188e9866d73eabc936ead TODO
-SHA1 f11c62761248892161c2dfa09f7ac157eccbd780 lib/Data/Visitor.pm
-SHA1 7e00d4c11ea3fcbf59e7919dce782401b65828b3 lib/Data/Visitor/Callback.pm
+SHA1 57cb3de58bb3bc0b98d7d44ba90f5742ba1d9f1e Changes
+SHA1 11833dd37a9d42763f59fb6d4b595c294c50c453 MANIFEST
+SHA1 190e9058eb9c6446a1a3f3ddf15b082f1ecde152 MANIFEST.SKIP
+SHA1 826acfbaa21191b96f607a0dd1396c1478d13fc3 META.yml
+SHA1 d431542445d68ee70099157982c96b8a398e2519 Makefile.PL
+SHA1 19f72f11369c77a0b525e47618178b66b1d43f3f lib/Data/Visitor.pm
+SHA1 5d73179a3a66093582484ba075fd56961e7a2095 lib/Data/Visitor/Callback.pm
SHA1 5979c9ecf150b843cb7750f761c0a9c0c1211a41 t/base.t
SHA1 85ffd870fe37f7fd4ce1fc783f366bc50c253a02 t/bugs.t
SHA1 a784785f789346f921612b88468e040dc5273bc3 t/callback.t
SHA1 7868c691e6865c8e19be0030435f8a1524f6d237 t/callback_aliasing.t
+SHA1 8e12aee89dd53a62f46ac2c8bd0a55d35d01972c t/callback_hash_entry.t
SHA1 ba502603afe759f9f22026c8c6527d1753fa6174 t/circular_refs.t
SHA1 54affd2088fa25d8eec562fb8d39e1abd0d123c7 t/globs.t
SHA1 8bd93450c072afbef10a423dd360e8f55cdacd40 t/magic.t
@@ -33,7 +33,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.7 (Darwin)
-iD8DBQFJSv7FVCwRwOvSdBgRAp82AJ9d3yIA66HnqKbs1aMdo1HY/2fjawCgvyLE
-MidMj+8+0QJ/x1cqitl+8+Y=
-=In2L
+iD8DBQFJ4LkBVCwRwOvSdBgRAkdRAJ9imoeT/FMYchIpAUiub1JOBiaM2wCfXFMX
+KU4Btt0N+FszQwq7ejqNAdY=
+=xBsy
-----END PGP SIGNATURE-----
Modified: branches/upstream/libdata-visitor-perl/current/lib/Data/Visitor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-visitor-perl/current/lib/Data/Visitor.pm?rev=33099&op=diff
==============================================================================
--- branches/upstream/libdata-visitor-perl/current/lib/Data/Visitor.pm (original)
+++ branches/upstream/libdata-visitor-perl/current/lib/Data/Visitor.pm Sun Apr 12 21:01:15 2009
@@ -1,7 +1,7 @@
#!/usr/bin/perl
package Data::Visitor;
-use Squirrel;
+use Any::Moose;
use Scalar::Util qw/blessed refaddr reftype weaken isweak/;
use overload ();
@@ -16,7 +16,7 @@
# the double not makes this no longer undef, so exempt from useless constant warnings in older perls
use constant DEBUG => not not our $DEBUG || $ENV{DATA_VISITOR_DEBUG};
-our $VERSION = "0.22";
+our $VERSION = "0.24";
has tied_as_objects => (
isa => "Bool",
Modified: branches/upstream/libdata-visitor-perl/current/lib/Data/Visitor/Callback.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-visitor-perl/current/lib/Data/Visitor/Callback.pm?rev=33099&op=diff
==============================================================================
--- branches/upstream/libdata-visitor-perl/current/lib/Data/Visitor/Callback.pm (original)
+++ branches/upstream/libdata-visitor-perl/current/lib/Data/Visitor/Callback.pm Sun Apr 12 21:01:15 2009
@@ -1,7 +1,7 @@
#!/usr/bin/perl
package Data::Visitor::Callback;
-use Squirrel;
+use Any::Moose;
use Data::Visitor ();
@@ -39,7 +39,7 @@
my $args = $class->SUPER::BUILDARGS(@args);
- my %init_args = map { $_->init_arg => undef } $class->meta->compute_all_applicable_attributes;
+ my %init_args = map { $_->init_arg => undef } $class->meta->get_all_attributes;
my %callbacks = map { $_ => $args->{$_} } grep { not exists $init_args{$_} } keys %$args;
Added: branches/upstream/libdata-visitor-perl/current/t/callback_hash_entry.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-visitor-perl/current/t/callback_hash_entry.t?rev=33099&op=file
==============================================================================
--- branches/upstream/libdata-visitor-perl/current/t/callback_hash_entry.t (added)
+++ branches/upstream/libdata-visitor-perl/current/t/callback_hash_entry.t Sun Apr 12 21:01:15 2009
@@ -1,0 +1,47 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More 'no_plan';
+
+use ok 'Data::Visitor::Callback';
+
+my $data = {
+ type_a => {
+ point => 50,
+ subtype_a_2 => {
+ point => 27,
+ subtype_a_2_bar => {
+ circle => 14,
+ },
+ },
+ },
+ point => 33,
+};
+
+
+my $sum = 0;
+
+Data::Visitor::Callback->new(
+ ignore_return_values => 1,
+ hash_entry => sub {
+ my ( $self, $k, $v ) = @_;
+ $sum += $v unless ref $v;
+ },
+)->visit($data);
+
+is($sum, 124, 'get_recursive_hash_value_visitor, all values');
+
+
+$sum = 0;
+Data::Visitor::Callback->new(
+ ignore_return_values => 1,
+ hash_entry => sub {
+ my ( $self, $k, $v ) = @_;
+ $sum += $v if $k eq 'point';
+ },
+)->visit($data);
+
+is($sum, 110, 'get_recursive_hash_value_visitor, only "point" keys');
+
More information about the Pkg-perl-cvs-commits
mailing list