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&amp;n=&amp;s=1">name</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=Net%3A%3APing&amp;n=&amp;s=1">Net::Ping</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=crontab(5)&amp;n=&amp;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&amp;n=sec&amp;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&amp;n=For%20Loops&amp;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&amp;n=Apple%20Juice&amp;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)&amp;n=BUGS&amp;s=1">crontab</a>(5) X</p>
+<p><a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=name&amp;n=&amp;s=1">text</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=perldiag&amp;n=&amp;s=1">Perl Error Messages</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=Net%3A%3APing&amp;n=&amp;s=1">Is the host up?</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=crontab(5)&amp;n=&amp;s=1">User Crontab</a> X</p>
+<p><a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=name&amp;n=sec&amp;s=1">text</a> X
+<a class="pod_xhtml_bounce_url" href="/apps/trampoline.rb?p=perlsyn&amp;n=Basic%20BLOCKs%20and%20Switch%20Statements&amp;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