r7676 - in /branches/upstream/libpod-xhtml-perl/current: ./ lib/Pod/ lib/Pod/Hyperlink/ t/
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Tue Sep 18 04:33:50 UTC 2007
Author: dmn
Date: Tue Sep 18 04:33:49 2007
New Revision: 7676
URL: http://svn.debian.org/wsvn/?sc=1&rev=7676
Log:
[svn-upgrade] Integrating new upstream version, libpod-xhtml-perl (1.57)
Added:
branches/upstream/libpod-xhtml-perl/current/lib/Pod/Hyperlink/
branches/upstream/libpod-xhtml-perl/current/lib/Pod/Hyperlink/BounceURL.pm
branches/upstream/libpod-xhtml-perl/current/t/Pod_Hyperlink_BounceURL.t
branches/upstream/libpod-xhtml-perl/current/t/d.pod
branches/upstream/libpod-xhtml-perl/current/t/d.xhtml
Modified:
branches/upstream/libpod-xhtml-perl/current/Changes
branches/upstream/libpod-xhtml-perl/current/MANIFEST
branches/upstream/libpod-xhtml-perl/current/META.yml
branches/upstream/libpod-xhtml-perl/current/Makefile.PL
branches/upstream/libpod-xhtml-perl/current/README
branches/upstream/libpod-xhtml-perl/current/lib/Pod/Xhtml.pm
branches/upstream/libpod-xhtml-perl/current/t/01defaults.t
branches/upstream/libpod-xhtml-perl/current/t/02links.t
branches/upstream/libpod-xhtml-perl/current/t/Test_LinkParser.pm
branches/upstream/libpod-xhtml-perl/current/t/pod_coverage.t
Modified: branches/upstream/libpod-xhtml-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/Changes?rev=7676&op=diff
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/Changes (original)
+++ branches/upstream/libpod-xhtml-perl/current/Changes Tue Sep 18 04:33:49 2007
@@ -1,3 +1,10 @@
+Fri May 18 10:42:53 2007 - 1.57
+ * Add dependency to Makefile.PL
+
+Tue May 15 10:50:27 2007 - 1.56
+ * new TopHeading feature contributed by Jonathan Rockway
+ * added support for Pod::Hyperlink::BounceURL link parser
+
Wed Jul 12 13:08:01 2006 - 1.52
* generated markup now handles lists in index (via MakeIndex => 2) correctly
* all head section content is enclosed within a <div> with an id attribute
@@ -7,8 +14,6 @@
Thu Apr 13 11:09:33 2006 - 1.51
Updated misc. unit tests to reflect new output formatting.
-
-Thu Apr 13 10:58:39 2006 - 1.51
Generation of definition lists now using single <dd> for each <dt> and various block level elements within.
Generated XHTML standards compliant.
@@ -39,8 +44,7 @@
Wed Apr 27 14:58:54 2005 - 1.37
- Add DOCTYPE (XHTML 1.0 Transitional) (Thanks to Brian Cassidy)
- - Fix XHTML validity - some of the list types were incorrectly nested
- (Brian Cassidy)
+ - Fix XHTML validity - some of the list types were incorrectly nested (Brian Cassidy)
- Fix index listing - nested lists must be in an <li> (Brian Cassidy)
- Fixed index generation - it no longer creates empty lists
- Add content-wrapper <divs> (pod & toc, like search.cpan) (Brian Cassidy)
Modified: branches/upstream/libpod-xhtml-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/MANIFEST?rev=7676&op=diff
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/MANIFEST (original)
+++ branches/upstream/libpod-xhtml-perl/current/MANIFEST Tue Sep 18 04:33:49 2007
@@ -5,6 +5,7 @@
MANIFEST.SKIP
README
lib/Pod/Xhtml.pm
+lib/Pod/Hyperlink/BounceURL.pm
scripts/pod2xhtml
cgi-bin/pod2xhtml.pl
t/Test_LinkParser.pm
@@ -15,7 +16,10 @@
t/b.xhtml
t/c.pod
t/c.xhtml
+t/d.pod
+t/d.xhtml
t/02links.t
t/pod_coverage.t
+t/Pod_Hyperlink_BounceURL.t
t/pod.t
META.yml Module meta-data (added by MakeMaker)
Modified: branches/upstream/libpod-xhtml-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/META.yml?rev=7676&op=diff
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/META.yml (original)
+++ branches/upstream/libpod-xhtml-perl/current/META.yml Tue Sep 18 04:33:49 2007
@@ -1,12 +1,13 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Pod-Xhtml
-version: 1.52
+version: 1.57
version_from: lib/Pod/Xhtml.pm
installdirs: site
requires:
Pod::Parser: 0
Pod::ParseUtils: 0
+ Test::Assertions::TestScript: 0
Test::More: 0
distribution_type: module
Modified: branches/upstream/libpod-xhtml-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/Makefile.PL?rev=7676&op=diff
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/Makefile.PL (original)
+++ branches/upstream/libpod-xhtml-perl/current/Makefile.PL Tue Sep 18 04:33:49 2007
@@ -8,6 +8,7 @@
Pod::Parser => 0,
Pod::ParseUtils => 0,
Test::More => 0,
+ Test::Assertions::TestScript => 0,
},
ABSTRACT_FROM => 'lib/Pod/Xhtml.pm',
AUTHOR => 'British Broadcasting Corporation',
Modified: branches/upstream/libpod-xhtml-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/README?rev=7676&op=diff
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/README (original)
+++ branches/upstream/libpod-xhtml-perl/current/README Tue Sep 18 04:33:49 2007
@@ -1,4 +1,4 @@
-Pod::Xhtml v1.52
+Pod::Xhtml v1.57
(c) BBC 2004. This program is free software; you can redistribute it and/or
modify it under the GNU GPL.
Added: branches/upstream/libpod-xhtml-perl/current/lib/Pod/Hyperlink/BounceURL.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/lib/Pod/Hyperlink/BounceURL.pm?rev=7676&op=file
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/lib/Pod/Hyperlink/BounceURL.pm (added)
+++ branches/upstream/libpod-xhtml-perl/current/lib/Pod/Hyperlink/BounceURL.pm Tue Sep 18 04:33:49 2007
@@ -1,0 +1,123 @@
+package Pod::Hyperlink::BounceURL;
+use Pod::ParseUtils;
+use URI::Escape;
+
+use vars qw($VERSION @ISA);
+$VERSION = ('$Revision: 1.7 $' =~ /([\d\.]+)/)[0];
+ at ISA = 'Pod::Hyperlink';
+
+sub configure {
+ my $self = shift;
+ my %opts = @_;
+ if ($opts{'URL'}) {
+ $self->{'___url'} = $opts{'URL'};
+ }
+}
+
+sub type {
+ my $self = shift;
+
+ # very special case - if we are called explicitly (rather than by our superclass) and with other conditions
+ # 1) a page type with a page value
+ # 2) an item type with a page value
+ # We don't care about any other cases
+ my ($callpack) = caller();
+ if ($callpack ne $ISA[0]) {
+ DUMP(__PACKAGE__."::type", [ $self, @_ ]);
+ } else {
+ DUMP(" indirect call of ".__PACKAGE__."::type", [ $self, @_ ]);
+ }
+
+ if (
+ ($callpack ne $ISA[0])
+ && (($self->{'-type'} eq 'page') || ($self->{'-type'} eq 'item'))
+ && $self->{'-page'}
+ ) {
+ my $page_esc = uri_escape( $self->{'-page'} );
+ my $node_esc = uri_escape( $self->{'-node'} );
+ my $url = sprintf( $self->{'___url'}, $page_esc, $node_esc );
+ return "bounceurl:$url";
+ }
+ # in all other cases, let the superclass handle the work
+ return $self->SUPER::type(@_);
+}
+
+# debug hooks
+sub TRACE {}
+sub DUMP {}
+
+1;
+
+=head1 NAME
+
+Pod::Hyperlink::BounceURL - Allow off-page links in POD to point to a URL
+
+=head1 SYNOPSIS
+
+ use Pod::Hyperlink::BounceURL;
+ my $linkparser = new Pod::Hyperlink::BounceURL;
+ $linkparser->configure( URL => '/cgi-perl/support/bounce.pl?page=%s' );
+ my $pod2xhtml = new Pod::Xhtml( LinkParser => $linkparser );
+
+=head1 DESCRIPTION
+
+Some links in your pod may not be resolveable by Pod::Hyperlink, e.g. C<LE<lt>Some::ModuleE<gt>> -
+this module allows you to detect such links and generate a hyperlink instead of some static text.
+The target URL will probably be some kind of dynamic webpage or CGI application which can then serve up
+the relevant page or send a redirect to the page, hence the "bounce" in this module's name.
+
+This module overrides the type() method and, for relevant links, will return a string which is
+"bounceurl:" followed by the URL, instead of returning "page" or "item".
+Your pod-conversion module can then switch on this case and emit the correct kind of markup.
+L<Pod::Xhtml> supports the use of this module.
+
+=head1 METHODS
+
+=over 4
+
+=item configure( %OPTIONS )
+
+Set persistent configuration for this object. See L</OPTIONS>.
+
+=item type()
+
+Behaves as L<Pod::Hyperlink>'s type() method except for the unresolveable links, where the string returned is
+as described in L</DESCRIPTION>.
+
+=back
+
+=head1 OPTIONS
+
+=over 4
+
+=item URL
+
+The URL to handle the link, which may be absolute or relative, of any protocol - it's just
+treated as a string and is passed through sprintf(), with two string arguments that are both
+already URL-escaped.
+
+The first argument is the page name, and will always exist. The second argument is the "node" within the page, and may be
+empty.
+
+Insert '%s' where you wish the arguments to be interpolated. The string goes through sprintf() so
+you should have '%%' where you want an actual percent sign. If you need the arguments in a different order, see
+the perl-specific features of L<perlfunc/sprintf>.
+
+=back
+
+=head1 VERSION
+
+$Revision: 1.7 $
+
+=head1 AUTHOR
+
+P Kent E<lt>cpan _at_ bbc _dot_ co _dot_ ukE<gt>
+
+=head1 COPYRIGHT
+
+(c) BBC 2007. This program is free software; you can redistribute it and/or modify it under the GNU GPL.
+
+See the file COPYING in this distribution, or http://www.gnu.org/licenses/gpl.txt
+
+=cut
+
Modified: branches/upstream/libpod-xhtml-perl/current/lib/Pod/Xhtml.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/lib/Pod/Xhtml.pm?rev=7676&op=diff
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/lib/Pod/Xhtml.pm (original)
+++ branches/upstream/libpod-xhtml-perl/current/lib/Pod/Xhtml.pm Tue Sep 18 04:33:49 2007
@@ -3,13 +3,14 @@
use strict;
use Pod::Parser;
use Pod::ParseUtils;
+use Carp;
use vars qw/@ISA %COMMANDS %SEQ $VERSION $FirstAnchorId $ContentSuffix/;
$FirstAnchorId = "TOP";
$ContentSuffix = "-CONTENT";
@ISA = qw(Pod::Parser);
-($VERSION) = ('$Revision: 1.52 $' =~ m/([\d\.]+)/);
+($VERSION) = ('$Revision: 1.57 $' =~ m/([\d\.]+)/);
# recognized commands
%COMMANDS = map { $_ => 1 } qw(pod head1 head2 head3 head4 item over back for begin end);
@@ -59,6 +60,9 @@
$self->{FragmentOnly} = 0 unless defined $self->{FragmentOnly};
$self->{HeadText} = $self->{BodyOpenText} = $self->{BodyCloseText} = '';
$self->{LinkParser} ||= new Pod::Hyperlink;
+ $self->{TopHeading} ||= 1;
+ $self->{TopHeading} = int $self->{TopHeading}; # heading level must be an integer
+ croak "TopHeading must be greater than zero" if $self->{TopHeading} < 1; # (prevent negative heading levels)
$self->SUPER::initialize();
}
@@ -197,13 +201,16 @@
for ($command) {
my $data_para = @{$self->{dataSections}}; # inside a data paragraph?
/^head1/ && !$data_para && do {
+ my $top_heading = 'h'. $self->{TopHeading};
+ $top_heading = 'h1' if !$self->{FragmentOnly}; # ignore TopHeading when not in fragment mode
+
# if ANY sections are open then close the previously opened div
$self->{buffer} .= "\n</div>\n" unless ( @{ $self->{sections} } == 1 );
$anchor = $self->_addSection( 'head1', $paragraph );
my $anchorContent = $self->_addSection( '', $paragraph . $ContentSuffix);
-
- $self->{buffer} .= qq(<h1 id="$anchor">$paragraph</h1>)
+
+ $self->{buffer} .= qq(<$top_heading id="$anchor">$paragraph</$top_heading>)
.($self->{TopLinks} ? $self->{TopLinks} : '')."\n"
."<div id=\"$anchorContent\">\n";
@@ -212,7 +219,10 @@
};
/^head([234])/ && !$data_para && do {
my $head_level = $1;
-
+ if($self->{FragmentOnly}){
+ $head_level += ($self->{TopHeading} - 1);
+ $head_level = 6 if $head_level > 6;
+ }
# if ANY sections are open then close the previously opened div
$self->{buffer} .= "\n</div>\n" unless ( @{ $self->{sections} } == 1 );
@@ -228,7 +238,7 @@
last;
}
- $self->{listHasItems}[-1] = 1;
+ $self->{listHasItems}[-1]++;
$self->{listCurrentParas}[-1] = 0;
# is this the first item in the list?
@@ -291,10 +301,11 @@
push @{$self->{listCurrentParas}}, 0;
};
/^back/ && !$data_para && do {
+ my $listItems = pop @{$self->{listHasItems}};
if (--$self->{inList} < 0) {
warn "=back commands don't balance =overs at $self->{_INFILE} line $line\n";
last;
- } elsif ($self->{listHasItems} == 0) {
+ } elsif ($listItems == 0) {
warn "empty list at $self->{_INFILE} line $line\n";
last;
} elsif (@{$self->{listKind}} && $self->{listKind}[-1] == 1) {
@@ -344,7 +355,6 @@
}
}
- pop @{$self->{listHasItems}};
pop @{$self->{listKind}};
pop @{$self->{listCurrentParas}};
last;
@@ -634,6 +644,17 @@
my $targ = $self->{LinkParser}->node;
my $text = $self->{LinkParser}->text;
$string = qq(<a href="$targ">$text</a>);
+ } elsif ($kind =~ m/^bounceurl:(.+)$/) {
+ # Our link-parser has decided that the link should be handled by a particular URL
+ my $url = $1;
+ $url = _htmlEscape( $url ); # since the URL may contain ampersands
+ $string = $self->{LinkParser}->markup;
+ if ($string =~ m/P<.+>/) { # when there's no alternative text we get P, and maybe Q
+ $string =~ s|Q<(.+?)>|<strong class="pod_xhtml_bounce_url_text">$1</strong>|;
+ $string =~ s|P<(.+?)>|<a class="pod_xhtml_bounce_url" href="$url">$1</a>|;
+ } else {
+ $string =~ s|Q<(.+?)>|<a class="pod_xhtml_bounce_url" href="$url">$1</a>|;
+ }
} elsif ($page eq '') { # a link to this page
# Post-process these links so we can things up to the correct sections
my $targ = $self->{LinkParser}->node;
@@ -797,6 +818,21 @@
server-side include etc). There is no HEAD element nor any BODY or HTML
tags. Any text added with the add*Text methods will B<not> be output.
+
+=item TopHeading
+
+Allows you to set the starting heading level when in fragment mode.
+For example, if your document already has h1 tags and you want the
+generated POD to nest inside the outline, you can specify
+
+ TopHeading => 2
+
+and C<=head1> will be tagged with h2 tags, C<=head3> with h3, and so
+on.
+
+Note that XHTML doesn't allow for heading tags past h6, so h7 and up
+will be translated to h6 as necessary.
+
=item TopLinks
At each section head this text is added to provide a link back to the top.
@@ -809,6 +845,10 @@
An object that parses links in the POD document. By default, this is a regular
Pod::Hyperlink object. Any user-supplied link parser must conform the the
Pod::Hyperlink API.
+
+This module works with a L<Pod::Hyperlink::BounceURL> link parser and generates
+hyperlinks as 'a' elements with a class of 'pod_xhtml_bounce_url'. The optional
+text giving the "node" is enclosed in a 'strong' element with a class of 'pod_xhtml_bounce_url_text'
=back
Modified: branches/upstream/libpod-xhtml-perl/current/t/01defaults.t
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/t/01defaults.t?rev=7676&op=diff
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/t/01defaults.t (original)
+++ branches/upstream/libpod-xhtml-perl/current/t/01defaults.t Tue Sep 18 04:33:49 2007
@@ -1,5 +1,5 @@
-#!/usr/bin/perl -w
-#$Id: 01defaults.t,v 1.21 2006/07/12 12:00:39 mattheww Exp $
+#!/usr/local/bin/perl -w
+#$Id: 01defaults.t,v 1.23 2006/08/29 12:48:10 andreww Exp $
use strict;
use lib qw(./lib ../lib);
Modified: branches/upstream/libpod-xhtml-perl/current/t/02links.t
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/t/02links.t?rev=7676&op=diff
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/t/02links.t (original)
+++ branches/upstream/libpod-xhtml-perl/current/t/02links.t Tue Sep 18 04:33:49 2007
@@ -1,5 +1,5 @@
-#!/usr/bin/perl -w
-#$Id: 02links.t,v 1.7 2006/04/13 10:10:39 mattheww Exp $
+#!/usr/local/bin/perl -w
+#$Id: 02links.t,v 1.9 2006/08/29 12:48:11 andreww Exp $
use strict;
use lib qw(./lib ../lib);
Added: branches/upstream/libpod-xhtml-perl/current/t/Pod_Hyperlink_BounceURL.t
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/t/Pod_Hyperlink_BounceURL.t?rev=7676&op=file
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/t/Pod_Hyperlink_BounceURL.t (added)
+++ branches/upstream/libpod-xhtml-perl/current/t/Pod_Hyperlink_BounceURL.t Tue Sep 18 04:33:49 2007
@@ -1,0 +1,28 @@
+#!/usr/local/bin/perl
+# $Revision: 1.3 $
+
+use strict;
+use Test::Assertions::TestScript;
+use Pod::Hyperlink::BounceURL;
+use Pod::Xhtml;
+
+ASSERT($Pod::Hyperlink::BounceURL::VERSION, "Loaded $Pod::Hyperlink::BounceURL::VERSION");
+
+my $canned = 'd.xhtml';
+
+my $lp = new Pod::Hyperlink::BounceURL;
+$lp->configure( URL => '/apps/trampoline.rb?p=%s&n=%s&s=1' );
+DUMP($lp);
+ASSERT($lp, "created linkparser object");
+
+my $px = new Pod::Xhtml(StringMode => 1, LinkParser => $lp);
+DUMP($px);
+ASSERT($px, "created pod parser object");
+
+$px->parse_from_file( 'd.pod' );
+my $xhtml = $px->asString;
+$xhtml =~ s/^.*<body/<body/s;
+$xhtml =~ s!</html>.*!!s;
+DUMP("Made this XHTML >>>$xhtml<<<");
+
+ASSERT(EQUALS_FILE($xhtml, $canned), "Generated XHTML matched expected XHTML");
Modified: branches/upstream/libpod-xhtml-perl/current/t/Test_LinkParser.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/t/Test_LinkParser.pm?rev=7676&op=diff
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/t/Test_LinkParser.pm (original)
+++ branches/upstream/libpod-xhtml-perl/current/t/Test_LinkParser.pm Tue Sep 18 04:33:49 2007
@@ -1,10 +1,10 @@
-#$Id: Test_LinkParser.pm,v 1.4 2004/10/22 09:42:41 piersk Exp $
+#$Revision: 1.5 $
package Test_LinkParser;
use Pod::ParseUtils;
use strict;
use vars '@ISA', '$VERSION';
@ISA = 'Pod::Hyperlink';
-$VERSION = ('$Revision: 1.4 $' =~ /([\d\.]+)/)[0];
+$VERSION = ('$Revision: 1.5 $' =~ /([\d\.]+)/)[0];
# Override Pod::Hyperlink for the unit tests since different versions behave
# differently WRT decorating links (e.g. '... elsewhere in this document')
Added: branches/upstream/libpod-xhtml-perl/current/t/d.pod
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/t/d.pod?rev=7676&op=file
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/t/d.pod (added)
+++ branches/upstream/libpod-xhtml-perl/current/t/d.pod Tue Sep 18 04:33:49 2007
@@ -1,0 +1,32 @@
+=head1 OFF PAGE
+
+L<name> X
+L<Net::Ping> X
+L<crontab(5)> X
+
+L<name/sec> X
+L<perlsyn/For Loops> X
+L<Net::Ping/Apple Juice> X
+L<crontab(5)/BUGS> X
+
+L<text|name> X
+L<Perl Error Messages|perldiag> X
+L<Is the host up?|Net::Ping> X
+L<User Crontab|crontab(5)> X
+
+L<text|name/sec> X
+L<SWITCH statements|perlsyn/Basic BLOCKs and Switch Statements> X
+
+=head1 ON PAGE
+
+L</BUGS> X
+L</Constructor Options> X
+
+L<text|/sec> X
+L<the various attributes|/Member Data> X
+
+=head1 HYPERLINK
+
+L<http://www.bbc.co.uk/> X
+
+=cut
Added: branches/upstream/libpod-xhtml-perl/current/t/d.xhtml
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/t/d.xhtml?rev=7676&op=file
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/t/d.xhtml (added)
+++ branches/upstream/libpod-xhtml-perl/current/t/d.xhtml Tue Sep 18 04:33:49 2007
@@ -1,0 +1,43 @@
+<body>
+<div class="pod">
+<!-- INDEX START -->
+<h3 id="TOP">Index</h3>
+
+<ul><li><a href="#OFF_PAGE">OFF PAGE</a></li>
+<li><a href="#ON_PAGE">ON PAGE</a></li>
+<li><a href="#HYPERLINK">HYPERLINK</a>
+</li>
+</ul><hr />
+<!-- INDEX END -->
+
+<h1 id="OFF_PAGE">OFF PAGE</h1><p><a href="#TOP" class="toplink">Top</a></p>
+<div id="OFF_PAGE_CONTENT">
+<p><a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=name&n=&s=1">name</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=Net%3A%3APing&n=&s=1">Net::Ping</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=crontab(5)&n=&s=1">crontab</a>(5) X</p>
+<p><strong class="pod_xhtml_bounce_url_text">sec</strong> in <a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=name&n=sec&s=1">name</a> X
+<strong class="pod_xhtml_bounce_url_text">For Loops</strong> in <a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=perlsyn&n=For%20Loops&s=1">perlsyn</a> X
+<strong class="pod_xhtml_bounce_url_text">Apple Juice</strong> in <a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=Net%3A%3APing&n=Apple%20Juice&s=1">Net::Ping</a> X
+<strong class="pod_xhtml_bounce_url_text">BUGS</strong> in <a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=crontab(5)&n=BUGS&s=1">crontab</a>(5) X</p>
+<p><a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=name&n=&s=1">text</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=perldiag&n=&s=1">Perl Error Messages</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=Net%3A%3APing&n=&s=1">Is the host up?</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=crontab(5)&n=&s=1">User Crontab</a> X</p>
+<p><a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=name&n=sec&s=1">text</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=perlsyn&n=Basic%20BLOCKs%20and%20Switch%20Statements&s=1">SWITCH statements</a> X</p>
+
+</div>
+<h1 id="ON_PAGE">ON PAGE</h1><p><a href="#TOP" class="toplink">Top</a></p>
+<div id="ON_PAGE_CONTENT">
+<p><a href="#BUGS">BUGS</a> X
+<a href="#Constructor_Options">Constructor Options</a> X</p>
+<p><a href="#sec">text</a> X
+<a href="#Member_Data">the various attributes</a> X</p>
+
+</div>
+<h1 id="HYPERLINK">HYPERLINK</h1><p><a href="#TOP" class="toplink">Top</a></p>
+<div id="HYPERLINK_CONTENT">
+<p><a href="http://www.bbc.co.uk/">http://www.bbc.co.uk/</a> X</p>
+
+</div>
+</div></body>
Modified: branches/upstream/libpod-xhtml-perl/current/t/pod_coverage.t
URL: http://svn.debian.org/wsvn/branches/upstream/libpod-xhtml-perl/current/t/pod_coverage.t?rev=7676&op=diff
==============================================================================
--- branches/upstream/libpod-xhtml-perl/current/t/pod_coverage.t (original)
+++ branches/upstream/libpod-xhtml-perl/current/t/pod_coverage.t Tue Sep 18 04:33:49 2007
@@ -1,5 +1,5 @@
-#!/usr/bin/perl -w
-#$Id: pod_coverage.t,v 1.2 2005/07/15 10:27:23 simonf Exp $
+#!/usr/local/bin/perl -w
+#$Id: pod_coverage.t,v 1.3 2006/08/29 12:48:11 andreww Exp $
use Test::More;
eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD Coverage" if $@;
More information about the Pkg-perl-cvs-commits
mailing list