r49998 - in /trunk/libpod-abstract-perl: ./ bin/ debian/ lib/Pod/ lib/Pod/Abstract/ lib/Pod/Abstract/Filter/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Jan 3 03:14:05 UTC 2010
Author: jawnsy-guest
Date: Sun Jan 3 03:13:58 2010
New Revision: 49998
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49998
Log:
* New upstream release
* Add myself to Uploaders and Copyright
* Standards-Version 3.8.3 (no changes)
* Rewrite control description
Modified:
trunk/libpod-abstract-perl/Changes
trunk/libpod-abstract-perl/META.yml
trunk/libpod-abstract-perl/bin/paf
trunk/libpod-abstract-perl/debian/changelog
trunk/libpod-abstract-perl/debian/control
trunk/libpod-abstract-perl/lib/Pod/Abstract.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/BuildNode.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/add_podcmds.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/clear_podcmds.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/cut.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/find.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/number_sections.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/overlay.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/sort.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/summary.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/uncut.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/unoverlay.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Node.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Parser.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Path.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Serial.pm
trunk/libpod-abstract-perl/lib/Pod/Abstract/Tree.pm
trunk/libpod-abstract-perl/t/03_buildnode.t
Modified: trunk/libpod-abstract-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/Changes?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/Changes (original)
+++ trunk/libpod-abstract-perl/Changes Sun Jan 3 03:13:58 2010
@@ -1,4 +1,11 @@
Revision history for Pod-Abstract
+
+0.20 03/01/2010
+ Removed usage of UNIVERSAL isa and can as functions, will correct
+ a deprecation warning with Perl 5.11. Fixed a bug with
+ nodes->from_pod which did not work as documented. Corrected some
+ minor errors with documentation formatting. Added test coverage
+ for from_pod.
0.19 21/06/2009
Added =head1 NAME blocks to those modules missing them. Added some
Modified: trunk/libpod-abstract-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/META.yml?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/META.yml (original)
+++ trunk/libpod-abstract-perl/META.yml Sun Jan 3 03:13:58 2010
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Pod-Abstract
-version: 0.19
+version: 0.20
version_from: lib/Pod/Abstract.pm
installdirs: site
requires:
Modified: trunk/libpod-abstract-perl/bin/paf
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/bin/paf?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/bin/paf (original)
+++ trunk/libpod-abstract-perl/bin/paf Sun Jan 3 03:13:58 2010
@@ -6,7 +6,6 @@
use Pod::Abstract;
use Pod::Abstract::Filter;
-use UNIVERSAL qw(isa);
use File::Temp qw(tempfile tempdir);
@@ -207,7 +206,7 @@
($out, $tmpfilename) = tempfile;
}
- if(isa($next, 'Pod::Abstract::Node')) {
+ if(eval { $next->isa( 'Pod::Abstract::Node' ) }) {
if($flags{d}) {
print $out $next->ptree;
} else {
Modified: trunk/libpod-abstract-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/debian/changelog?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/debian/changelog (original)
+++ trunk/libpod-abstract-perl/debian/changelog Sun Jan 3 03:13:58 2010
@@ -1,4 +1,10 @@
-libpod-abstract-perl (0.19-2) UNRELEASED; urgency=low
+libpod-abstract-perl (0.20-1) UNRELEASED; urgency=low
+
+ [ Jonathan Yu ]
+ * New upstream release
+ * Add myself to Uploaders and Copyright
+ * Standards-Version 3.8.3 (no changes)
+ * Rewrite control description
[ Salvatore Bonaccorso ]
* debian/control: Changed: Replace versioned (build-)dependency on
@@ -8,7 +14,7 @@
[ Ryan Niebur ]
* Update ryan52's email address
- -- Ryan Niebur <ryan at debian.org> Fri, 25 Sep 2009 00:26:00 -0700
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 02 Jan 2010 22:13:38 -0500
libpod-abstract-perl (0.19-1) unstable; urgency=low
Modified: trunk/libpod-abstract-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/debian/control?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/debian/control (original)
+++ trunk/libpod-abstract-perl/debian/control Sun Jan 3 03:13:58 2010
@@ -2,11 +2,11 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: libio-string-perl, perl
+Build-Depends-Indep: perl, libio-string-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Damyan Ivanov <dmn at debian.org>, Nathan Handler <nhandler at ubuntu.com>,
- Ryan Niebur <ryan at debian.org>
-Standards-Version: 3.8.2
+ Ryan Niebur <ryan at debian.org>, Jonathan Yu <jawnsy at cpan.org>
+Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/Pod-Abstract/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libpod-abstract-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libpod-abstract-perl/
@@ -15,18 +15,11 @@
Architecture: all
Depends: ${misc:Depends}, ${perl:Depends}, libio-string-perl
Description: abstract document tree for Perl POD documents
- Pod::Abstract provides an abstract, tree-based interface to POD documents.
- POD is a simple-to-use markup language mainly used for writing documentation
- for Perl, Perl programs, and Perl modules.
- .
- Pod::Abstract allows straightforward, round-trip capable manipulation of POD
- documents, hence allowing features to be added to POD to support your
- programming activities without having to write a whole POD processor.
+ Pod::Abstract provides an abstract, tree-based interface to POD documents. It
+ allows straightforward, round-trip capable manipulation of POD documentation.
.
This also allows an easy tree-based mechanism to write a Pod::<format> type
- filter.
- .
- The package includes a simple, and extensible, command line utility called
- "paf" (Pod::Abstract Filter). This program can chain together Pod Abstract
- filtering operations, allowing manipulation & extraction of POD documents
- from the command line.
+ filter. The package includes a simple, and extensible, command line utility
+ called "paf" (Pod::Abstract Filter). This program can chain together filter
+ operations, allowing manipulation and extraction of POD documents from the
+ command line.
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract.pm Sun Jan 3 03:13:58 2010
@@ -7,7 +7,7 @@
use Pod::Abstract::Parser;
use IO::String;
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
@@ -155,7 +155,7 @@
L<Pod::Abstract::Path>, the node selection expression language. This
is generally called by doing
-C<<$node->select(PATH_EXP)>>. Pod::Abstract::Path is the most complex
+C<< $node->select(PATH_EXP) >>. Pod::Abstract::Path is the most complex
and powerful component of this module, and if you're not using it you
should be. ;)
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/BuildNode.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/BuildNode.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/BuildNode.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/BuildNode.pm Sun Jan 3 03:13:58 2010
@@ -7,7 +7,7 @@
use Pod::Abstract::Node;
use base qw(Exporter);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
our @EXPORT_OK = qw(node nodes);
@@ -75,8 +75,9 @@
my $str = shift;
my $root = Pod::Abstract->load_string($str);
-
- my @r = map { $_->detach } $root->children;
+ return undef unless $root;
+
+ my @r = map { $_->detach; $_ } $root->children;
return @r;
}
@@ -161,6 +162,7 @@
);
my $parser = Pod::Abstract::Parser->new;
my $pt = $parser->parse_text($str);
+
if($pt) {
$parser->load_pt($para,$pt);
} else {
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter.pm Sun Jan 3 03:13:58 2010
@@ -3,9 +3,8 @@
use warnings;
use Pod::Abstract;
-use UNIVERSAL qw(isa);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
@@ -108,7 +107,7 @@
my $self = shift;
my $arg = shift;
- if( isa($arg, 'Pod::Abstract::Node') ) {
+ if( eval { $arg->isa( 'Pod::Abstract::Node' ) } ) {
return $self->filter($arg);
} else {
my $pa = Pod::Abstract->load_string($arg);
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/add_podcmds.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/add_podcmds.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/add_podcmds.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/add_podcmds.pm Sun Jan 3 03:13:58 2010
@@ -4,7 +4,7 @@
use base qw(Pod::Abstract::Filter);
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/clear_podcmds.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/clear_podcmds.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/clear_podcmds.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/clear_podcmds.pm Sun Jan 3 03:13:58 2010
@@ -3,7 +3,7 @@
use base qw(Pod::Abstract::Filter);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/cut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/cut.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/cut.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/cut.pm Sun Jan 3 03:13:58 2010
@@ -4,7 +4,7 @@
use base qw(Pod::Abstract::Filter);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/find.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/find.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/find.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/find.pm Sun Jan 3 03:13:58 2010
@@ -5,7 +5,7 @@
use base qw(Pod::Abstract::Filter);
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
@@ -27,7 +27,7 @@
In order to be useful as an end user tool, head1 nodes (...) are added
between the found nodes. This stops perldoc from dying with no
documentation. These can be easily stripped using:
-C<<$pa->select('/head1')>>, then hoist and detach, or reparent to other
+C<< $pa->select('/head1') >>, then hoist and detach, or reparent to other
Node types.
A good example of this working as intended is:
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/number_sections.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/number_sections.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/number_sections.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/number_sections.pm Sun Jan 3 03:13:58 2010
@@ -5,7 +5,7 @@
use base qw( Pod::Abstract::Filter );
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/overlay.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/overlay.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/overlay.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/overlay.pm Sun Jan 3 03:13:58 2010
@@ -6,7 +6,7 @@
use Pod::Abstract;
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/sort.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/sort.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/sort.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/sort.pm Sun Jan 3 03:13:58 2010
@@ -13,7 +13,7 @@
=cut
-our $VERSION = '0.19';
+our $VERSION = '0.20';
sub filter {
my $self = shift;
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/summary.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/summary.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/summary.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/summary.pm Sun Jan 3 03:13:58 2010
@@ -4,7 +4,7 @@
use base qw(Pod::Abstract::Filter);
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/uncut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/uncut.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/uncut.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/uncut.pm Sun Jan 3 03:13:58 2010
@@ -5,7 +5,7 @@
use base qw(Pod::Abstract::Filter);
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/unoverlay.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/unoverlay.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/unoverlay.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Filter/unoverlay.pm Sun Jan 3 03:13:58 2010
@@ -4,7 +4,7 @@
use base qw(Pod::Abstract::Filter);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Node.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Node.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Node.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Node.pm Sun Jan 3 03:13:58 2010
@@ -7,7 +7,7 @@
use Scalar::Util qw(weaken);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
@@ -229,7 +229,7 @@
if($body_attr) {
$body = $self->param($body_attr)->pod;
}
- if(defined $body) {
+ if(defined $body && $body ne '') {
$r .= "=$type $body$p_break";
} else {
$r .= "=$type$p_break";
@@ -368,7 +368,7 @@
my %new_params = ( );
foreach my $param (keys %$params) {
my $pv = $params->{$param};
- if(ref $pv && UNIVERSAL::can($pv, 'duplicate')) {
+ if(ref $pv && eval { $pv->can('duplicate') } ) {
$new_params{$param} = $pv->duplicate;
} elsif(! ref $pv) {
$new_params{$param} = $pv;
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Parser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Parser.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Parser.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Parser.pm Sun Jan 3 03:13:58 2010
@@ -6,7 +6,7 @@
use Data::Dumper;
use base qw(Pod::Parser);
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
@@ -136,7 +136,9 @@
if($no_parse{$top->type} && !$top->param('parse_me')) {
my $t_node = Pod::Abstract::Node->new(
type => ':text',
- body => "=$command $paragraph$p_break",
+ body => ($paragraph ne '' ?
+ "=$command $paragraph$p_break" :
+ "=$command$p_break"),
);
$top->push($t_node);
return;
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Path.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Path.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Path.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Path.pm Sun Jan 3 03:13:58 2010
@@ -4,12 +4,11 @@
use Data::Dumper;
-use UNIVERSAL qw(isa can);
use Pod::Abstract::BuildNode qw(node);
$Data::Dumper::Indent = 1;
-our $VERSION = '0.19';
+our $VERSION = '0.20';
use constant CHILDREN => 1; # /
use constant ALL => 2; # //
@@ -469,7 +468,7 @@
my $t_result;
# Allow for r_exp to be another expression - generate both
# node lists if required.
- if(can($r_exp, 'process')) {
+ if( eval { $r_exp->can('process') } ) {
my @r_list = $r_exp->process($n);
$t_result = $self->$test_action(\@t_list, \@r_list, $op);
} else {
@@ -489,7 +488,7 @@
my $r_exp = shift;
my $op = shift;
- if(scalar(@$r_exp) == 0 || isa($r_exp->[0],'Pod::Abstract::Node')) {
+ if(scalar(@$r_exp) == 0 || eval { $r_exp->[0]->isa('Pod::Abstract::Node') }) {
# combination test
my $match = 0;
foreach my $l (@$l_list) {
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Serial.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Serial.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Serial.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Serial.pm Sun Jan 3 03:13:58 2010
@@ -1,6 +1,6 @@
package Pod::Abstract::Serial;
use strict;
-our $VERSION = '0.19';
+our $VERSION = '0.20';
my $serial_number = 0;
@@ -18,7 +18,7 @@
using Data::Dumper etc, unless C<set> is used to bump the number above
the highest number read.
-Or just serialise your document with C<<$node->pod>> instead!
+Or just serialise your document with C<< $node->pod >> instead!
=cut
Modified: trunk/libpod-abstract-perl/lib/Pod/Abstract/Tree.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/lib/Pod/Abstract/Tree.pm?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/lib/Pod/Abstract/Tree.pm (original)
+++ trunk/libpod-abstract-perl/lib/Pod/Abstract/Tree.pm Sun Jan 3 03:13:58 2010
@@ -1,7 +1,7 @@
package Pod::Abstract::Tree;
use strict;
-our $VERSION = '0.19';
+our $VERSION = '0.20';
=head1 NAME
Modified: trunk/libpod-abstract-perl/t/03_buildnode.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-abstract-perl/t/03_buildnode.t?rev=49998&op=diff
==============================================================================
--- trunk/libpod-abstract-perl/t/03_buildnode.t (original)
+++ trunk/libpod-abstract-perl/t/03_buildnode.t Sun Jan 3 03:13:58 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 10;
+use Test::More tests => 11;
use Pod::Abstract;
use Pod::Abstract::BuildNode qw(node nodes);
@@ -39,4 +39,11 @@
is( $root->pod, $pod, "Generated correct Pod" );
+my @nodes = nodes->from_pod($pod);
+my $root_2 = node->root;
+$root_2->nest(@nodes);
+
+my $pod_2 = $root_2->pod;
+is( $pod_2, $pod, "Round tripped same Pod with ->from_pod" );
+
1;
More information about the Pkg-perl-cvs-commits
mailing list