This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Pod-Simple from version 3.40 to 3.41
authorSteve Hay <steve.m.hay@googlemail.com>
Tue, 13 Oct 2020 07:28:46 +0000 (08:28 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Tue, 13 Oct 2020 07:28:46 +0000 (08:28 +0100)
94 files changed:
MANIFEST
Porting/Maintainers.pl
cpan/Pod-Simple/lib/Pod/Simple.pm
cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm
cpan/Pod-Simple/lib/Pod/Simple/Checker.pm
cpan/Pod-Simple/lib/Pod/Simple/Debug.pm
cpan/Pod-Simple/lib/Pod/Simple/DumpAsText.pm
cpan/Pod-Simple/lib/Pod/Simple/DumpAsXML.pm
cpan/Pod-Simple/lib/Pod/Simple/HTML.pm
cpan/Pod-Simple/lib/Pod/Simple/HTMLBatch.pm
cpan/Pod-Simple/lib/Pod/Simple/JustPod.pm
cpan/Pod-Simple/lib/Pod/Simple/LinkSection.pm
cpan/Pod-Simple/lib/Pod/Simple/Methody.pm
cpan/Pod-Simple/lib/Pod/Simple/Progress.pm
cpan/Pod-Simple/lib/Pod/Simple/PullParser.pm
cpan/Pod-Simple/lib/Pod/Simple/PullParserEndToken.pm
cpan/Pod-Simple/lib/Pod/Simple/PullParserStartToken.pm
cpan/Pod-Simple/lib/Pod/Simple/PullParserTextToken.pm
cpan/Pod-Simple/lib/Pod/Simple/PullParserToken.pm
cpan/Pod-Simple/lib/Pod/Simple/RTF.pm
cpan/Pod-Simple/lib/Pod/Simple/Search.pm
cpan/Pod-Simple/lib/Pod/Simple/SimpleTree.pm
cpan/Pod-Simple/lib/Pod/Simple/Text.pm
cpan/Pod-Simple/lib/Pod/Simple/TextContent.pm
cpan/Pod-Simple/lib/Pod/Simple/TiedOutFH.pm
cpan/Pod-Simple/lib/Pod/Simple/Transcode.pm
cpan/Pod-Simple/lib/Pod/Simple/TranscodeDumb.pm
cpan/Pod-Simple/lib/Pod/Simple/TranscodeSmart.pm
cpan/Pod-Simple/lib/Pod/Simple/XHTML.pm
cpan/Pod-Simple/lib/Pod/Simple/XMLOutStream.pm
cpan/Pod-Simple/t/00about.t
cpan/Pod-Simple/t/20_skip.t
cpan/Pod-Simple/t/JustPod02.t
cpan/Pod-Simple/t/JustPod_corpus.t
cpan/Pod-Simple/t/ac_d.t
cpan/Pod-Simple/t/accept01.t
cpan/Pod-Simple/t/accept05.t
cpan/Pod-Simple/t/basic.t
cpan/Pod-Simple/t/begin.t
cpan/Pod-Simple/t/cbacks.t
cpan/Pod-Simple/t/chunking.t
cpan/Pod-Simple/t/closeys.t
cpan/Pod-Simple/t/content_seen.t
cpan/Pod-Simple/t/corpus.t
cpan/Pod-Simple/t/emptylists.t
cpan/Pod-Simple/t/enc-chars.t
cpan/Pod-Simple/t/encod01.t
cpan/Pod-Simple/t/encod02.t
cpan/Pod-Simple/t/encod03.t
cpan/Pod-Simple/t/encod04.t
cpan/Pod-Simple/t/end_over.t
cpan/Pod-Simple/t/fcodes.t
cpan/Pod-Simple/t/fcodes_e.t
cpan/Pod-Simple/t/fcodes_l.t
cpan/Pod-Simple/t/fcodes_s.t
cpan/Pod-Simple/t/for.t
cpan/Pod-Simple/t/fornot.t
cpan/Pod-Simple/t/heads.t
cpan/Pod-Simple/t/html01.t
cpan/Pod-Simple/t/html02.t
cpan/Pod-Simple/t/html03.t
cpan/Pod-Simple/t/htmlbat.t
cpan/Pod-Simple/t/items.t
cpan/Pod-Simple/t/items02.t
cpan/Pod-Simple/t/itemstar.t
cpan/Pod-Simple/t/lib/helpers.pm [new file with mode: 0644]
cpan/Pod-Simple/t/linkclas.t
cpan/Pod-Simple/t/output.t
cpan/Pod-Simple/t/puller.t
cpan/Pod-Simple/t/pulltitl.t
cpan/Pod-Simple/t/reinit.t
cpan/Pod-Simple/t/render.t
cpan/Pod-Simple/t/rtf_utf8.t
cpan/Pod-Simple/t/search05.t
cpan/Pod-Simple/t/search10.t
cpan/Pod-Simple/t/search12.t
cpan/Pod-Simple/t/search20.t
cpan/Pod-Simple/t/search22.t
cpan/Pod-Simple/t/search25.t
cpan/Pod-Simple/t/search26.t
cpan/Pod-Simple/t/search27.t
cpan/Pod-Simple/t/search28.t
cpan/Pod-Simple/t/search29.t
cpan/Pod-Simple/t/search50.t
cpan/Pod-Simple/t/search60.t
cpan/Pod-Simple/t/stree.t
cpan/Pod-Simple/t/strpvbtm.t
cpan/Pod-Simple/t/tiedfh.t
cpan/Pod-Simple/t/verb_fmt.t
cpan/Pod-Simple/t/verbatim.t
cpan/Pod-Simple/t/x_nixer.t
cpan/Pod-Simple/t/xhtml01.t
cpan/Pod-Simple/t/xhtml05.t
cpan/Pod-Simple/t/xhtml10.t

index ee1289c..bfb4ba3 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1728,6 +1728,7 @@ cpan/Pod-Simple/t/junk2o.txt                              Pod::Simple test file
 cpan/Pod-Simple/t/JustPod01.t
 cpan/Pod-Simple/t/JustPod02.t
 cpan/Pod-Simple/t/JustPod_corpus.t
+cpan/Pod-Simple/t/lib/helpers.pm                       Pod::Simple test file
 cpan/Pod-Simple/t/linkclas.t                           Pod::Simple test file
 cpan/Pod-Simple/t/output.t                             Pod::Simple test file
 cpan/Pod-Simple/t/perlcyg.pod                          Pod::Simple test file
index 72336b6..c199bad 100755 (executable)
@@ -945,8 +945,12 @@ use File::Glob qw(:case);
     },
 
     'Pod::Simple' => {
-        'DISTRIBUTION' => 'KHW/Pod-Simple-3.40.tar.gz',
+        'DISTRIBUTION' => 'KHW/Pod-Simple-3.41.tar.gz',
         'FILES'        => q[cpan/Pod-Simple],
+        'EXCLUDED' => [
+            qw{.ChangeLog.swp},
+            qr{^\.github/}
+       ],
     },
 
     'Pod::Usage' => {
index 6c91b8a..504baff 100644 (file)
@@ -18,11 +18,11 @@ use vars qw(
 );
 
 @ISA = ('Pod::Simple::BlackBox');
-$VERSION = '3.40';
+$VERSION = '3.41';
 
 @Known_formatting_codes = qw(I B C L E F S X Z); 
 %Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
-@Known_directives       = qw(head1 head2 head3 head4 item over back); 
+@Known_directives       = qw(head1 head2 head3 head4 head5 head6 item over back); 
 %Known_directives       = map(($_=>'Plain'), @Known_directives);
 $NL = $/ unless defined $NL;
 
index d115aee..17b8f6d 100644 (file)
@@ -22,7 +22,7 @@ use integer; # vroom!
 use strict;
 use Carp ();
 use vars qw($VERSION );
-$VERSION = '3.40';
+$VERSION = '3.41';
 #use constant DEBUG => 7;
 
 sub my_qr ($$) {
@@ -64,7 +64,7 @@ my $non_ascii_re = my_qr('[[:^ascii:]]', "\xB6");
 $non_ascii_re = qr/[\x80-\xFF]/ unless $non_ascii_re;
 
 # Use patterns understandable by Perl 5.6, if possible
-my $cs_re = my_qr('\p{IsCs}', "\x{D800}");
+my $cs_re = do { no warnings; my_qr('\p{IsCs}', "\x{D800}") };
 my $cn_re = my_qr('\p{IsCn}', "\x{09E4}");  # <reserved> code point unlikely
                                             # to get assigned
 my $rare_blocks_re = my_qr('[\p{InIPAExtensions}\p{InSpacingModifierLetters}]',
index 2fef030..1f94afe 100644 (file)
@@ -9,7 +9,7 @@ use Carp ();
 use Pod::Simple::Methody ();
 use Pod::Simple ();
 use vars qw( @ISA $VERSION );
-$VERSION = '3.40';
+$VERSION = '3.41';
 @ISA = ('Pod::Simple::Methody');
 BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
           ? \&Pod::Simple::DEBUG
index aaa5a88..1e089cc 100644 (file)
@@ -2,7 +2,7 @@ require 5;
 package Pod::Simple::Debug;
 use strict;
 use vars qw($VERSION );
-$VERSION = '3.40';
+$VERSION = '3.41';
 
 sub import {
   my($value,$variable);
index bade6fc..dad0b69 100644 (file)
@@ -1,7 +1,7 @@
 
 require 5;
 package Pod::Simple::DumpAsText;
-$VERSION = '3.40';
+$VERSION = '3.41';
 use Pod::Simple ();
 BEGIN {@ISA = ('Pod::Simple')}
 
index 6f0b7b1..4531f9c 100644 (file)
@@ -1,7 +1,7 @@
 
 require 5;
 package Pod::Simple::DumpAsXML;
-$VERSION = '3.40';
+$VERSION = '3.41';
 use Pod::Simple ();
 BEGIN {@ISA = ('Pod::Simple')}
 
index 0219b97..8ad7572 100644 (file)
@@ -9,7 +9,7 @@ use vars qw(
   $Doctype_decl  $Content_decl
 );
 @ISA = ('Pod::Simple::PullParser');
-$VERSION = '3.40';
+$VERSION = '3.41';
 BEGIN {
   if(defined &DEBUG) { } # no-op
   elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG }
@@ -109,10 +109,14 @@ my @_to_accept;
   'head2' => "\n<h2>",  #  ''
   'head3' => "\n<h3>",  #  ''
   'head4' => "\n<h4>",  #  ''
+  'head5' => "\n<h5>",  #  ''
+  'head6' => "\n<h6>",  #  ''
   '/head1' => "</a></h1>\n",
   '/head2' => "</a></h2>\n",
   '/head3' => "</a></h3>\n",
   '/head4' => "</a></h4>\n",
+  '/head5' => "</a></h5>\n",
+  '/head6' => "</a></h6>\n",
 
   'X'  => "<!--\n\tINDEX: ",
   '/X' => "\n-->",
@@ -224,7 +228,7 @@ sub __adjust_html_h_levels {
   return if ($self->{'Adjusted_html_h_levels'}||0) == $add;
 
   $add -= 1;
-  for (1 .. 4) {
+  for (1 .. 6) {
     $Tagmap->{"head$_"}  =~ s/$_/$_ + $add/e;
     $Tagmap->{"/head$_"} =~ s/$_/$_ + $add/e;
   }
@@ -323,7 +327,7 @@ sub version_tag_comment {
    "<!--\n  generated by %s v%s,\n  using %s v%s,\n  under Perl v%s at %s GMT.\n\n %s\n\n-->\n",
    esc(
     ref($self), $self->VERSION(), $ISA[0], $ISA[0]->VERSION(),
-    $], scalar(gmtime),
+    $], scalar(gmtime($ENV{SOURCE_DATE_EPOCH} || time)),
    ), $self->_modnote(),
   ;
 }
index 227d6d3..144387e 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 use vars qw( $VERSION $HTML_RENDER_CLASS $HTML_EXTENSION
  $CSS $JAVASCRIPT $SLEEPY $SEARCH_CLASS @ISA
 );
-$VERSION = '3.40';
+$VERSION = '3.41';
 @ISA = ();  # Yup, we're NOT a subclass of Pod::Simple::HTML!
 
 # TODO: nocontents stylesheets. Strike some of the color variations?
@@ -94,11 +94,11 @@ sub new {
   
   
   $new->contents_page_end( sprintf(
-    "\n\n<p class='contentsfooty'>Generated by %s v%s under Perl v%s\n<br >At %s GMT, which is %s local time.</p>\n\n</body></html>\n",
+    "\n\n<p class='contentsfooty'>Generated by %s v%s under Perl v%s\n<br >At %s GMT.</p>\n\n</body></html>\n",
     esc(
       ref($new),
       eval {$new->VERSION} || $VERSION,
-      $], scalar(gmtime), scalar(localtime), 
+      $], scalar(gmtime($ENV{SOURCE_DATE_EPOCH} || time)),
   )));
 
   return $new;
@@ -871,7 +871,8 @@ $CSS = <<'EOCSS';
     background-color: #000;
   }
 
-  body.pod h1, body.pod h2, body.pod h3, body.pod h4  {
+  body.pod h1, body.pod h2, body.pod h3,
+  body.pod h4, body.pod h5, body.pod h6  {
     font-family: Tahoma, Verdana, Helvetica, Arial, sans-serif;
     font-weight: normal;
     margin-top: 1.2em;
@@ -884,11 +885,15 @@ $CSS = <<'EOCSS';
   body.pod h2  { border-top-color: #080; }
   body.pod h3  { border-top-color: #040; }
   body.pod h4  { border-top-color: #010; }
+  body.pod h5  { border-top-color: #010; }
+  body.pod h6  { border-top-color: #010; }
 
   p.backlinktop + h1 { border-top: none; margin-top: 0em;  }
   p.backlinktop + h2 { border-top: none; margin-top: 0em;  }
   p.backlinktop + h3 { border-top: none; margin-top: 0em;  }
   p.backlinktop + h4 { border-top: none; margin-top: 0em;  }
+  p.backlinktop + h5 { border-top: none; margin-top: 0em;  }
+  p.backlinktop + h6 { border-top: none; margin-top: 0em;  }
 
   body.pod dt {
     font-size: 105%; /* just a wee bit more than normal */
index c7ad3d6..935c9e8 100644 (file)
@@ -74,6 +74,8 @@ sub start_head1       { shift->_generic_start('=head1', @_); }
 sub start_head2       { shift->_generic_start('=head2', @_); }
 sub start_head3       { shift->_generic_start('=head3', @_); }
 sub start_head4       { shift->_generic_start('=head4', @_); }
+sub start_head5       { shift->_generic_start('=head5', @_); }
+sub start_head6       { shift->_generic_start('=head6', @_); }
 sub start_encoding    { shift->_generic_start('=encoding', @_); }
 # sub start_Para
 # sub start_Verbatim
@@ -175,6 +177,8 @@ sub _end_generic  {
 *end_head2    = *_end_generic;
 *end_head3    = *_end_generic;
 *end_head4    = *_end_generic;
+*end_head5    = *_end_generic;
+*end_head6    = *_end_generic;
 *end_encoding = *_end_generic;
 *end_Para     = *_end_generic;
 *end_Verbatim = *_end_generic;
index b9ca19c..ced4c3f 100644 (file)
@@ -6,7 +6,7 @@ package Pod::Simple::LinkSection;
 use strict;
 use Pod::Simple::BlackBox;
 use vars qw($VERSION );
-$VERSION = '3.40';
+$VERSION = '3.41';
 
 use overload( # So it'll stringify nice
   '""'   => \&Pod::Simple::BlackBox::stringify_lol,
index 5bcee54..d8fd3f2 100644 (file)
@@ -4,7 +4,7 @@ package Pod::Simple::Methody;
 use strict;
 use Pod::Simple ();
 use vars qw(@ISA $VERSION);
-$VERSION = '3.40';
+$VERSION = '3.41';
 @ISA = ('Pod::Simple');
 
 # Yes, we could use named variables, but I want this to be impose
index 3d6f403..5840c8c 100644 (file)
@@ -1,7 +1,7 @@
 
 require 5;
 package Pod::Simple::Progress;
-$VERSION = '3.40';
+$VERSION = '3.41';
 use strict;
 
 # Objects of this class are used for noting progress of an
index ceeb3f9..133dd2f 100644 (file)
@@ -1,6 +1,6 @@
 require 5;
 package Pod::Simple::PullParser;
-$VERSION = '3.40';
+$VERSION = '3.41';
 use Pod::Simple ();
 BEGIN {@ISA = ('Pod::Simple')}
 
index d9ebdcb..8a138f5 100644 (file)
@@ -5,7 +5,7 @@ use Pod::Simple::PullParserToken ();
 use strict;
 use vars qw(@ISA $VERSION);
 @ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.40';
+$VERSION = '3.41';
 
 sub new {  # Class->new(tagname);
   my $class = shift;
index 61608fb..c3b56d5 100644 (file)
@@ -5,7 +5,7 @@ use Pod::Simple::PullParserToken ();
 use strict;
 use vars qw(@ISA $VERSION);
 @ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.40';
+$VERSION = '3.41';
 
 sub new {  # Class->new(tagname, optional_attrhash);
   my $class = shift;
index c8247a0..dd60a95 100644 (file)
@@ -5,7 +5,7 @@ use Pod::Simple::PullParserToken ();
 use strict;
 use vars qw(@ISA $VERSION);
 @ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.40';
+$VERSION = '3.41';
 
 sub new {  # Class->new(text);
   my $class = shift;
index f14b563..f4b00d2 100644 (file)
@@ -3,7 +3,7 @@ require 5;
 package Pod::Simple::PullParserToken;
  # Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
 @ISA = ();
-$VERSION = '3.40';
+$VERSION = '3.41';
 use strict;
 
 sub new {  # Class->new('type', stuff...);  ## Overridden in derived classes anyway
index ed0de14..9f9c2ac 100644 (file)
@@ -8,7 +8,7 @@ package Pod::Simple::RTF;
 
 use strict;
 use vars qw($VERSION @ISA %Escape $WRAP %Tagmap);
-$VERSION = '3.40';
+$VERSION = '3.41';
 use Pod::Simple::PullParser ();
 BEGIN {@ISA = ('Pod::Simple::PullParser')}
 
@@ -494,7 +494,7 @@ END
   # None of the following things should need escaping, I dare say!
     $tag, 
     $ISA[0], $ISA[0]->VERSION(),
-    $], scalar(gmtime),
+    $], scalar(gmtime($ENV{SOURCE_DATE_EPOCH} || time)),
   ;
 }
 
index a07d33b..0fbad86 100644 (file)
@@ -3,7 +3,7 @@ package Pod::Simple::Search;
 use strict;
 
 use vars qw($VERSION $MAX_VERSION_WITHIN $SLEEPY);
-$VERSION = '3.40';   ## Current version of this package
+$VERSION = '3.41';   ## Current version of this package
 
 BEGIN { *DEBUG = sub () {0} unless defined &DEBUG; }   # set DEBUG level
 use Carp ();
index 85dbabc..63c82ca 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 use Carp ();
 use Pod::Simple ();
 use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
-$VERSION = '3.40';
+$VERSION = '3.41';
 BEGIN {
   @ISA = ('Pod::Simple');
   *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
index de50b51..7feb4c5 100644 (file)
@@ -6,7 +6,7 @@ use Carp ();
 use Pod::Simple::Methody ();
 use Pod::Simple ();
 use vars qw( @ISA $VERSION $FREAKYMODE);
-$VERSION = '3.40';
+$VERSION = '3.41';
 @ISA = ('Pod::Simple::Methody');
 BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
           ? \&Pod::Simple::DEBUG
index ad4172b..affb917 100644 (file)
@@ -6,7 +6,7 @@ use strict;
 use Carp ();
 use Pod::Simple ();
 use vars qw( @ISA $VERSION );
-$VERSION = '3.40';
+$VERSION = '3.41';
 @ISA = ('Pod::Simple');
 
 sub new {
index 0dd12c4..93d9804 100644 (file)
@@ -4,7 +4,7 @@ package Pod::Simple::TiedOutFH;
 use Symbol ('gensym');
 use Carp ();
 use vars qw($VERSION );
-$VERSION = '3.40';
+$VERSION = '3.41';
 
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
index eb12702..8cb71d1 100644 (file)
@@ -3,7 +3,7 @@ require 5;
 package Pod::Simple::Transcode;
 use strict;
 use vars qw($VERSION @ISA);
-$VERSION = '3.40';
+$VERSION = '3.41';
 
 BEGIN {
   if(defined &DEBUG) {;} # Okay
index 2b675cc..3f9d09d 100644 (file)
@@ -5,7 +5,7 @@ require 5;
 package Pod::Simple::TranscodeDumb;
 use strict;
 use vars qw($VERSION %Supported);
-$VERSION = '3.40';
+$VERSION = '3.41';
 # This module basically pretends it knows how to transcode, except
 #  only for null-transcodings!  We use this when Encode isn't
 #  available.
index 99f5568..4d1004d 100644 (file)
@@ -9,7 +9,7 @@ use strict;
 use Pod::Simple;
 require Encode;
 use vars qw($VERSION );
-$VERSION = '3.40';
+$VERSION = '3.41';
 
 sub is_dumb  {0}
 sub is_smart {1}
index b9c6269..d4f59dd 100644 (file)
@@ -45,7 +45,7 @@ declare the output character set as UTF-8 before parsing, like so:
 package Pod::Simple::XHTML;
 use strict;
 use vars qw( $VERSION @ISA $HAS_HTML_ENTITIES );
-$VERSION = '3.40';
+$VERSION = '3.41';
 use Pod::Simple::Methody ();
 @ISA = ('Pod::Simple::Methody');
 
@@ -400,6 +400,8 @@ sub start_head1 {  $_[0]{'in_head'} = 1; $_[0]{htext} = ''; }
 sub start_head2 {  $_[0]{'in_head'} = 2; $_[0]{htext} = ''; }
 sub start_head3 {  $_[0]{'in_head'} = 3; $_[0]{htext} = ''; }
 sub start_head4 {  $_[0]{'in_head'} = 4; $_[0]{htext} = ''; }
+sub start_head5 {  $_[0]{'in_head'} = 5; $_[0]{htext} = ''; }
+sub start_head6 {  $_[0]{'in_head'} = 6; $_[0]{htext} = ''; }
 
 sub start_item_number {
     $_[0]{'scratch'} = "</li>\n" if ($_[0]{'in_li'}->[-1] && pop @{$_[0]{'in_li'}});
@@ -483,6 +485,8 @@ sub end_head1       { shift->_end_head(@_); }
 sub end_head2       { shift->_end_head(@_); }
 sub end_head3       { shift->_end_head(@_); }
 sub end_head4       { shift->_end_head(@_); }
+sub end_head5       { shift->_end_head(@_); }
+sub end_head6       { shift->_end_head(@_); }
 
 sub end_item_bullet { $_[0]{'scratch'} .= '</p>'; $_[0]->emit }
 sub end_item_number { $_[0]{'scratch'} .= '</p>'; $_[0]->emit }
index cb818a1..a855209 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 use Carp ();
 use Pod::Simple ();
 use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
-$VERSION = '3.40';
+$VERSION = '3.41';
 BEGIN {
   @ISA = ('Pod::Simple');
   *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
index 70fcffe..f7b4b60 100644 (file)
@@ -12,6 +12,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 my @modules;
 BEGIN {
index c06220e..a9fdac3 100644 (file)
@@ -1,4 +1,8 @@
 # 20 skip under 5.8
+
+use strict;
+use warnings;
+
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
index 8205aec..e4117fe 100644 (file)
@@ -78,6 +78,10 @@ other interesting bits.
 
 =head4  Level "4 C<heading>
 
+=head5  Level "5 B<heading>
+
+=head6  Level "6 I<heading>
+
 Now try again with B<intermixed> F<text>.
 
 =head1 This C<is> a "level 1" heading
@@ -96,6 +100,14 @@ Text.
 
 Text.
 
+=head5  Level "5 B<heading>
+
+Text.
+
+=head6  Level "6 I<heading>
+
+Text.
+
 =head1 LINKS
 
 These are all taken from the Pod::Parser tests.
index e0bb878..86e9d92 100644 (file)
@@ -1,5 +1,6 @@
 # Testing Pod::Simple::JustPod against *.pod in /t
 use strict;
+use warnings;
 
 BEGIN {
   if($ENV{PERL_CORE}) {
@@ -58,99 +59,129 @@ BEGIN {
   plan tests => scalar @test_files;
 }
 
+@test_files = sort @test_files;
+
+my @skip_on_windows = qw{
+  t/corpus/8859_7.pod
+  t/corpus/laozi38p.pod
+  t/junk2.pod
+  t/perlcyg.pod
+  t/perlfaq.pod
+  t/perlvar.pod
+  t/search60/A/x.pod
+  t/search60/B/X.pod
+  t/testlib1/hinkhonk/Glunk.pod
+  t/testlib1/pod/perlflif.pod
+  t/testlib1/pod/perlthng.pod
+  t/testlib1/squaa/Glunk.pod
+  t/testlib1/zikzik.pod
+  t/testlib2/hinkhonk/Glunk.pod
+  t/testlib2/pod/perlthng.pod
+  t/testlib2/pod/perlzuk.pod
+  t/testlib2/pods/perlzoned.pod
+  t/testlib2/squaa/Wowo.pod
+};
+
+my $is_windows = $^O eq 'MSWin32';
 foreach my $file (@test_files) {
-  my $parser = Pod::Simple::JustPod->new();
-  $parser->complain_stderr(0);
-
-  my $input;
-  open( IN , '<:raw' , $file ) or die "$file: $!";
-  $input .= $_ while (<IN>);
-  close( IN );
-
-  my $output;
-  $parser->output_string( \$output );
-  $parser->parse_string_document( $input );
-
-  if ($parser->any_errata_seen()) {
-    pass("Skip '$file' because of pod errors");
-    next if "$]" lt '5.010.001';     # note() not found in earlier versions
-    my $errata = $parser->errata_seen();
-    foreach my $line_number (sort { $a <=> $b } keys %$errata) {
-        foreach my $err_msg (sort @{$errata->{$line_number}}) {
-            note("$file: $line_number: $err_msg");
-        }
+  SKIP: {
+    if ( $is_windows && grep { $_ eq $file } @skip_on_windows ) {
+      skip "$file needs investigation on windows", 1;  
+    }    
+
+    my $parser = Pod::Simple::JustPod->new();
+    $parser->complain_stderr(0);
+
+    my $input;
+    open( IN , '<:raw' , $file ) or die "$file: $!";
+    $input .= $_ while (<IN>);
+    close( IN );
+
+    my $output;
+    $parser->output_string( \$output );
+    $parser->parse_string_document( $input );
+
+    if ($parser->any_errata_seen()) {
+      pass("Skip '$file' because of pod errors");
+      next if "$]" lt '5.010.001';     # note() not found in earlier versions
+      my $errata = $parser->errata_seen();
+      foreach my $line_number (sort { $a <=> $b } keys %$errata) {
+          foreach my $err_msg (sort @{$errata->{$line_number}}) {
+              note("$file: $line_number: $err_msg");
+          }
+      }
+      next;
     }
-    next;
-  }
 
-  my $encoding = $parser->encoding();
-  if (defined $encoding) {
-    eval { require Encode; };
-    $input = Encode::decode($parser->encoding(), $input);
-  }
+    my $encoding = $parser->encoding();
+    if (defined $encoding) {
+      eval { require Encode; };
+      $input = Encode::decode($parser->encoding(), $input);
+    }
 
-  my @input = split "\n", $input;
-  my $stripped_input = "";
-  while (defined ($_ = shift @input)) {
-    if (/ ^ = [a-z]+ /x) {
-      my $line = "$_\n";
+    my @input = split "\n", $input;
+    my $stripped_input = "";
+    while (defined ($_ = shift @input)) {
+      if (/ ^ = [a-z]+ /x) {
+        my $line = "$_\n";
 
-      if ($stripped_input eq "" || $_ !~ /^=pod/) {
-        $stripped_input .= $line;
-      }
-      while (defined ($_ = shift @input)) {
-        $stripped_input .= "$_\n";
-        last if / ^ =cut /x;
+        if ($stripped_input eq "" || $_ !~ /^=pod/) {
+          $stripped_input .= $line;
+        }
+        while (defined ($_ = shift @input)) {
+          $stripped_input .= "$_\n";
+          last if / ^ =cut /x;
+        }
       }
     }
-  }
-  $stripped_input =~ s/ ^ =cut \n (.) /$1/mgx;
+    $stripped_input =~ s/ ^ =cut \n (.) /$1/mgx;
 
-  $input = $stripped_input if $stripped_input ne "";
-  if ($input !~ / ^ =pod /x) {
-    $input =~ s/ ^ \s+ //x;
-    $input = "=pod\n\n$input";
-  }
-  if ($input !~ / =cut $ /x) {
-    $input =~ s/ \s+ $ //x;
-    $input .= "\n\n=cut\n";
-  }
+    $input = $stripped_input if $stripped_input ne "";
+    if ($input !~ / ^ =pod /x) {
+      $input =~ s/ ^ \s+ //x;
+      $input = "=pod\n\n$input";
+    }
+    if ($input !~ / =cut $ /x) {
+      $input =~ s/ \s+ $ //x;
+      $input .= "\n\n=cut\n";
+    }
 
-  my $msg = "got expected output for $file";
-  if ($output eq $input) {
-      pass($msg);
-  }
-  elsif ($ENV{PERL_TEST_DIFF}) {
-    fail($msg);
-    require File::Temp;
-    my $orig_file = File::Temp->new();
-    local $/ = "\n";
-    chomp $input;
-    print $orig_file $input, "\n";
-    close $orig_file || die "Can't close orig_file: $!";
-
-    chomp $output;
-    my $parsed_file = File::Temp->new();
-    print $parsed_file $output, "\n";
-    close $parsed_file || die "Can't close parsed_file";
-
-    my $diff = File::Temp->new();
-    system("$ENV{PERL_TEST_DIFF} $orig_file $parsed_file > $diff");
-
-    open my $fh, "<", $diff || die "Can't open $diff";
-    my @diffs = <$fh>;
-    diag(@diffs);
-  }
-  else {
-      eval { require Text::Diff; };
-      if ($@) {
-          is($output, $input, $msg);
-          diag("Set environment variable PERL_TEST_DIFF=diff_tool or install"
-             . " Text::Diff to see just the differences.");
-      }
-      else {
-          fail($msg);
-          diag Text::Diff::diff(\$input, \$output, { STYLE => 'Unified' });
-      }
+    my $msg = "got expected output for $file";
+    if ($output eq $input) {
+        pass($msg);
+    }
+    elsif ($ENV{PERL_TEST_DIFF}) {
+      fail($msg);
+      require File::Temp;
+      my $orig_file = File::Temp->new();
+      local $/ = "\n";
+      chomp $input;
+      print $orig_file $input, "\n";
+      close $orig_file || die "Can't close orig_file: $!";
+
+      chomp $output;
+      my $parsed_file = File::Temp->new();
+      print $parsed_file $output, "\n";
+      close $parsed_file || die "Can't close parsed_file";
+
+      my $diff = File::Temp->new();
+      system("$ENV{PERL_TEST_DIFF} $orig_file $parsed_file > $diff");
+
+      open my $fh, "<", $diff || die "Can't open $diff";
+      my @diffs = <$fh>;
+      diag(@diffs);
+    }
+    else {
+        eval { require Text::Diff; };
+        if ($@) {
+            is($output, $input, $msg);
+            diag("Set environment variable PERL_TEST_DIFF=diff_tool or install"
+               . " Text::Diff to see just the differences.");
+        }
+        else {
+            fail($msg);
+            diag Text::Diff::diff(\$input, \$output, { STYLE => 'Unified' });
+        }
+    }
   }
 }
index 398456d..74635f0 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 14 };
 
@@ -18,8 +19,6 @@ print "# Pod::Simple version $Pod::Simple::VERSION\n";
 $Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
 $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
 
-#sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
-
 $Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
 $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
 
index 5c739e2..f7d9a95 100644 (file)
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 13 };
 
@@ -17,7 +18,13 @@ ok 1;
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
+
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 
 my $x = 'Pod::Simple::XMLOutStream';
 sub accept_N { $_[0]->accept_codes('N') }
index f259ff2..bcac1ac 100644 (file)
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 24 };
 
@@ -17,7 +18,13 @@ ok 1;
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
+
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 
 my $x = 'Pod::Simple::XMLOutStream';
 sub accept_Q    { $_[0]->accept_codes('Q') }
index 157a640..9b1cecf 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 31 };
 
@@ -26,7 +27,12 @@ require Pod::Simple::DumpAsXML; ok 1;
 
 require Pod::Simple::XMLOutStream; ok 1;
 
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 
 print "# Simple identity tests...\n";
 
index 3b40095..4cfb494 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 62 };
 
@@ -18,7 +19,13 @@ ok 1;
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
+
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 
 my $x = 'Pod::Simple::XMLOutStream';
 $Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
index 1d639bb..cb89b02 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 8 };
 
index f51766d..c372e46 100644 (file)
@@ -8,16 +8,22 @@ BEGIN {
 #use Pod::Simple::Debug (2);
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 11 };
 
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 
 ok 1;
 
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
 
 ok( Pod::Simple::XMLOutStream->_out("=head1 =head1"),
     '<Document><head1>=head1</head1></Document>'
index 7e2b3f8..a232464 100644 (file)
@@ -6,9 +6,17 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 3 };
 
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import('f');
+}
+
 my $d;
 #use Pod::Simple::Debug (\$d,0);
 #use Pod::Simple::Debug (10);
@@ -18,7 +26,6 @@ ok 1;
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e     ($$) { Pod::Simple::XMLOutStream::->_duo(\&nowhine, @_) }
 
 sub nowhine {
 #  $_[0]->{'no_whining'} = 1;
@@ -26,7 +33,8 @@ sub nowhine {
 }
 
 local $Pod::Simple::XMLOutStream::SORT_ATTRS = 1;
-&ok(e(
+&ok(f(
+       \&nowhine,
 "=begin :foo\n\n=begin :bar\n\nZaz\n\n",
 "=begin :foo\n\n=begin :bar\n\nZaz\n\n=end :bar\n\n=end :foo\n\n",
 ));
index 82095ba..67296af 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 2 };
 
index 4075f91..013ee3f 100644 (file)
@@ -22,6 +22,7 @@ use Test qw(plan ok skip);
 use File::Spec;
 #use utf8;
 use strict;
+use warnings;
 my(@testfiles, %xmlfiles, %wouldxml);
 #use Pod::Simple::Debug (10);
 BEGIN { 
index 619cd63..2edfbc8 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 5 };
 
index 1455ae6..a648b9e 100644 (file)
@@ -16,6 +16,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 5 };
 
index 0f83dcc..10c916b 100644 (file)
@@ -11,6 +11,7 @@ use Test;
 use File::Spec;
 #use utf8;
 use strict;
+use warnings;
 #use Pod::Simple::Debug (10);
 
 BEGIN { plan tests => 6 }
index a29cbdc..f4e8092 100644 (file)
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 4 };
 
index 48ab2f4..c92b228 100644 (file)
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 4 };
 
index 8f41f98..6a82132 100644 (file)
@@ -10,6 +10,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN {
     plan tests => 6, todo => [];
index ccea3fe..e4021cc 100644 (file)
@@ -7,8 +7,16 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
-BEGIN { plan tests => 5 };
+BEGIN { plan tests => 7 };
+
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import('f');
+}
 
 my $d;
 #use Pod::Simple::Debug (\$d,0);
@@ -18,32 +26,47 @@ ok 1;
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e     ($$) { Pod::Simple::XMLOutStream::->_duo(\&nowhine, @_) }
 
 sub nowhine {
   $_[0]->{'no_whining'} = 1;
 }
 
-&ok(e(
+&ok(f(
+\&nowhine,
 "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=head1 SVUP\n\nMyup.",
 "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=back\n\n=head1 SVUP\n\nMyup.",
 ));
 
-&ok(e(
+&ok(f(
+\&nowhine,
 "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=head2 SVUP\n\nMyup.",
 "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=back\n\n=head2 SVUP\n\nMyup.",
 ));
 
-&ok(e(
+&ok(f(
+\&nowhine,
 "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=head3 SVUP\n\nMyup.",
 "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=back\n\n=head3 SVUP\n\nMyup.",
 ));
 
-&ok(e(
+&ok(f(
+\&nowhine,
 "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=head4 SVUP\n\nMyup.",
 "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=back\n\n=head4 SVUP\n\nMyup.",
 ));
 
+&ok(f(
+\&nowhine,
+"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=head5 SVUP\n\nMyup.",
+"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=back\n\n=head5 SVUP\n\nMyup.",
+));
+
+&ok(f(
+\&nowhine,
+"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=head6 SVUP\n\nMyup.",
+"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff.  Um.\n\nBrop.\n\n=back\n\n=head6 SVUP\n\nMyup.",
+));
+
 
 __END__
 
index a746b26..6cffcba 100644 (file)
@@ -6,17 +6,23 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 23 };
 
 #use Pod::Simple::Debug (5);
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 
 ok 1;
 
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
 
 print "# With weird leading whitespace...\n";
 # With weird whitespace
index a0026dc..63d2ab1 100644 (file)
@@ -7,9 +7,16 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 20 };
 
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 #use Pod::Simple::Debug (6);
 
 ok 1;
@@ -23,9 +30,6 @@ print "# Pod::Escapes version $Pod::Escapes::VERSION\n",
  if $Pod::Escapes::VERSION;
 # Presumably that's the library being used
 
-
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
-
 &ok( e "", "" );
 &ok( e "\n", "", );
 
index 3433d24..f634aaa 100644 (file)
@@ -7,9 +7,17 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 101 };
 
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
+
 #use Pod::Simple::Debug (10);
 
 ok 1;
@@ -17,7 +25,7 @@ ok 1;
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
+
 my $x = 'Pod::Simple::XMLOutStream';
 
 print "##### Testing L codes via x class $x...\n";
index fd48ec0..c8636d4 100644 (file)
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 80 };
 
@@ -17,7 +18,8 @@ ok 1;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
 my $x = 'Pod::Simple::XMLOutStream';
-sub e ($$) { $x->_duo(@_) }
+
+sub e { $x->_duo(@_) }
 
 $Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
 $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
@@ -221,7 +223,7 @@ ok(
 use Pod::Simple::HTML;
 my $PERLDOC = "https://metacpan.org/pod";
 my $MANURL = "http://man.he.net/man";
-sub x ($) {
+sub x {
     Pod::Simple::HTML->_out(
         sub {  $_[0]->bare_output(1)  },
         "=pod\n\n$_[0]",
index 158cdc2..daf8b21 100644 (file)
@@ -6,17 +6,23 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 21 };
 
 #use Pod::Simple::Debug (5);
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 
 ok 1;
 
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
 
 my $x = 'Pod::Simple::XMLOutStream';
 $Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
index 863b00a..96932d0 100644 (file)
@@ -6,17 +6,23 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 21 };
 
 #use Pod::Simple::Debug (5);
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 
 ok 1;
 
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
 
 my $x = 'Pod::Simple::XMLOutStream';
 $Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
index bd04ce3..6035405 100644 (file)
@@ -6,20 +6,27 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
-BEGIN { plan tests => 19 };
+BEGIN { plan tests => 23 };
 
 #use Pod::Simple::Debug (6);
 
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
+
 ok 1;
 
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
 
 
-print "# Simple tests for head1 - head4...\n";
+print "# Simple tests for head1 - head6...\n";
 ok( Pod::Simple::XMLOutStream->_out("\n=head1 Chacha\n\n"),
     '<Document><head1>Chacha</head1></Document>'
 );
@@ -32,6 +39,12 @@ ok( Pod::Simple::XMLOutStream->_out("\n=head3 Chacha\n\n"),
 ok( Pod::Simple::XMLOutStream->_out("\n=head4 Chacha\n\n"),
     '<Document><head4>Chacha</head4></Document>'
 );
+ok( Pod::Simple::XMLOutStream->_out("\n=head5 Chacha\n\n"),
+    '<Document><head5>Chacha</head5></Document>'
+);
+ok( Pod::Simple::XMLOutStream->_out("\n=head6 Chacha\n\n"),
+    '<Document><head6>Chacha</head6></Document>'
+);
 
 print "# Testing whitespace equivalence...\n";
 
@@ -57,7 +70,7 @@ ok( Pod::Simple::XMLOutStream->_out("=head1     Cha   cha\tcha   \n"),
 
 
 
-print "# Testing head2, head3, head4 more...\n";
+print "# Testing head2 ... head6 more...\n";
 
 ok( Pod::Simple::XMLOutStream->_out("=head2     Cha   cha\tcha   \n"),
     '<Document><head2>Cha cha cha</head2></Document>'
@@ -68,6 +81,12 @@ ok( Pod::Simple::XMLOutStream->_out("=head3     Cha   cha\tcha   \n"),
 ok( Pod::Simple::XMLOutStream->_out("=head4     Cha   cha\tcha   \n"),
     '<Document><head4>Cha cha cha</head4></Document>'
 );
+ok( Pod::Simple::XMLOutStream->_out("=head5     Cha   cha\tcha   \n"),
+    '<Document><head5>Cha cha cha</head5></Document>'
+);
+ok( Pod::Simple::XMLOutStream->_out("=head6     Cha   cha\tcha   \n"),
+    '<Document><head6>Cha cha cha</head6></Document>'
+);
 
 print "# Testing entity expansion...\n";
 
index 8d8e528..a0e1a55 100644 (file)
@@ -8,14 +8,15 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
-BEGIN { plan tests => 14 };
+BEGIN { plan tests => 16 };
 
 #use Pod::Simple::Debug (10);
 
 use Pod::Simple::HTML;
 
-sub x ($;&) {
+sub x {
   my $code = $_[1];
   Pod::Simple::HTML->_out(
   sub{  $_[0]->bare_output(1); $code->($_[0]) if $code  },
@@ -79,6 +80,18 @@ ok(x(
 );
 
 ok(x(
+'=head5 The number of the heading shall be five')
+ => q{/\s*<h5><a[^<>]+>The\s+number\s+of\s+the\s+heading\s+shall\s+be\s+five</a></h5>\s*$/},
+  "heading building"
+);
+
+ok(x(
+'=head6 The sixth a heading is the perfect heading')
+ => q{/\s*<h6><a[^<>]+>The\s+sixth\s+a\s+heading\s+is\s+the\s+perfect\s+heading</a></h6>\s*$/},
+  "heading building"
+);
+
+ok(x(
 '=head2 Yada Yada Operator
 X<...> X<... operator> X<yada yada operator>')
  => q{/name="Yada_Yada_Operator"/},
index 02349f3..265dffd 100644 (file)
@@ -10,11 +10,12 @@ BEGIN {
 #use Pod::Simple::Debug (10);
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 7};
 use Pod::Simple::HTML;
 
-sub x ($) { Pod::Simple::HTML->_out(
+sub x { Pod::Simple::HTML->_out(
   sub{  $_[0]->bare_output(1)  },
   "=pod\n\n$_[0]",
 ) }
index 5a59ba2..f86e2cc 100644 (file)
@@ -8,6 +8,7 @@ BEGIN {
 }
  
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 7 };
 
@@ -15,12 +16,11 @@ BEGIN { plan tests => 7 };
 
 use Pod::Simple::HTML;
 
-sub x ($) { Pod::Simple::HTML->_out(
+sub x { Pod::Simple::HTML->_out(
   #sub{  $_[0]->bare_output(1)  },
   "=pod\n\n$_[0]",
 ) }
 
-
 # make sure empty file => empty output
 
 ok 1;
index ca58e6e..7a870a8 100644 (file)
@@ -8,6 +8,7 @@ BEGIN {
 
 # Time-stamp: "2004-05-24 02:07:47 ADT"
 use strict;
+use warnings;
 my $DEBUG = 0;
 
 #sub Pod::Simple::HTMLBatch::DEBUG () {5};
index f76cf59..83791bc 100644 (file)
@@ -6,18 +6,25 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 24 };
 
 my $d;
 #use Pod::Simple::Debug (\$d,0);
 
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
+
 ok 1;
 
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
 
 my $x = 'Pod::Simple::XMLOutStream';
 
index daab8ef..db2a191 100644 (file)
@@ -7,9 +7,17 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 4 };
 
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
+
 my $d;
 #use Pod::Simple::Debug (\$d,0);
 
@@ -18,7 +26,6 @@ ok 1;
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
 
 my $x = 'Pod::Simple::XMLOutStream';
 
index 4e6ac41..2d0cce9 100644 (file)
@@ -6,9 +6,16 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 6 };
 
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 #my $d;
 #use Pod::Simple::Debug (3);
 
@@ -17,7 +24,6 @@ ok 1;
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
 
 my $x = 'Pod::Simple::XMLOutStream';
 
diff --git a/cpan/Pod-Simple/t/lib/helpers.pm b/cpan/Pod-Simple/t/lib/helpers.pm
new file mode 100644 (file)
index 0000000..2b77be8
--- /dev/null
@@ -0,0 +1,18 @@
+#!perl
+
+package helpers;
+
+use strict;
+use warnings;
+
+use Exporter;
+
+our @ISA = qw{Exporter};
+
+our @EXPORT_OK = qw(e f);
+our @EXPORT = qw{e};
+
+sub e { Pod::Simple::DumpAsXML->_duo(@_) };
+sub f { Pod::Simple::DumpAsXML->_duo(@_) };
+
+1;
\ No newline at end of file
index 50fbfcc..8de5c59 100644 (file)
@@ -9,6 +9,7 @@ BEGIN {
 ### Test the basic sanity of the link-section treelet class
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 8 };
 
index 822c239..5da0f37 100644 (file)
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use lib '../lib';
 use Test::More tests => 36;
 #use Test::More 'no_plan';
index df0e00e..33ba50e 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 136 };
 
index 6fbb624..51b3503 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 117 };
 
index 8576e99..2cbc3cd 100644 (file)
@@ -8,6 +8,7 @@ BEGIN {
 use lib '../lib';
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 5 };
 
index dd0ee2b..c8ddf64 100644 (file)
@@ -8,6 +8,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 26 };
 use Pod::Simple::TextContent;
index 0d2d8ec..4ef7ec7 100644 (file)
@@ -9,6 +9,7 @@ BEGIN {
 my $expected = join "", <DATA>;
 
 use strict;
+use warnings;
 use lib '../lib';
 use Test::More;
 use File::Spec;
index 7250320..b2ea68e 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Pod::Simple::Search;
 use Test;
 BEGIN { plan tests => 16 }
index 96ac7fd..fd05f46 100644 (file)
@@ -8,6 +8,7 @@ BEGIN {
 # Time-stamp: "2004-05-23 22:38:58 ADT"
 
 use strict;
+use warnings;
 
 #sub Pod::Simple::Search::DEBUG () {5};
 
index 5da1859..31596cf 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Pod::Simple::Search;
 use Test;
 BEGIN { plan tests => 11 }
index 1b17c3b..d9c0699 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Pod::Simple::Search;
 use Test;
 BEGIN { plan tests => 11 }
index 6fb498a..99d9acf 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Pod::Simple::Search;
 use Test;
 BEGIN { plan tests => 15 }
index 610becb..23ea9fc 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 
 #sub Pod::Simple::Search::DEBUG () {5};
 
index 5910291..03e1afb 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Pod::Simple::Search;
 use Test;
 BEGIN { plan tests => 5 }
index 7614e52..a1f29f5 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Pod::Simple::Search;
 use Test;
 BEGIN { plan tests => 10 }
index 05606a7..680d9cd 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Pod::Simple::Search;
 use Test;
 BEGIN { plan tests => 4 }
index c62befb..d1e604c 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Pod::Simple::Search;
 use Test;
 BEGIN { plan tests => 4 }
index 0dc9d75..5e9b26e 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
     }
 }
 use strict;
+use warnings;
 
 #sub Pod::Simple::Search::DEBUG () {5};
 
index 4ffbbb1..d351fb5 100644 (file)
@@ -5,7 +5,8 @@ BEGIN {
     }\r
 }\r
 \r
-use strict;\r
+use strict;
+use warnings;\r
 use Pod::Simple::Search;\r
 use Test;\r
 BEGIN { plan tests => 4 }\r
index e0f772d..db7d5f4 100644 (file)
@@ -1,6 +1,7 @@
 
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 33 };
 
index 25c41cc..beae99d 100644 (file)
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use lib '../lib';
 use Test::More tests => 103;
 #use Test::More 'no_plan';
index 1b10d1f..51b8027 100644 (file)
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 8 };
 
index 07dfad5..c2b31f4 100644 (file)
@@ -1,5 +1,6 @@
 # Testing verbatim formatted sections
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 62 };
 
@@ -11,8 +12,9 @@ use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e  ($$) { Pod::Simple::DumpAsXML->_duo(\&without_vf, @_) }
-sub ev ($$) { Pod::Simple::DumpAsXML->_duo(\&with_vf,    @_) }
+
+sub e  { Pod::Simple::DumpAsXML->_duo(\&without_vf, @_) }
+sub ev { Pod::Simple::DumpAsXML->_duo(\&with_vf,    @_) }
 
 sub with_vf    { $_[0]->  accept_codes('VerbatimFormatted') }
 sub without_vf { $_[0]->unaccept_codes('VerbatimFormatted') }
index 299356b..823be2b 100644 (file)
@@ -1,6 +1,9 @@
 # Testing verbatim sections
 use strict;
+use warnings;
+
 use Test;
+
 BEGIN { plan tests => 31 };
 
 #use Pod::Simple::Debug (6);
@@ -10,14 +13,17 @@ ok 1;
 use Pod::Simple::DumpAsXML;
 use Pod::Simple::XMLOutStream;
 print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
+
+BEGIN {
+  require FindBin;
+  unshift @INC, $FindBin::Bin . '/lib';
+  require helpers;
+  helpers->import;
+}
 
 &ok( e "", "" );
 &ok( e "\n", "", );
 
-
-
-
 &ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz" );
 &ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz\n" );
 
index 3787006..0a8acf6 100644 (file)
@@ -1,6 +1,7 @@
 
 
 use strict;
+use warnings;
 use Test;
 BEGIN { plan tests => 11 };
 
index 7ee0865..72d3930 100644 (file)
@@ -7,8 +7,9 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use lib '../lib';
-use Test::More tests => 62;
+use Test::More tests => 64;
 #use Test::More 'no_plan';
 
 use_ok('Pod::Simple::XHTML') or exit;
@@ -51,7 +52,15 @@ initialize($parser, $results);
 $parser->parse_string_document( "=head4 Zort & Zog!" );
 is($results, qq{<h4 id="Zort-Zog">Zort &amp; Zog!</h4>\n\n}, "head4 level output");
 
-sub x ($;&) {
+initialize($parser, $results);
+$parser->parse_string_document( "=head5 I think so Brain, but..." );
+is($results, qq{<h5 id="I-think-so-Brain-but">I think so Brain, but...</h5>\n\n}, "head5 level output");
+
+initialize($parser, $results);
+$parser->parse_string_document( "=head6 Narf!" );
+is($results, qq{<h6 id="Narf">Narf!</h6>\n\n}, "head6 level output");
+
+sub x {
   my $code = $_[1];
   Pod::Simple::XHTML->_out(
   sub { $code->($_[0]) if $code },
index 00d5589..ed82683 100644 (file)
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use lib '../lib';
 use Test::More tests => 6;
 
index 353a50f..1d7af1b 100644 (file)
@@ -7,8 +7,9 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 use lib '../lib';
-use Test::More tests => 60;
+use Test::More tests => 62;
 #use Test::More 'no_plan';
 
 use_ok('Pod::Simple::XHTML') or exit;
@@ -203,6 +204,48 @@ is $results, <<'EOF', 'Should have the four-level index';
 EOF
 
 initialize($parser, $results);
+ok $parser->parse_string_document( "=head1 Foo\n\n=head2 Bar\n\n=head3 Baz\n\n=head4 Howdy\n\n=head5 Deep\n\n=head6 Thought" ),
+    'Parse six levels';
+is $results, <<'EOF', 'Should have the six-level index';
+<ul id="index">
+  <li><a href="#Foo">Foo</a>
+    <ul>
+      <li><a href="#Bar">Bar</a>
+        <ul>
+          <li><a href="#Baz">Baz</a>
+            <ul>
+              <li><a href="#Howdy">Howdy</a>
+                <ul>
+                  <li><a href="#Deep">Deep</a>
+                    <ul>
+                      <li><a href="#Thought">Thought</a></li>
+                    </ul>
+                  </li>
+                </ul>
+              </li>
+            </ul>
+          </li>
+        </ul>
+      </li>
+    </ul>
+  </li>
+</ul>
+
+<h1 id="Foo">Foo</h1>
+
+<h2 id="Bar">Bar</h2>
+
+<h3 id="Baz">Baz</h3>
+
+<h4 id="Howdy">Howdy</h4>
+
+<h5 id="Deep">Deep</h5>
+
+<h6 id="Thought">Thought</h6>
+
+EOF
+
+initialize($parser, $results);
 ok $parser->parse_string_document( "=head1 Foo\n\n=head2 Bar\n\n=head2 Baz" ),
     'Parse 1/2';
 is $results, <<'EOF', 'Should have the 1/s index';