A first headline

This is POD.

This is verbatim
text.

Continued.

And I<tagged>.

And a 2nd chapter

• This is the explanation.

• Another one.

1. This is a numbered point.

Plain text again. A filename.

1. A verbatim block
   in a list point.

2. And its successor.

Links: http://use.perl.org, "A first headline".

Embedded PerlPoint:

And POD again.

${__pod2pp__empty__}This is \\\POD.

<<___EOVPPB__

This is verbatim
text.

Continued.

And I<tagged>.

___EOVPPB__

==And a 2nd chapter

* This is the explanation.

* Another one.

# This is a \X{mode=index_only}<numbered>\numbered point.

${__pod2pp__empty__}Plain text again. A \filename.

# ${__pod2pp__empty__}

<<___EOVPPB__

A verbatim block
in a list point.

___EOVPPB__

## ${__pod2pp__empty__}

<<___EOVPPB__

And its successor.

___EOVPPB__

${__pod2pp__empty__}Links: \L{url="http://use.perl.org"}<http://use.perl.org>, \REF{type=linked occasion=1 name="A first headline"}<"A first headline">.

${__pod2pp__empty__}Embedded PerlPoint:

A \perlpoint text.

${__pod2pp__empty__}And \POD again.

@| column 1 | column 2 cell 1 | cell 2 cell \3 | cell 4

EOPP

# declare what we expect for parsers >= 0.40 my $expected40=<<'EOPP';

.This is \\\POD.

<<___EOVPPB__

This is verbatim
text.

Continued.

And I<tagged>.

___EOVPPB__

==And a 2nd chapter

* This is the explanation.

* Another one.

# This is a \X{mode=index_only}<numbered>\numbered point.

.Plain text again. A \filename.

# .

<<___EOVPPB__

A verbatim block
in a list point.

___EOVPPB__

## .

<<___EOVPPB__

And its successor.

___EOVPPB__

.Links: \L{url="http://use.perl.org"}<http://use.perl.org>, \REF{type=linked occasion=1 name="A first headline"}<"A first headline">.

.Embedded PerlPoint:

A \perlpoint text.

.And \POD again.

@| column 1 | column 2 cell 1 | cell 2 cell \3 | cell 4

EOPP

# build translators my $translatorT=new Pod::PerlPoint; my $translator40=new Pod::PerlPoint;

# configure them my ($resultT, $result40); $translatorT->output_string(\$resultT); $translator40->output_string(\$result40); $translator40->configure(parser40=>1);

# traditionally transform POD text into another text and compare $translatorT->parse_string_document($pod); is($resultT, $expectedT);

# transform POD text into another text the new way, and compare $translator40->parse_string_document($pod); is($result40, $expected40);

cpanm Pod::PerlPoint

perl -MCPAN -e shell
install Pod::PerlPoint