r8143 - in /trunk/libdata-visitor-perl: Changes META.yml SIGNATURE debian/changelog lib/Data/Visitor.pm lib/Data/Visitor/Callback.pm t/base.t t/callback.t

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Tue Oct 9 18:27:28 UTC 2007


Author: gregoa-guest
Date: Tue Oct  9 18:27:28 2007
New Revision: 8143

URL: http://svn.debian.org/wsvn/?sc=1&rev=8143
Log:
New upstream release.

Modified:
    trunk/libdata-visitor-perl/Changes
    trunk/libdata-visitor-perl/META.yml
    trunk/libdata-visitor-perl/SIGNATURE
    trunk/libdata-visitor-perl/debian/changelog
    trunk/libdata-visitor-perl/lib/Data/Visitor.pm
    trunk/libdata-visitor-perl/lib/Data/Visitor/Callback.pm
    trunk/libdata-visitor-perl/t/base.t
    trunk/libdata-visitor-perl/t/callback.t

Modified: trunk/libdata-visitor-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libdata-visitor-perl/Changes?rev=8143&op=diff
==============================================================================
--- trunk/libdata-visitor-perl/Changes (original)
+++ trunk/libdata-visitor-perl/Changes Tue Oct  9 18:27:28 2007
@@ -1,3 +1,6 @@
+0.09
+	- add visit_hash_entry and visit_array_entry
+
 0.08
 	- add retain_magic and use it to keep blessedness of mapped objects that
 	  were forced into being visited by "regular" ref visitor methods

Modified: trunk/libdata-visitor-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libdata-visitor-perl/META.yml?rev=8143&op=diff
==============================================================================
--- trunk/libdata-visitor-perl/META.yml (original)
+++ trunk/libdata-visitor-perl/META.yml Tue Oct  9 18:27:28 2007
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Data-Visitor
-version:             0.08
+version:             0.09
 abstract:            ~
 license:             ~
 generated_by:        ExtUtils::MakeMaker version 6.32

Modified: trunk/libdata-visitor-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/trunk/libdata-visitor-perl/SIGNATURE?rev=8143&op=diff
==============================================================================
--- trunk/libdata-visitor-perl/SIGNATURE (original)
+++ trunk/libdata-visitor-perl/SIGNATURE Tue Oct  9 18:27:28 2007
@@ -14,23 +14,23 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 dca53d93193ba234d36fe458a34a22935c0ec0b8 Changes
+SHA1 a5cff2c8fcbcf93991fa554379ba5f1698be76fd Changes
 SHA1 adbdb1d57cfa058d1ced16b5767527d0dfb6a253 MANIFEST
 SHA1 ddb918d4e02cc06f4b9fe77adeca65403f8fdd56 MANIFEST.SKIP
-SHA1 95e533a541a400b08002b2490c4921764b4c9850 META.yml
+SHA1 c3fe5f0877ea45b9469805ffd5404471dc99a889 META.yml
 SHA1 7e820fe45a90871dcc686bd3ffd7897444a6ea30 Makefile.PL
-SHA1 352cc099c97b13df7b481ad5a6ba6570d535e85a lib/Data/Visitor.pm
-SHA1 d8ad6965a7e366bfe68c72f7139d606a71fe1a90 lib/Data/Visitor/Callback.pm
-SHA1 3180f412df2834d1f1c9290e9b8726d0b374afc2 t/base.t
+SHA1 5274ce8ed2b538a82ddb1131a24cdb2c992e4920 lib/Data/Visitor.pm
+SHA1 909ce30088a2be5675c7ec0c7e0299dfdbc06d7a lib/Data/Visitor/Callback.pm
+SHA1 dfba09a3df7adaf6d0369a4745e6e336272c405d t/base.t
 SHA1 257c858e1bc12c1039e93cac62a0d37f2e0d804d t/bugs.t
-SHA1 2ddc55b7127db5216879fce4c165b360923eca18 t/callback.t
+SHA1 74100f842ec1699a35958a59c39d434a84dfc501 t/callback.t
 SHA1 7e59409671d0147236beef17a6dfdc0997d6a97a t/callback_aliasing.t
 SHA1 9f6dff4facaf491f3776fec263d13acd4448de33 t/circular_refs.t
 SHA1 54affd2088fa25d8eec562fb8d39e1abd0d123c7 t/globs.t
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.7 (Darwin)
 
