Synch Pod-Simple-3.47 into blead; accommodate Pod-Html tests

From Pod-Simple's Changelog:

3.47 2025-05-15 Karl Williamson <[email protected]>
        - No git-related files in MANIFEST  James Keenan++
        - Rename method and field to avoid conflicts  Graham Knop++
3.46 2025-05-12 Karl Williamson <[email protected]>
        - XHTML: =over without =item should render as a blockquote Graham Knop++
        - Add support for underlined text U<> formatting Graham Knop++
        - Make 'temp' name checking more succinct Max Maischein++
        - github: fix and add tests  Lukas Mai++  rwp0++
        - Makefile.PL: add missing 'warnings' prereq  Lukas Mai++
        - Add select method compatible with Pod::Select  Graham Knop++
        - Modernize htmlbat.t, corpus.t  Lukas Mai++, Graham Knop++
        - Fix links, typos, acknowledgments  James Keenan++ rwp0++, Dan Book++
        - Add documentation on sublcassing  Graham Knop++
        - Fix version checking  Philippe Bruhat++
        - Fix version number  Thibault Duponchelle++
        - Use rel2abs instead of abs_path  Andrew Fresh++

Committer:

Update our expected pod2html output to reflect changes in Pod-Simple
being synched into Perl 5 core subsequent to v5.43.0 tag.

Author: khwilliamson

MANIFEST

@@ -1943,6 +1943,8 @@ cpan/Pod-Simple/t/fcodes.t				Pod::Simple test file
 cpan/Pod-Simple/t/fcodes_e.t				Pod::Simple test file
 cpan/Pod-Simple/t/fcodes_l.t				Pod::Simple test file
 cpan/Pod-Simple/t/fcodes_s.t				Pod::Simple test file
+cpan/Pod-Simple/t/filter.t				Pod-Simple
+cpan/Pod-Simple/t/filter-html.t				Pod-Simple
 cpan/Pod-Simple/t/for.t					Pod::Simple test file
 cpan/Pod-Simple/t/fornot.t				Pod::Simple test file
 cpan/Pod-Simple/t/github_issue_79.t			Test file related to Pod::Simple

Porting/Maintainers.pl

@@ -967,8 +967,8 @@ package Maintainers;
     },
 
     'Pod::Simple' => {
-        'DISTRIBUTION' => 'KHW/Pod-Simple-3.45.tar.gz',
-        'SYNCINFO'     => 'jkeenan on Wed Aug  2 19:32:39 2023',
+        'DISTRIBUTION' => 'KHW/Pod-Simple-3.47.tar.gz',
+        'SYNCINFO'     => 'jkeenan on Fri May 23 17:15:52 2025',
         'FILES'        => q[cpan/Pod-Simple],
         'EXCLUDED' => [
             qw{.ChangeLog.swp},

cpan/Pod-Simple/lib/Pod/Simple.pm

@@ -11,9 +11,9 @@ use Pod::Simple::TiedOutFH;
 #use utf8;
 
 our @ISA = ('Pod::Simple::BlackBox');
-our $VERSION = '3.45';
+our $VERSION = '3.47';
 
-our @Known_formatting_codes = qw(I B C L E F S X Z);
+our @Known_formatting_codes = qw(I B C L E F S U X Z);
 our %Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
 our @Known_directives       = qw(head1 head2 head3 head4 head5 head6 item over back);
 our %Known_directives       = map(($_=>'Plain'), @Known_directives);
@@ -33,17 +33,17 @@ BEGIN {
     die "MANY_LINES is too small (", MANY_LINES(), ")!\nAborting";
   }
   if(defined &UNICODE) { }
-  elsif($] >= 5.008)   { *UNICODE = sub() {1}  }
-  else                 { *UNICODE = sub() {''} }
+  elsif( do { no integer; "$]" >= 5.008 } ) { *UNICODE = sub() {1}  }
+  else                                      { *UNICODE = sub() {''} }
 }
 if(DEBUG > 2) {
   print STDERR "# We are ", ASCII ? '' : 'not ', "in ASCII-land\n";
   print STDERR "# We are under a Unicode-safe Perl.\n";
 }
 
 # The NO BREAK SPACE and SOFT HYHPEN are used in several submodules.
