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