r5512 - in /packages/libdata-visitor-perl/trunk: Build.PL Changes MANIFEST MANIFEST.SKIP META.yml Makefile.PL SIGNATURE debian/changelog lib/Data/Visitor.pm
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Tue May 22 18:05:56 UTC 2007
Author: eloy
Date: Tue May 22 18:05:56 2007
New Revision: 5512
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5512
Log:
new upstream version
Added:
packages/libdata-visitor-perl/trunk/MANIFEST.SKIP
- copied unchanged from r5511, packages/libdata-visitor-perl/branches/upstream/current/MANIFEST.SKIP
Removed:
packages/libdata-visitor-perl/trunk/Build.PL
Modified:
packages/libdata-visitor-perl/trunk/Changes
packages/libdata-visitor-perl/trunk/MANIFEST
packages/libdata-visitor-perl/trunk/META.yml
packages/libdata-visitor-perl/trunk/Makefile.PL
packages/libdata-visitor-perl/trunk/SIGNATURE
packages/libdata-visitor-perl/trunk/debian/changelog
packages/libdata-visitor-perl/trunk/lib/Data/Visitor.pm
Modified: packages/libdata-visitor-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-visitor-perl/trunk/Changes?rev=5512&op=diff
==============================================================================
--- packages/libdata-visitor-perl/trunk/Changes (original)
+++ packages/libdata-visitor-perl/trunk/Changes Tue May 22 18:05:56 2007
@@ -1,3 +1,11 @@
+0.07
+ - Refactor visit_ref
+
+0.06
+ - Removed build_requires, to try and eliminate some odd installation
+ problems. This also fixes the Class::Accessor dep which was in the wrong
+ slot anyway ;-)
+
0.05
- Added support for using class names as callbacks in
Data::Visitor::Callback
Modified: packages/libdata-visitor-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-visitor-perl/trunk/MANIFEST?rev=5512&op=diff
==============================================================================
--- packages/libdata-visitor-perl/trunk/MANIFEST (original)
+++ packages/libdata-visitor-perl/trunk/MANIFEST Tue May 22 18:05:56 2007
@@ -1,9 +1,9 @@
-Build.PL
Changes
lib/Data/Visitor.pm
lib/Data/Visitor/Callback.pm
Makefile.PL
MANIFEST This list of files
+MANIFEST.SKIP
META.yml
t/base.t
t/bugs.t
@@ -11,4 +11,4 @@
t/callback_aliasing.t
t/circular_refs.t
t/globs.t
-SIGNATURE Added here by Module::Build
+SIGNATURE Public-key signature (added by MakeMaker)
Modified: packages/libdata-visitor-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-visitor-perl/trunk/META.yml?rev=5512&op=diff
==============================================================================
--- packages/libdata-visitor-perl/trunk/META.yml (original)
+++ packages/libdata-visitor-perl/trunk/META.yml Tue May 22 18:05:56 2007
@@ -1,21 +1,15 @@
----
-name: Data-Visitor
-version: 0.05
-author:
- - 'Yuval Kogman <nothingmuch at woobling.org>'
-abstract: Visitor style traversal of Perl data structures
-license: perl
-requires:
- perl: '>= 5.008'
-build_requires:
- Class::Accessor: 0
- Test::MockObject: 1.04
- Test::More: 0
- Test::use::ok: 0
-provides:
- Data::Visitor:
- file: lib/Data/Visitor.pm
- version: 0.05
- Data::Visitor::Callback:
- file: lib/Data/Visitor/Callback.pm
-generated_by: Module::Build version 0.2611
+--- #YAML:1.0
+name: Data-Visitor
+version: 0.07
+abstract: ~
+license: ~
+generated_by: ExtUtils::MakeMaker version 6.32
+distribution_type: module
+requires:
+ Class::Accessor: 0
+ Test::MockObject: 1.04
+ Test::More: 0
+ Test::use::ok: 0
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Modified: packages/libdata-visitor-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-visitor-perl/trunk/Makefile.PL?rev=5512&op=diff
==============================================================================
--- packages/libdata-visitor-perl/trunk/Makefile.PL (original)
+++ packages/libdata-visitor-perl/trunk/Makefile.PL Tue May 22 18:05:56 2007
@@ -1,16 +1,16 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
use ExtUtils::MakeMaker;
+
WriteMakefile
(
- 'NAME' => 'Data::Visitor',
- 'VERSION_FROM' => 'lib/Data/Visitor.pm',
- 'PREREQ_PM' => {
- 'Class::Accessor' => '0',
- 'Test::MockObject' => '1.04',
- 'Test::More' => '0',
- 'Test::use::ok' => '0'
- },
- 'INSTALLDIRS' => 'site',
- 'PL_FILES' => {}
- )
-;
+ 'NAME' => 'Data::Visitor',
+ 'VERSION_FROM' => 'lib/Data/Visitor.pm',
+ 'PREREQ_PM' => {
+ 'Class::Accessor' => '0',
+ 'Test::MockObject' => '1.04',
+ 'Test::More' => '0',
+ 'Test::use::ok' => '0'
+ },
+ 'INSTALLDIRS' => 'site',
+ 'PL_FILES' => {},
+ 'SIGN' => 1,
+);
Modified: packages/libdata-visitor-perl/trunk/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-visitor-perl/trunk/SIGNATURE?rev=5512&op=diff
==============================================================================
--- packages/libdata-visitor-perl/trunk/SIGNATURE (original)
+++ packages/libdata-visitor-perl/trunk/SIGNATURE Tue May 22 18:05:56 2007
@@ -1,5 +1,5 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.52.
+signed via the Module::Signature module, version 0.55.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
@@ -14,12 +14,12 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 06f5b6d95515ba96f5959689229f21b3170f5dfd Build.PL
-SHA1 53f8448f047d96020f991b32dda4cf8be1226668 Changes
-SHA1 a067314adf7a4d16b1576c149abc7621cda096b3 MANIFEST
-SHA1 c81a2f91d8059165f8c6ebc8622b20dd93d8bf18 META.yml
-SHA1 79359b08955f73774b2515dbf25deb7a28195cd3 Makefile.PL
-SHA1 8597a454f955abd8ee6097a1e3301e09d06267af lib/Data/Visitor.pm
+SHA1 667ac3f1e756b7bcc0e9e98357cecdc2012ee399 Changes
+SHA1 adbdb1d57cfa058d1ced16b5767527d0dfb6a253 MANIFEST
+SHA1 ddb918d4e02cc06f4b9fe77adeca65403f8fdd56 MANIFEST.SKIP
+SHA1 a47bdd3f338655889573dac063e9fb9055d6bbe8 META.yml
+SHA1 7e820fe45a90871dcc686bd3ffd7897444a6ea30 Makefile.PL
+SHA1 45b113e7a4fae0ddfc26ff13e9e2d43fc5694b19 lib/Data/Visitor.pm
SHA1 daa5c3b3a4d1b917ddf824805e2b8f81b6d24d63 lib/Data/Visitor/Callback.pm
SHA1 3180f412df2834d1f1c9290e9b8726d0b374afc2 t/base.t
SHA1 257c858e1bc12c1039e93cac62a0d37f2e0d804d t/bugs.t
@@ -28,9 +28,9 @@
SHA1 9f6dff4facaf491f3776fec263d13acd4448de33 t/circular_refs.t
SHA1 54affd2088fa25d8eec562fb8d39e1abd0d123c7 t/globs.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.1 (Darwin)
+Version: GnuPG v1.4.7 (Darwin)
-iD8DBQFESje9VCwRwOvSdBgRAjwhAKC4ZT+AXcfVUWKR8RQOJ3V9rzB/JQCgqmfX
-IdKDpoCeuMIDi4hYmI9Dc+s=
-=TXup
+iD8DBQFGUFB2VCwRwOvSdBgRAsSOAJ4zAOrJLz7wiecuHnN0upCGUP55tACdGoiB
+Sh+5rF9Z97aq+GgGXu+TG/E=
+=FeeZ
-----END PGP SIGNATURE-----
Modified: packages/libdata-visitor-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-visitor-perl/trunk/debian/changelog?rev=5512&op=diff
==============================================================================
--- packages/libdata-visitor-perl/trunk/debian/changelog (original)
+++ packages/libdata-visitor-perl/trunk/debian/changelog Tue May 22 18:05:56 2007
@@ -1,3 +1,9 @@
+libdata-visitor-perl (0.07-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org> Tue, 22 May 2007 20:04:47 +0200
+
libdata-visitor-perl (0.05-1) unstable; urgency=low
* New upstream release
Modified: packages/libdata-visitor-perl/trunk/lib/Data/Visitor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-visitor-perl/trunk/lib/Data/Visitor.pm?rev=5512&op=diff
==============================================================================
--- packages/libdata-visitor-perl/trunk/lib/Data/Visitor.pm (original)
+++ packages/libdata-visitor-perl/trunk/lib/Data/Visitor.pm Tue May 22 18:05:56 2007
@@ -6,11 +6,11 @@
use strict;
use warnings;
-use Scalar::Util qw/blessed refaddr/;
+use Scalar::Util qw/blessed refaddr reftype/;
use overload ();
use Symbol ();
-our $VERSION = "0.05";
+our $VERSION = "0.07";
sub visit {
my ( $self, $data ) = @_;
@@ -39,11 +39,8 @@
if ( blessed( $data ) ) {
return $self->visit_object( $data );
- } elsif ( my $reftype = ref $data ) {
- if ( $reftype eq "HASH" or $reftype eq "ARRAY" or $reftype eq "GLOB" or $reftype eq "SCALAR") {
- my $method = lc "visit_$reftype";
- return $self->$method( $data );
- }
+ } elsif ( ref $data ) {
+ return $self->visit_ref( $data );
}
return $self->visit_value( $data );
@@ -53,6 +50,21 @@
my ( $self, $object ) = @_;
return $self->visit_value( $object );
+}
+
+sub visit_ref {
+ my ( $self, $data ) = @_;
+
+ my $reftype = reftype $data;
+
+ my $method = lc "visit_$reftype";
+
+ if ( $self->can($method) ) {
+ return $self->$method( $data );
+ } else {
+ return $self->visit_value($data);
+ }
+
}
sub visit_value {
More information about the Pkg-perl-cvs-commits
mailing list