-iD8DBQFGiAZTVCwRwOvSdBgRAvneAJ0XffiTdaj8HDZZPVvT24h2ruE2WgCgkOyQ
-htgwmeZ0sb3o0nmFSUGhYJk=
-=AvZo
+iD8DBQFHCWHzVCwRwOvSdBgRAtHfAJ9iQFFsizOH/MoJl7ELAevVJSKqUACZAXO0
+UrVHeFU9HKod5jYodLrt0SY=
+=YwOY
 -----END PGP SIGNATURE-----

Modified: trunk/libdata-visitor-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libdata-visitor-perl/debian/changelog?rev=8143&op=diff
==============================================================================
--- trunk/libdata-visitor-perl/debian/changelog (original)
+++ trunk/libdata-visitor-perl/debian/changelog Tue Oct  9 18:27:28 2007
@@ -1,3 +1,9 @@
+libdata-visitor-perl (0.09-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Tue, 09 Oct 2007 20:27:13 +0200
+
 libdata-visitor-perl (0.08-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libdata-visitor-perl/lib/Data/Visitor.pm
URL: http://svn.debian.org/wsvn/trunk/libdata-visitor-perl/lib/Data/Visitor.pm?rev=8143&op=diff
==============================================================================
--- trunk/libdata-visitor-perl/lib/Data/Visitor.pm (original)
+++ trunk/libdata-visitor-perl/lib/Data/Visitor.pm Tue Oct  9 18:27:28 2007
@@ -10,7 +10,7 @@
 use overload ();
 use Symbol ();
 
-our $VERSION = "0.08";
+our $VERSION = "0.09";
 
 sub visit {
 	my ( $self, $data ) = @_;
@@ -77,20 +77,46 @@
 	my ( $self, $hash ) = @_;
 
 	if ( not defined wantarray ) {
-		$self->visit( $_ ) for ( values %$hash );
+		foreach my $key ( keys %$hash ) {
+			$self->visit_hash_entry( $key, $hash->{$key}, $hash );
+		}
 	} else {
-		return $self->retain_magic( $hash, { map { $_ => $self->visit( $hash->{$_} ) } keys %$hash } );
-	}
+		return $self->retain_magic( $hash, { map { $self->visit_hash_entry( $_, $hash->{$_}, $hash ) } keys %$hash } );
+	}
+}
+
+sub visit_hash_entry {
+	my ( $self, $key, $value, $hash ) = @_;
+
+	return (
+		$self->visit_hash_key($key,$value,$hash),
+		$self->visit_hash_value($_[2],$key,$hash) # retain aliasing semantics
+	);
+}
+
+sub visit_hash_key {
+	my ( $self, $key, $value, $hash ) = @_;
+	$self->visit($key);
+}
+
+sub visit_hash_value {
+	my ( $self, $value, $key, $hash ) = @_;
+	$self->visit($_[1]); # retain it's aliasing semantics
 }
 
 sub visit_array {
 	my ( $self, $array ) = @_;
 
 	if ( not defined wantarray ) {
-		$self->visit( $_ ) for @$array;	
+		$self->visit_array_entry( $array->[$_], $_, $array ) for 0 .. $#$array
 	} else {
-		return $self->retain_magic( $array, [ map { $self->visit( $_ ) } @$array ] );
-	}
+		return $self->retain_magic( $array, [ map { $self->visit_array_entry( $array->[$_], $_, $array ) } 0 .. $#$array ] );
+	}
+}
+
+sub visit_array_entry {
+	my ( $self, $value, $index, $array ) = @_;
+	$self->visit($_[1]);
 }
 
 sub visit_scalar {
@@ -182,6 +208,16 @@
 If the value is a blessed object, C<visit> calls this method. The base
 implementation will just forward to C<visit_value>.
 
+=item visit_ref $value
+
+Generic recursive visitor. All non blessed values are given to this.
+
+C<visit_object> can delegate to this method in order to visit the object
+anyway.
+
+This will check if the visitor can handle C<visit_$reftype> (lowercase), and if
+not delegate to C<visit_value> instead.
+
 =item visit_array $array_ref
 
 =item visit_hash $hash_ref
@@ -196,6 +232,24 @@
 
 If the value is anything else, this method is called. The base implementation
 will return $value.
+
+=item visit_hash_entry $key, $value, $hash
+
+Delegates to C<visit_hash_key> and C<visit_hash_value>. The value is passed as
+C<$_[2]> so that it is aliased.
+
+=item visit_hash_key $key, $value, $hash
+
+Calls C<visit> on the key and returns it.
+
+=item visit_hash_value $value, $key, $hash
+
+The value will be aliased (passed as C<$_[1]>).
+
+=item visit_array_entry $value, $index, $array
+
+Delegates to C<visit> on value. The value is passed as C<$_[1]> to retain
+aliasing.
 
 =back
 
@@ -219,7 +273,22 @@
 
 =head1 TODO
 
+=over 4
+
+=item *
+
 Add support for "natural" visiting of trees.
+
+=item *
+
+Expand C<retain_magic> to support tying at the very least, or even more with
+L<Variable::Magic> if possible.
+
+Tied values might be redirected to an alternate handler that builds a new empty
+value, and ties it to a visited clone of the object the original is tied to
+using a trampoline class. Look into this.
+
+=back
 
 =head1 SEE ALSO
 

Modified: trunk/libdata-visitor-perl/lib/Data/Visitor/Callback.pm
URL: http://svn.debian.org/wsvn/trunk/libdata-visitor-perl/lib/Data/Visitor/Callback.pm?rev=8143&op=diff
==============================================================================
--- trunk/libdata-visitor-perl/lib/Data/Visitor/Callback.pm (original)
+++ trunk/libdata-visitor-perl/lib/Data/Visitor/Callback.pm Tue Oct  9 18:27:28 2007
@@ -152,6 +152,10 @@
 Within the callback $_ is aliased to the data, and this is also passed in the
 parameter list.
 
+Any method can also be used as a callback:
+
+	object => "visit_ref", # visit objects anyway
+
 =over 4
 
 =item visit
@@ -174,9 +178,16 @@
 
 Called for blessed objects.
 
+Since L<Data::Visitor/visit_object> will not recurse downwards unless you
+delegate to C<visit_ref>, you can specify C<visit_ref> as the callback for
+C<object> in order to enter objects.
+
+It is reccomended that you specify the classes you want though, instead of just
+visiting any object forcefully.
+
 =item Some::Class
 
-You can use any class name as a clalback. This is clled only after the
+You can use any class name as a callback. This is clled only after the
 C<object> callback.
 
 =item array

Modified: trunk/libdata-visitor-perl/t/base.t
URL: http://svn.debian.org/wsvn/trunk/libdata-visitor-perl/t/base.t?rev=8143&op=diff
==============================================================================
--- trunk/libdata-visitor-perl/t/base.t (original)
+++ trunk/libdata-visitor-perl/t/base.t Tue Oct  9 18:27:28 2007
@@ -28,6 +28,7 @@
 
 # cause logging
 $mock->set_always( $_ => "magic" ) for qw/visit_value visit_object/;
+$mock->mock( visit_hash_key => sub { $_[1] } );
 $mock->mock( visit_hash => sub { shift->Data::Visitor::visit_hash( @_ )  } );
 $mock->mock( visit_array => sub { shift->Data::Visitor::visit_array( @_ )  } );
 

Modified: trunk/libdata-visitor-perl/t/callback.t
URL: http://svn.debian.org/wsvn/trunk/libdata-visitor-perl/t/callback.t?rev=8143&op=diff
==============================================================================
--- trunk/libdata-visitor-perl/t/callback.t (original)
+++ trunk/libdata-visitor-perl/t/callback.t Tue Oct  9 18:27:28 2007
@@ -91,11 +91,11 @@
 our %FOO = ( "foo" => undef );
 
 counters_are( \*FOO, "glob", {
-	visit => 5,
+	visit => 6,
 	'scalar' => 1,
 	hash => 1,
-	value => 2,
-	plain_value => 2,
+	value => 3,
+	plain_value => 3,
 	'glob' => 1,
 });
 




More information about the Pkg-perl-cvs-commits mailing list