-if ($] ge 5.007_003) {  # On sufficiently modern Perls we can handle any
-                        # character set
+if ( do { no integer; "$]" >= 5.007_003 } ) {  # On sufficiently modern Perls we can handle any
+                          # character set
   $Pod::Simple::nbsp = chr utf8::unicode_to_native(0xA0);
   $Pod::Simple::shy  = chr utf8::unicode_to_native(0xAD);
 }
@@ -754,7 +754,7 @@ sub _remap_sequences {
         ref($map->{$_}) ? join(",", @{$map->{$_}}) : $map->{$_}
       ),
       sort keys %$map ),
-    ("B~C~E~F~I~L~S~X~Z" eq join '~', sort keys %$map)
+    ("B~C~E~F~I~L~S~U~X~Z" eq join '~', sort keys %$map)
      ? "  (all normal)\n" : "\n"
   ;
 

cpan/Pod-Simple/lib/Pod/Simple.pod

@@ -5,7 +5,19 @@ Pod::Simple - framework for parsing Pod
 
 =head1 SYNOPSIS
 
- TODO
+    # using an existing formatter
+    use Pod::Simple::XHTML;
+    my $parser = Pod::Simple::XHTML->new;
+    $parser->parse_file('path/to/file.pod');
+
+    # creating a new formatter
+    package Pod::Simple::SomeFormatter;
+    use parent qw(Pod::Simple);
+    sub _handle_element_start {
+        my ($parser, $element_name, $attr_hash_r) = @_;
+        ...
+    }
+    ...
 
 =head1 DESCRIPTION
 
@@ -256,7 +268,7 @@ effected.
 
 =item C<< $parser->accept_code( @codes ) >>X<accept_code>
 
-Alias for L<< accept_codes >>.
+Alias for L<< accept_codes|/$parser->accept_codes( @codes ) >>.
 
 =item C<< $parser->accept_codes( @codes ) >>X<accept_codes>
 
@@ -285,11 +297,11 @@ can be used to implement user-defined directives.
 
 =item C<< $parser->accept_target( @targets ) >>X<accept_target>
 
-Alias for L<< accept_targets >>.
+Alias for L<< accept_targets|/$parser->accept_targets( @targets ) >>.
 
 =item C<< $parser->accept_target_as_text( @targets ) >>X<accept_target_as_text>
 
-Alias for L<< accept_targets_as_text >>.
+Alias for L<< accept_targets_as_text|/$parser->accept_targets_as_text( @targets ) >>.
 
 =item C<< $parser->accept_targets( @targets ) >>X<accept_targets>
 
@@ -339,23 +351,23 @@ Log an error that can't be ignored.
 
 =item C<< $parser->unaccept_code( @codes ) >>X<unaccept_code>
 
-Alias for L<< unaccept_codes >>.
+Alias for L<< unaccept_codes|/$parser->unaccept_codes( @codes ) >>.
 
 =item C<< $parser->unaccept_codes( @codes ) >>X<unaccept_codes>
 
 Removes C<< @codes >> as valid codes for the parse.
 
 =item C<< $parser->unaccept_directive( @directives ) >>X<unaccept_directive>
 
-Alias for L<< unaccept_directives >>.
+Alias for L<< unaccept_directives|/$parser->unaccept_directives( @directives ) >>.
 
 =item C<< $parser->unaccept_directives( @directives ) >>X<unaccept_directives>
 
 Removes C<< @directives >> as valid directives for the parse.
 
 =item C<< $parser->unaccept_target( @targets ) >>X<unaccept_target>
 
-Alias for L<< unaccept_targets >>.
+Alias for L<< unaccept_targets|/$parser->unaccept_targets( @targets ) >>.
 
 =item C<< $parser->unaccept_targets( @targets ) >>X<unaccept_targets>