Skip to content

Commit 9d0f651

Browse files
khwilliamsonjkeenan
authored andcommitted
Synch Pod-Simple-3.47 into blead
From Changelog: 3.47 2025-05-15 Karl Williamson <khw@cpan.org> - No git-related files in MANIFEST James Keenan++ - Rename method and field to avoid conflicts Graham Knop++ 3.46 2025-05-12 Karl Williamson <khw@cpan.org> - 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++
1 parent e46a7d7 commit 9d0f651

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

58 files changed

+539
-274
lines changed

MANIFEST

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1943,6 +1943,8 @@ cpan/Pod-Simple/t/fcodes.t Pod::Simple test file
19431943
cpan/Pod-Simple/t/fcodes_e.t Pod::Simple test file
19441944
cpan/Pod-Simple/t/fcodes_l.t Pod::Simple test file
19451945
cpan/Pod-Simple/t/fcodes_s.t Pod::Simple test file
1946+
cpan/Pod-Simple/t/filter.t Pod-Simple
1947+
cpan/Pod-Simple/t/filter-html.t Pod-Simple
19461948
cpan/Pod-Simple/t/for.t Pod::Simple test file
19471949
cpan/Pod-Simple/t/fornot.t Pod::Simple test file
19481950
cpan/Pod-Simple/t/github_issue_79.t Test file related to Pod::Simple

Porting/Maintainers.pl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -965,8 +965,8 @@ package Maintainers;
965965
},
966966

967967
'Pod::Simple' => {
968-
'DISTRIBUTION' => 'KHW/Pod-Simple-3.45.tar.gz',
969-
'SYNCINFO' => 'jkeenan on Wed Aug 2 19:32:39 2023',
968+
'DISTRIBUTION' => 'KHW/Pod-Simple-3.47.tar.gz',
969+
'SYNCINFO' => 'jkeenan on Fri May 23 17:15:52 2025',
970970
'FILES' => q[cpan/Pod-Simple],
971971
'EXCLUDED' => [
972972
qw{.ChangeLog.swp},

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

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -11,9 +11,9 @@ use Pod::Simple::TiedOutFH;
1111
#use utf8;
1212

1313
our @ISA = ('Pod::Simple::BlackBox');
14-
our $VERSION = '3.45';
14+
our $VERSION = '3.47';
1515

16-
our @Known_formatting_codes = qw(I B C L E F S X Z);
16+
our @Known_formatting_codes = qw(I B C L E F S U X Z);
1717
our %Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
1818
our @Known_directives = qw(head1 head2 head3 head4 head5 head6 item over back);
1919
our %Known_directives = map(($_=>'Plain'), @Known_directives);
@@ -33,17 +33,17 @@ BEGIN {
3333
die "MANY_LINES is too small (", MANY_LINES(), ")!\nAborting";
3434
}
3535
if(defined &UNICODE) { }
36-
elsif($] >= 5.008) { *UNICODE = sub() {1} }
37-
else { *UNICODE = sub() {''} }
36+
elsif( do { no integer; "$]" >= 5.008 } ) { *UNICODE = sub() {1} }
37+
else { *UNICODE = sub() {''} }
3838
}
3939
if(DEBUG > 2) {
4040
print STDERR "# We are ", ASCII ? '' : 'not ', "in ASCII-land\n";
4141
print STDERR "# We are under a Unicode-safe Perl.\n";
4242
}
4343

4444
# The NO BREAK SPACE and SOFT HYHPEN are used in several submodules.
45-
if ($] ge 5.007_003) { # On sufficiently modern Perls we can handle any
46-
# character set
45+
if ( do { no integer; "$]" >= 5.007_003 } ) { # On sufficiently modern Perls we can handle any
46+
# character set
4747
$Pod::Simple::nbsp = chr utf8::unicode_to_native(0xA0);
4848
$Pod::Simple::shy = chr utf8::unicode_to_native(0xAD);
4949
}
@@ -754,7 +754,7 @@ sub _remap_sequences {
754754
ref($map->{$_}) ? join(",", @{$map->{$_}}) : $map->{$_}
755755
),
756756
sort keys %$map ),
757-
("B~C~E~F~I~L~S~X~Z" eq join '~', sort keys %$map)
757+
("B~C~E~F~I~L~S~U~X~Z" eq join '~', sort keys %$map)
758758
? " (all normal)\n" : "\n"
759759
;
760760

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

Lines changed: 19 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,19 @@ Pod::Simple - framework for parsing Pod
55

66
=head1 SYNOPSIS
77

8-
TODO
8+
# using an existing formatter
9+
use Pod::Simple::XHTML;
10+
my $parser = Pod::Simple::XHTML->new;
11+
$parser->parse_file('path/to/file.pod');
12+
13+
# creating a new formatter
14+
package Pod::Simple::SomeFormatter;
15+
use parent qw(Pod::Simple);
16+
sub _handle_element_start {
17+
my ($parser, $element_name, $attr_hash_r) = @_;
18+
...
19+
}
20+
...
921

1022
=head1 DESCRIPTION
1123

@@ -256,7 +268,7 @@ effected.
256268

257269
=item C<< $parser->accept_code( @codes ) >>X<accept_code>
258270

259-
Alias for L<< accept_codes >>.
271+
Alias for L<< accept_codes|/$parser->accept_codes( @codes ) >>.
260272

261273
=item C<< $parser->accept_codes( @codes ) >>X<accept_codes>
262274

@@ -285,11 +297,11 @@ can be used to implement user-defined directives.
285297

286298
=item C<< $parser->accept_target( @targets ) >>X<accept_target>
287299

288-
Alias for L<< accept_targets >>.
300+
Alias for L<< accept_targets|/$parser->accept_targets( @targets ) >>.
289301

290302
=item C<< $parser->accept_target_as_text( @targets ) >>X<accept_target_as_text>
291303

292-
Alias for L<< accept_targets_as_text >>.
304+
Alias for L<< accept_targets_as_text|/$parser->accept_targets_as_text( @targets ) >>.
293305

294306
=item C<< $parser->accept_targets( @targets ) >>X<accept_targets>
295307

@@ -339,23 +351,23 @@ Log an error that can't be ignored.
339351

340352
=item C<< $parser->unaccept_code( @codes ) >>X<unaccept_code>
341353

342-
Alias for L<< unaccept_codes >>.
354+
Alias for L<< unaccept_codes|/$parser->unaccept_codes( @codes ) >>.
343355

344356
=item C<< $parser->unaccept_codes( @codes ) >>X<unaccept_codes>
345357

346358
Removes C<< @codes >> as valid codes for the parse.
347359

348360
=item C<< $parser->unaccept_directive( @directives ) >>X<unaccept_directive>
349361

350-
Alias for L<< unaccept_directives >>.
362+
Alias for L<< unaccept_directives|/$parser->unaccept_directives( @directives ) >>.
351363

352364
=item C<< $parser->unaccept_directives( @directives ) >>X<unaccept_directives>
353365

354366
Removes C<< @directives >> as valid directives for the parse.
355367

356368
=item C<< $parser->unaccept_target( @targets ) >>X<unaccept_target>
357369

358-
Alias for L<< unaccept_targets >>.
370+
Alias for L<< unaccept_targets|/$parser->unaccept_targets( @targets ) >>.
359371

360372
=item C<< $parser->unaccept_targets( @targets ) >>X<unaccept_targets>
361373

0 commit comments

Comments
 (0)