cpan/Pod-Simple/t/corpus/8859_7.xml Pod::Simple test file
cpan/Pod-Simple/t/corpus/cp1256.txt Pod::Simple test file
cpan/Pod-Simple/t/corpus/cp1256.xml Pod::Simple test file
+cpan/Pod-Simple/t/corpus/encwarn01.txt
+cpan/Pod-Simple/t/corpus/encwarn01.xml
+cpan/Pod-Simple/t/corpus/encwarn02.txt
+cpan/Pod-Simple/t/corpus/encwarn02.xml
cpan/Pod-Simple/t/corpus/fet_cont.txt Pod::Simple test file
cpan/Pod-Simple/t/corpus/fet_cont.xml Pod::Simple test file
cpan/Pod-Simple/t/corpus/fet_dup.txt Pod::Simple test file
cpan/Pod-Simple/t/xhtml05.t Pod::Simple test file
cpan/Pod-Simple/t/xhtml10.t Pod::Simple test file
cpan/Pod-Simple/t/xhtml15.t Pod::Simple test file
+cpan/Pod-Simple/t/xhtml20.t
cpan/Pod-Simple/t/x_nixer.t Pod::Simple test file
cpan/Socket/Makefile.PL Socket extension makefile writer
cpan/Socket/Socket.pm Socket extension Perl module
'Pod::Simple' => {
'MAINTAINER' => 'arandal',
- 'DISTRIBUTION' => 'DWHEELER/Pod-Simple-3.20.tar.gz',
+ 'DISTRIBUTION' => 'DWHEELER/Pod-Simple-3.22.tar.gz',
'FILES' => q[cpan/Pod-Simple],
'UPSTREAM' => 'cpan',
},
# ChangeLog for Pod::Simple dist
#---------------------------------------------------------------------------
+2012-05-27 David E. Wheeler <david@justatheory.org>
+ * Release 3.22
+
+ Fix but where Pod::Simple would whine about non-ASCII bytes in
+ code or comments. Now only does so for Pod (in the absence of an
+ "=encoding" tag. Broken in 3.21. Grant McLean.
+
+2012-05-23 David E. Wheeler <david@justatheory.org>
+ * Release 3.21
+
+ NOTE: COMPATABILITY CHANGE: The 'codes_in_verbatim' option in
+ Pod::Simple::XHTML is no longer enabled by default. This brings it
+ agreement with the other formatting classes, and eliminates
+ unexpected behavior in XHTML-formatted Pod. Users who depended on
+ this functionality can still get it by enabling
+ 'codes_in_verbatim' in their code.
+
+ Fixed some typos in the documentation. Thanks to Jonathan Yu via
+ the Debian packagers via Florian Ragwitz (RT #75532).
+
+ Now emit a warning the first time a non-ASCII byte is encountered
+ when no "=encoding" has been seen. Grant McLean.
+
+ When a non-ASCII byte is encounted before an "=encoding" line has
+ been seen, a heuristic (as described in perlpodspec) is applied to
+ select UTF-8 encoding if the non-ASCII bytes form a valid UTF-8
+ byte sequence, or Latin-1 otherwise. Grant McLean.
+
+ Added 'handle_code' method to Pod::Simple::XHTML. This allows
+ subclasses to override the handling of verbatim blocks, and makes
+ for a more cohesive interface, to boot. Gisle Aas.
+
+ Subsequent text segments are now joined together and passed as a
+ single unit to text handling code. This makes it easier for custom
+ handlers to process complete blocks of text in a single call to
+ 'handle_text', rather than in dribs and drabs. Gisle Aas.
+
+ Replaced naive text wrapping code in Pod::Simple::DumpAsXML with
+ Text::Wrap, which was already used for similar purposes elsewhere
+ in Pod::Simple. Gisle Aas.
+
2012-03-01 David E. Wheeler <david@justatheory.org>
* Release 3.20
-=head1 Pod::Simple version 3.20
+=head1 Pod::Simple version 3.22
Pod::Simple is a Perl library for parsing text in the Pod ("plain old
documentation") markup language that is typically used for writing
);
@ISA = ('Pod::Simple::BlackBox');
-$VERSION = '3.20';
+$VERSION = '3.22';
@Known_formatting_codes = qw(I B C L E F S X Z);
%Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
use strict;
use Carp ();
use vars qw($VERSION );
-$VERSION = '3.20';
+$VERSION = '3.22';
#use constant DEBUG => 7;
BEGIN {
require Pod::Simple;
}
}
+ if(!$self->{'encoding'}) {
+ $self->_try_encoding_guess($line)
+ }
DEBUG > 5 and print "# Parsing line: [$line]\n";
return;
}
+sub _try_encoding_guess {
+ my ($self,$line) = @_;
+
+ if(!$self->{'in_pod'} and $line !~ /^=/m) {
+ return; # don't whine about non-ASCII bytes in code/comments
+ }
+
+ return unless $line =~ /[^\x00-\x7f]/; # Look for non-ASCII byte
+
+ my $encoding = $line =~ /[\xC0-\xFD][\x80-\xBF]/ ? 'UTF-8' : 'ISO8859-1';
+ $self->_handle_encoding_line( "=encoding $encoding" );
+ $self->{'_transcoder'} && $self->{'_transcoder'}->($line);
+
+ my ($word) = $line =~ /(\S*[^\x00-\x7f]\S*)/;
+
+ $self->whine(
+ $self->{'line_count'},
+ "Non-ASCII character seen before =encoding in '$word'. Assuming $encoding"
+ );
+
+}
+
#~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`
{
my $scratch;
$self->_handle_element_start(($scratch=$name), shift @_);
- foreach my $x (@_) {
- if(ref($x)) {
+ while (@_) {
+ my $x = shift;
+ if (ref($x)) {
&_traverse_treelet_bit($self, @$x);
} else {
+ $x .= shift while @_ && !ref($_[0]);
$self->_handle_text($x);
}
}
use Pod::Simple::Methody ();
use Pod::Simple ();
use vars qw( @ISA $VERSION );
-$VERSION = '3.20';
+$VERSION = '3.22';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
? \&Pod::Simple::DEBUG
package Pod::Simple::Debug;
use strict;
use vars qw($VERSION );
-$VERSION = '3.20';
+$VERSION = '3.22';
sub import {
my($value,$variable);
require 5;
package Pod::Simple::DumpAsText;
-$VERSION = '3.20';
+$VERSION = '3.22';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}
require 5;
package Pod::Simple::DumpAsXML;
-$VERSION = '3.20';
+$VERSION = '3.22';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}
use strict;
use Carp ();
+use Text::Wrap qw(wrap);
BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }
my $indent = ' ' x $_[0]{'indent'};
my $text = $_[1];
_xml_escape($text);
- $text =~ # A not-totally-brilliant wrapping algorithm:
- s/(
- [^\n]{55} # Snare some characters from a line
- [^\n\ ]{0,50} # and finish any current word
- )
- \x20{1,10}(?!\n) # capture some spaces not at line-end
- /$1\n$indent/gx # => line-break here
- ;
-
+ local $Text::Wrap::huge = 'overflow';
+ $text = wrap('', $indent, $text);
print {$_[0]{'output_fh'}} $indent, $text, "\n";
}
return;
$Doctype_decl $Content_decl
);
@ISA = ('Pod::Simple::PullParser');
-$VERSION = '3.20';
+$VERSION = '3.22';
BEGIN {
if(defined &DEBUG) { } # no-op
use vars qw( $VERSION $HTML_RENDER_CLASS $HTML_EXTENSION
$CSS $JAVASCRIPT $SLEEPY $SEARCH_CLASS @ISA
);
-$VERSION = '3.20';
+$VERSION = '3.22';
@ISA = (); # Yup, we're NOT a subclass of Pod::Simple::HTML!
# TODO: nocontents stylesheets. Strike some of the color variations?
package Pod::Simple::LinkSection;
# Based somewhat dimly on Array::Autojoin
use vars qw($VERSION );
-$VERSION = '3.20';
+$VERSION = '3.22';
use strict;
use Pod::Simple::BlackBox;
use vars qw($VERSION );
-$VERSION = '3.20';
+$VERSION = '3.22';
use overload( # So it'll stringify nice
'""' => \&Pod::Simple::BlackBox::stringify_lol,
use strict;
use Pod::Simple ();
use vars qw(@ISA $VERSION);
-$VERSION = '3.20';
+$VERSION = '3.22';
@ISA = ('Pod::Simple');
# Yes, we could use named variables, but I want this to be impose
require 5;
package Pod::Simple::Progress;
-$VERSION = '3.20';
+$VERSION = '3.22';
use strict;
# Objects of this class are used for noting progress of an
require 5;
package Pod::Simple::PullParser;
-$VERSION = '3.20';
+$VERSION = '3.22';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}
use strict;
use vars qw(@ISA $VERSION);
@ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.20';
+$VERSION = '3.22';
sub new { # Class->new(tagname);
my $class = shift;
use strict;
use vars qw(@ISA $VERSION);
@ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.20';
+$VERSION = '3.22';
sub new { # Class->new(tagname, optional_attrhash);
my $class = shift;
use strict;
use vars qw(@ISA $VERSION);
@ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.20';
+$VERSION = '3.22';
sub new { # Class->new(text);
my $class = shift;
package Pod::Simple::PullParserToken;
# Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
@ISA = ();
-$VERSION = '3.20';
+$VERSION = '3.22';
use strict;
sub new { # Class->new('type', stuff...); ## Overridden in derived classes anyway
use strict;
use vars qw($VERSION @ISA %Escape $WRAP %Tagmap);
-$VERSION = '3.20';
+$VERSION = '3.22';
use Pod::Simple::PullParser ();
BEGIN {@ISA = ('Pod::Simple::PullParser')}
use strict;
use vars qw($VERSION $MAX_VERSION_WITHIN $SLEEPY);
-$VERSION = '3.20'; ## Current version of this package
+$VERSION = '3.22'; ## Current version of this package
BEGIN { *DEBUG = sub () {0} unless defined &DEBUG; } # set DEBUG level
use Carp ();
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
-$VERSION = '3.20';
+$VERSION = '3.22';
BEGIN {
@ISA = ('Pod::Simple');
*DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
"Member Data"
</L>
-The I<raw> attribute depends on what the raw content of the L<> is, so that is
-why the event structure is the same "for the most part".
+The I<raw> attribute depends on what the raw content of the C<LE<lt>E<gt>> is,
+so that is why the event structure is the same "for the most part".
If you have not guessed it yet, the I<raw> attribute contains the raw,
-original, unescaped content of the L<> formatting code. In addition to the
-examples above, take notice of the following event structure produced by
-the following L<> formatting code.
+original, unescaped content of the C<LE<lt>E<gt>> formatting code. In addition
+to the examples above, take notice of the following event structure produced
+by the following C<LE<lt>E<gt>> formatting code.
L<click B<here>|page/About the C<-M> switch>
=end html
...the parser will ignore these sections unless your subclass has
-specified that it wants to see sections targetted to "html" (or whatever
+specified that it wants to see sections targeted to "html" (or whatever
the formatter name is).
-If you want to process all sections, even if they're not targetted for you,
+If you want to process all sections, even if they're not targeted for you,
call this before you start parsing:
$parser->accept_targets('*');
use Pod::Simple::Methody ();
use Pod::Simple ();
use vars qw( @ISA $VERSION $FREAKYMODE);
-$VERSION = '3.20';
+$VERSION = '3.22';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
? \&Pod::Simple::DEBUG
use Carp ();
use Pod::Simple ();
use vars qw( @ISA $VERSION );
-$VERSION = '3.20';
+$VERSION = '3.22';
@ISA = ('Pod::Simple');
sub new {
use Symbol ('gensym');
use Carp ();
use vars qw($VERSION );
-$VERSION = '3.20';
+$VERSION = '3.22';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
require 5;
package Pod::Simple::Transcode;
use vars qw($VERSION );
-$VERSION = '3.20';
+$VERSION = '3.22';
BEGIN {
if(defined &DEBUG) {;} # Okay
package Pod::Simple::TranscodeDumb;
use strict;
use vars qw($VERSION %Supported);
-$VERSION = '3.20';
+$VERSION = '3.22';
# This module basically pretends it knows how to transcode, except
# only for null-transcodings! We use this when Encode isn't
# available.
use Pod::Simple;
require Encode;
use vars qw($VERSION );
-$VERSION = '3.20';
+$VERSION = '3.22';
sub is_dumb {0}
sub is_smart {1}
package Pod::Simple::XHTML;
use strict;
use vars qw( $VERSION @ISA $HAS_HTML_ENTITIES );
-$VERSION = '3.20';
+$VERSION = '3.22';
use Pod::Simple::Methody ();
@ISA = ('Pod::Simple::Methody');
A string containing all characters that should be encoded as HTML entities,
specified using the regular expression character class syntax (what you find
within brackets in regular expressions). This value will be passed as the
-second argument to the C<encode_entities> fuction of L<HTML::Entities>. IF
+second argument to the C<encode_entities> function of L<HTML::Entities>. If
L<HTML::Entities> is not installed, then any characters other than C<&<>"'>
will be encoded numerically.
$new->man_url_prefix('http://man.he.net/man');
$new->html_charset('ISO-8859-1');
$new->nix_X_codes(1);
- $new->codes_in_verbatim(1);
$new->{'scratch'} = '';
$new->{'to_index'} = [];
$new->{'output'} = [];
my ($self, $text) = @_;
if ($self->{'in_foo'}) {
$self->{'scratch'} .= build_foo_html($text);
- } else {
- $self->{'scratch'} .= $text;
+ return;
}
+ $self->SUPER::handle_text($text);
}
+=head2 handle_code
+
+This method handles the body of text that is marked up to be code.
+You might for instance override this to plug in a syntax highlighter.
+The base implementation just escapes the text and wraps it in C<<< <code>...</code> >>>.
+
=head2 accept_targets_as_html
This method behaves like C<accept_targets_as_text>, but also marks the region
}
sub handle_text {
+ if ($_[0]{'in_code'}) {
+ return $_[0]->handle_code( $_[1] );
+ }
# escape special characters in HTML (<, >, &, etc)
$_[0]{'scratch'} .= $_[0]->__in_literal_xhtml_region
? $_[1]
: $_[0]->encode_entities( $_[1] );
}
+sub handle_code {
+ $_[0]{'scratch'} .= '<code>' . $_[0]->encode_entities( $_[1] ) . '</code>';
+}
+
sub start_Para { $_[0]{'scratch'} = '<p>' }
-sub start_Verbatim { $_[0]{'scratch'} = '<pre><code>' }
+sub start_Verbatim { $_[0]{'scratch'} = '<pre>'; $_[0]{'in_code'} = 1; }
sub start_head1 { $_[0]{'in_head'} = 1 }
sub start_head2 { $_[0]{'in_head'} = 2 }
sub end_Para { $_[0]{'scratch'} .= '</p>'; $_[0]->emit }
sub end_Verbatim {
- $_[0]{'scratch'} .= '</code></pre>';
+ $_[0]{'scratch'} .= '</pre>';
+ delete $_[0]{'in_code'};
$_[0]->emit;
}
sub start_B { $_[0]{'scratch'} .= '<b>' }
sub end_B { $_[0]{'scratch'} .= '</b>' }
-sub start_C { $_[0]{'scratch'} .= '<code>' }
-sub end_C { $_[0]{'scratch'} .= '</code>' }
+sub start_C { $_[0]{'in_code'} = 1; }
+sub end_C { delete $_[0]{'in_code'}; }
sub start_F { $_[0]{'scratch'} .= '<i>' }
sub end_F { $_[0]{'scratch'} .= '</i>' }
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
-$VERSION = '3.20';
+$VERSION = '3.22';
BEGIN {
@ISA = ('Pod::Simple');
*DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
skip $skippy, 0;
} else {
print "# $outfilename and $xml don't match!\n";
+ print STDERR `diff -u $xml $outfilename`;
ok 0;
}
DESCRIPTION
</head1>
<Para start_line="11">
- This is a test Pod document in ISO-2202-JP. Its content
- is some Japanese haiku by famous poets.
+ This is a test Pod document in ISO-2202-JP. Its content is some Japanese
+ haiku by famous poets.
</Para>
<head2 start_line="15">
- MATSUO BASHO (松尾芭蕉 1644 - 1694)
- :
+ MATSUO BASHO (松尾芭蕉 1644 - 1694) :
</head2>
<Para start_line="17">
古池や蛙とび込む水の音
As verbatim:
</Para>
<VerbatimFormatted start_line="23" xml:space="preserve">
- 古池や蛙とび込む水の音
+
+ 古池や蛙とび込む水の音
</VerbatimFormatted>
<head2 start_line="27">
YOSA BUSON (与謝蕪村1716 - 1783)
As verbatim:
</Para>
<VerbatimFormatted start_line="35" xml:space="preserve">
- 方八里雨雲よせぬ牡丹かな
+
+ 方八里雨雲よせぬ牡丹かな
</VerbatimFormatted>
<head2 start_line="37">
MASAOKA SHIKI (正岡子規 1867 - 1902)
As verbatim:
</Para>
<VerbatimFormatted start_line="45" xml:space="preserve">
- いちはつの一輪白し春の暮
+
+ いちはつの一輪白し春の暮
</VerbatimFormatted>
<Para start_line="47">
余命いくばくかある夜短し
(yomei / ikubakuka aru / yo mijikashi)
</Para>
<VerbatimFormatted start_line="51" xml:space="preserve">
- 余命いくばくかある夜短し
+
+ 余命いくばくかある夜短し
</VerbatimFormatted>
<head1 start_line="53">
AS A LIST
</head1>
<over-text indent="4" start_line="55">
<item-text start_line="57">
- MATSUO BASHO (松尾芭蕉 1644 - 1694)
- :
+ MATSUO BASHO (松尾芭蕉 1644 - 1694) :
</item-text>
<Para start_line="59">
古池や蛙とび込む水の音
As verbatim:
</Para>
<VerbatimFormatted start_line="65" xml:space="preserve">
- 古池や蛙とび込む水の音
+
+ 古池や蛙とび込む水の音
</VerbatimFormatted>
<item-text start_line="69">
YOSA BUSON (与謝蕪村1716 - 1783)
As verbatim:
</Para>
<VerbatimFormatted start_line="77" xml:space="preserve">
- 方八里雨雲よせぬ牡丹かな
+
+ 方八里雨雲よせぬ牡丹かな
</VerbatimFormatted>
<item-text start_line="79">
MASAOKA SHIKI (正岡子規 1867 - 1902)
As verbatim:
</Para>
<VerbatimFormatted start_line="87" xml:space="preserve">
- いちはつの一輪白し春の暮
+
+ いちはつの一輪白し春の暮
</VerbatimFormatted>
<Para start_line="89">
余命いくばくかある夜短し
(yomei / ikubakuka aru / yo mijikashi)
</Para>
<VerbatimFormatted start_line="93" xml:space="preserve">
- 余命いくばくかある夜短し
+
+ 余命いくばくかある夜短し
</VerbatimFormatted>
</over-text>
<Para start_line="97">
DESCRIPTION
</head1>
<Para start_line="11">
- This is a test Pod document in ISO-2202-JP. Its content
- is some Japanese haiku by famous poets.
+ This is a test Pod document in ISO-2202-JP. Its content is some Japanese
+ haiku by famous poets.
</Para>
<head2 start_line="15">
- MATSUO BASHO (松尾芭蕉 1644 - 1694)
- :
+ MATSUO BASHO (松尾芭蕉 1644 - 1694) :
</head2>
<Para start_line="17">
古池や蛙とび込む水の音
As verbatim:
</Para>
<VerbatimFormatted start_line="23" xml:space="preserve">
- 古池や蛙とび込む水の音
+
+ 古池や蛙とび込む水の音
</VerbatimFormatted>
<head2 start_line="27">
YOSA BUSON (与謝蕪村1716 - 1783)
As verbatim:
</Para>
<VerbatimFormatted start_line="35" xml:space="preserve">
- 方八里雨雲よせぬ牡丹かな
+
+ 方八里雨雲よせぬ牡丹かな
</VerbatimFormatted>
<head2 start_line="37">
MASAOKA SHIKI (正岡子規 1867 - 1902)
As verbatim:
</Para>
<VerbatimFormatted start_line="45" xml:space="preserve">
- いちはつの一輪白し春の暮
+
+ いちはつの一輪白し春の暮
</VerbatimFormatted>
<Para start_line="47">
余命いくばくかある夜短し
(yomei / ikubakuka aru / yo mijikashi)
</Para>
<VerbatimFormatted start_line="51" xml:space="preserve">
- 余命いくばくかある夜短し
+
+ 余命いくばくかある夜短し
</VerbatimFormatted>
<head1 start_line="53">
AS A LIST
</head1>
<over-text indent="4" start_line="55">
<item-text start_line="57">
- MATSUO BASHO (松尾芭蕉 1644 - 1694)
- :
+ MATSUO BASHO (松尾芭蕉 1644 - 1694) :
</item-text>
<Para start_line="59">
古池や蛙とび込む水の音
As verbatim:
</Para>
<VerbatimFormatted start_line="65" xml:space="preserve">
- 古池や蛙とび込む水の音
+
+ 古池や蛙とび込む水の音
</VerbatimFormatted>
<item-text start_line="69">
YOSA BUSON (与謝蕪村1716 - 1783)
As verbatim:
</Para>
<VerbatimFormatted start_line="77" xml:space="preserve">
- 方八里雨雲よせぬ牡丹かな
+
+ 方八里雨雲よせぬ牡丹かな
</VerbatimFormatted>
<item-text start_line="79">
MASAOKA SHIKI (正岡子規 1867 - 1902)
As verbatim:
</Para>
<VerbatimFormatted start_line="87" xml:space="preserve">
- いちはつの一輪白し春の暮
+
+ いちはつの一輪白し春の暮
</VerbatimFormatted>
<Para start_line="89">
余命いくばくかある夜短し
(yomei / ikubakuka aru / yo mijikashi)
</Para>
<VerbatimFormatted start_line="93" xml:space="preserve">
- 余命いくばくかある夜短し
+
+ 余命いくばくかある夜短し
</VerbatimFormatted>
</over-text>
<Para start_line="97">
DESCRIPTION
</head1>
<Para start_line="10">
- This is a test Pod document in ISO-2202-JP. Its content
- is some Japanese haiku by famous poets.
+ This is a test Pod document in ISO-2202-JP. Its content is some Japanese
+ haiku by famous poets.
</Para>
<head2 start_line="14">
- MATSUO BASHO (松尾芭蕉 1644 - 1694)
- :
+ MATSUO BASHO (松尾芭蕉 1644 - 1694) :
</head2>
<Para start_line="16">
古池や蛙とび込む水の音
As verbatim:
</Para>
<VerbatimFormatted start_line="22" xml:space="preserve">
- 古池や蛙とび込む水の音
+
+ 古池や蛙とび込む水の音
</VerbatimFormatted>
<head2 start_line="26">
YOSA BUSON (与謝蕪村1716 - 1783)
As verbatim:
</Para>
<VerbatimFormatted start_line="34" xml:space="preserve">
- 方八里雨雲よせぬ牡丹かな
+
+ 方八里雨雲よせぬ牡丹かな
</VerbatimFormatted>
<head2 start_line="36">
MASAOKA SHIKI (正岡子規 1867 - 1902)
As verbatim:
</Para>
<VerbatimFormatted start_line="44" xml:space="preserve">
- いちはつの一輪白し春の暮
+
+ いちはつの一輪白し春の暮
</VerbatimFormatted>
<Para start_line="46">
余命いくばくかある夜短し
(yomei / ikubakuka aru / yo mijikashi)
</Para>
<VerbatimFormatted start_line="50" xml:space="preserve">
- 余命いくばくかある夜短し
+
+ 余命いくばくかある夜短し
</VerbatimFormatted>
<head1 start_line="52">
AS A LIST
</head1>
<over-text indent="4" start_line="54">
<item-text start_line="56">
- MATSUO BASHO (松尾芭蕉 1644 - 1694)
- :
+ MATSUO BASHO (松尾芭蕉 1644 - 1694) :
</item-text>
<Para start_line="58">
古池や蛙とび込む水の音
As verbatim:
</Para>
<VerbatimFormatted start_line="64" xml:space="preserve">
- 古池や蛙とび込む水の音
+
+ 古池や蛙とび込む水の音
</VerbatimFormatted>
<item-text start_line="68">
YOSA BUSON (与謝蕪村1716 - 1783)
As verbatim:
</Para>
<VerbatimFormatted start_line="76" xml:space="preserve">
- 方八里雨雲よせぬ牡丹かな
+
+ 方八里雨雲よせぬ牡丹かな
</VerbatimFormatted>
<item-text start_line="78">
MASAOKA SHIKI (正岡子規 1867 - 1902)
As verbatim:
</Para>
<VerbatimFormatted start_line="86" xml:space="preserve">
- いちはつの一輪白し春の暮
+
+ いちはつの一輪白し春の暮
</VerbatimFormatted>
<Para start_line="88">
余命いくばくかある夜短し
(yomei / ikubakuka aru / yo mijikashi)
</Para>
<VerbatimFormatted start_line="92" xml:space="preserve">
- 余命いくばくかある夜短し
+
+ 余命いくばくかある夜短し
</VerbatimFormatted>
</over-text>
<Para start_line="96">
</head1>
<Para start_line="10">
Αρχαίο Πνεύμ'
- αθάνατον, αγνέ
- πατέρα του
- ωραίου, του
- μεγάλου και
- τ' αληθινού,
+ αθάνατον,
+ αγνέ πατέρα
+ του ωραίου,
+ του μεγάλου
+ και τ'
+ αληθινού,
</Para>
<Para start_line="13">
- κατέβα, φανερώσου
- κι άστραψ' εδώ
+ κατέβα,
+ φανερώσου κι
+ άστραψ' εδώ
πέρα στη δόξα
της δικής σου
- γης και τ' ουρανού.
+ γης και τ'
+ ουρανού.
</Para>
<Para start_line="16">
Στο δρόμο και
στο πάλεμα
- και στο λιθάρι,
- στων ευγενών
+ και στο
+ λιθάρι, στων
+ ευγενών
Αγώνων λάμψε
την ορμή,
</Para>
<Para start_line="19">
- και με τ' αμάραντο
- στεφάνωσε κλωνάρι
- και σιδερένιο
+ και με τ'
+ αμάραντο
+ στεφάνωσε
+ κλωνάρι και
+ σιδερένιο
πλάσε κι άξιο
το κορμί.
</Para>
μέγας ναός,
</Para>
<Para start_line="25">
- και τρέχει
- στο ναό εδώ
+ και τρέχει στο
+ ναό εδώ
προσκυνητής
σου. Αρχαίο
- Πνεύμ' αθάνατο,
- κάθε λαός.
+ Πνεύμ'
+ αθάνατο, κάθε
+ λαός.
</Para>
</Document>
DESCRIPTION
</head1>
<Para start_line="8">
- This Pod document is a paragraph in Arabic from "The
- Five Pillars of Islam" as CP-1256.
+ This Pod document is a paragraph in Arabic from "The Five Pillars of
+ Islam" as CP-1256.
</Para>
<Para start_line="13">
- وعن عمارة
- بن حزم قال
- قال رسول الله
- صلى الله عليه
- وسلم:
+ وعن عمارة بن
+ حزم قال قال
+ رسول الله
+ صلى الله
+ عليه وسلم:
</Para>
<Para start_line="15">
اربع فرضهن
الله عز وجل
في الاسلام
- فمن جاء بثلاث
- لم يغنين عنه
+ فمن جاء
+ بثلاث لم
+ يغنين عنه
</Para>
<Para start_line="17">
- شيئا حتى يأتي
- بهن جميعا
- الصلاة والزكاة
+ شيئا حتى
+ يأتي بهن
+ جميعا
+ الصلاة
+ والزكاة
وصيام رمضان
وحج
</Para>
<Para start_line="19">
البيت. رواه
- احمد والطبراني
+ احمد
+ والطبراني
في الكبير
وفي اسناده
ابن لهيعة.
And now as a real single paragraph:
</Para>
<Para start_line="23">
- وعن عمارة
- بن حزم قال
- قال رسول الله
- صلى الله عليه
- وسلم: اربع
- فرضهن الله
- عز وجل في الاسلام
- فمن جاء بثلاث
- لم يغنين عنه
- شيئا حتى يأتي
- بهن جميعا
- الصلاة والزكاة
+ وعن عمارة بن
+ حزم قال قال
+ رسول الله
+ صلى الله
+ عليه وسلم:
+ اربع فرضهن
+ الله عز وجل
+ في الاسلام
+ فمن جاء
+ بثلاث لم
+ يغنين عنه
+ شيئا حتى
+ يأتي بهن
+ جميعا
+ الصلاة
+ والزكاة
وصيام رمضان
وحج البيت.
رواه احمد
And now as a verbatim paragraph:
</Para>
<VerbatimFormatted start_line="30" xml:space="preserve">
- وعن عمارة
- بن حزم قال
- قال رسول الله
- صلى الله عليه
- وسلم:
-
+ وعن عمارة بن
+ حزم قال قال
+ رسول الله
+ صلى الله
+ عليه وسلم:
اربع فرضهن
الله عز وجل
في الاسلام
- فمن جاء بثلاث
- لم يغنين عنه
-
- شيئا حتى يأتي
- بهن جميعا
- الصلاة والزكاة
+ فمن جاء
+ بثلاث لم
+ يغنين عنه
+ شيئا حتى
+ يأتي بهن
+ جميعا
+ الصلاة
+ والزكاة
وصيام رمضان
وحج
-
البيت. رواه
- احمد والطبراني
+ احمد
+ والطبراني
في الكبير
وفي اسناده
ابن لهيعة.
--- /dev/null
+
+=head1 NAME
+
+Encoding Warning 1 - implicitly Latin-1
+
+=head2 DESCRIPTION
+
+This line should warn that the word café contains a non-ASCII character.
+
+But château should not generate a warning - once is enough.
+
--- /dev/null
+<Document start_line="2">
+ <head1 start_line="2">
+ NAME
+ </head1>
+ <Para start_line="4">
+ Encoding Warning 1 - implicitly Latin-1
+ </Para>
+ <head2 start_line="6">
+ DESCRIPTION
+ </head2>
+ <Para start_line="8">
+ This line should warn that the word café contains a non-ASCII
+ character.
+ </Para>
+ <Para start_line="10">
+ But château should not generate a warning - once is enough.
+ </Para>
+ <head1 errata="1" start_line="-321">
+ POD ERRORS
+ </head1>
+ <Para errata="1" start_line="-321">
+ Hey!
+ <B>
+ The above document had some coding errors, which are explained below:
+ </B>
+ </Para>
+ <over-text errata="1" indent="4" start_line="-321">
+ <item-text start_line="-321">
+ Around line 8:
+ </item-text>
+ <Para start_line="-321">
+ Non-ASCII character seen before =encoding in 'café'. Assuming
+ ISO8859-1
+ </Para>
+ </over-text>
+</Document>
--- /dev/null
+
+=head1 NAME
+
+Encoding Warning 1 - implicitly UTF-8
+
+=head2 DESCRIPTION
+
+This line should warn that the price €9.99 contains a non-ASCII character.
+
+But château should not generate a warning - once is enough.
+
--- /dev/null
+<Document start_line="2">
+ <head1 start_line="2">
+ NAME
+ </head1>
+ <Para start_line="4">
+ Encoding Warning 1 - implicitly UTF-8
+ </Para>
+ <head2 start_line="6">
+ DESCRIPTION
+ </head2>
+ <Para start_line="8">
+ This line should warn that the price €9.99 contains a non-ASCII
+ character.
+ </Para>
+ <Para start_line="10">
+ But château should not generate a warning - once is enough.
+ </Para>
+ <head1 errata="1" start_line="-321">
+ POD ERRORS
+ </head1>
+ <Para errata="1" start_line="-321">
+ Hey!
+ <B>
+ The above document had some coding errors, which are explained below:
+ </B>
+ </Para>
+ <over-text errata="1" indent="4" start_line="-321">
+ <item-text start_line="-321">
+ Around line 8:
+ </item-text>
+ <Para start_line="-321">
+ Non-ASCII character seen before =encoding in '€9.99'.
+ Assuming UTF-8
+ </Para>
+ </over-text>
+</Document>
NAME
</head1>
<Para start_line="9">
- Когда читала
- ты мучительные
- строки -- Fet's
- "When you were reading"
+ Когда
+ читала ты
+ мучительные
+ строки -- Fet's "When you
+ were reading"
</Para>
<head1 start_line="11">
TEXT
<Para errata="1" start_line="-321">
Hey!
<B>
- The above document had some coding errors, which are explained
- below:
+ The above document had some coding errors, which are explained below:
</B>
</Para>
<over-text errata="1" indent="4" start_line="-321">
Around line 13:
</item-text>
<Para start_line="-321">
- Couldn't do =encoding Shift-JIS: Encoding is already
- set to koi8-r
+ Couldn't do =encoding Shift-JIS: Encoding is already set to koi8-r
</Para>
</over-text>
</Document>
NAME
</head1>
<Para start_line="9">
- Когда читала
- ты мучительные
- строки -- Fet's
- "When you were reading"
+ Когда
+ читала ты
+ мучительные
+ строки -- Fet's "When you
+ were reading"
</Para>
<head1 start_line="11">
TEXT
(This is a test Pod pocument in KOI8-R.)
</Para>
<Para start_line="15">
- Когда читала
- ты мучительные
+ Когда
+ читала ты
+ мучительные
строки, / Где
- сердца звучный
- пыл сиянье
- льет кругом
- / И страсти
- роковой вздымаются
+ сердца
+ звучный пыл
+ сиянье льет
+ кругом / И
+ страсти
+ роковой
+ вздымаются
потоки,- / Не
вспомнила
ль о чем?
Я верить не
хочу! Когда
в степи, как
- диво, / В полночной
- темноте безвременно
+ диво, / В
+ полночной
+ темноте
+ безвременно
горя, / Вдали
перед тобой
- прозрачно
- и красиво
- / Вставала
+ прозрачно и
+ красиво /
+ Вставала
вдругзаря.
</Para>
<Para start_line="25">
- И в эту красоту
+ И в эту
+ красоту
невольно
- взор тянуло,
- / В тот величавый
- блеск за темный
- весь предел,-
- / Ужель ничто
- тебе в то время
- не шепнуло:
- / Там человек
+ взор
+ тянуло, / В
+ тот
+ величавый
+ блеск за
+ темный весь
+ предел,- /
+ Ужель ничто
+ тебе в то
+ время не
+ шепнуло: /
+ Там человек
сгорел!
</Para>
<Para start_line="30">
And now, as a verbatim section:
</Para>
<VerbatimFormatted start_line="34" xml:space="preserve">
- Когда читала
- ты мучительные
+ Когда
+ читала ты
+ мучительные
строки,
-
Где сердца
звучный пыл
сиянье льет
кругом
-
И страсти
- роковой вздымаются
+ роковой
+ вздымаются
потоки,-
-
- Не вспомнила
+ Не
+ вспомнила
ль о чем?
-
-
-
+
Я верить не
хочу! Когда
в степи, как
диво,
-
- В полночной
- темноте безвременно
+ В
+ полночной
+ темноте
+ безвременно
горя,
-
- Вдали перед
- тобой прозрачно
- и красиво
-
- Вставала
+ Вдали
+ перед тобой
+ прозрачно и
+ красиво
+ Вставала
вдругзаря.
</VerbatimFormatted>
<VerbatimFormatted start_line="46" xml:space="preserve">
- И в эту красоту
+ И в эту
+ красоту
невольно
- взор тянуло,
-
- В тот величавый
- блеск за темный
- весь предел,-
-
- Ужель ничто
- тебе в то время
+ взор
+ тянуло,
+ В тот
+ величавый
+ блеск за
+ темный весь
+ предел,-
+ Ужель
+ ничто тебе
+ в то время
не шепнуло:
-
- Там человек
+ Там
+ человек
сгорел!
-
-
- 15 февраля
- 1887
+ 15 февраля 1887
</VerbatimFormatted>
<Para start_line="53">
[end]
NAME
</head1>
<Para start_line="4">
- buniya-iso-6 -- test document: a paragraph in Arabic as
- ISO-8859-6
+ buniya-iso-6 -- test document: a paragraph in Arabic as ISO-8859-6
</Para>
<head1 start_line="6">
DESCRIPTION
</head1>
<Para start_line="8">
- This document is a paragraph in Arabic from "The Five
- Pillars of Islam" as ISO-8859-6.
+ This document is a paragraph in Arabic from "The Five Pillars of
+ Islam" as ISO-8859-6.
</Para>
<Para start_line="13">
- وعن عمارة
- بن حزم قال
- قال رسول الله
- صلى الله عليه
- وسلم:
+ وعن عمارة بن
+ حزم قال قال
+ رسول الله
+ صلى الله
+ عليه وسلم:
</Para>
<Para start_line="15">
اربع فرضهن
الله عز وجل
في الاسلام
- فمن جاء بثلاث
- لم يغنين عنه
+ فمن جاء
+ بثلاث لم
+ يغنين عنه
</Para>
<Para start_line="17">
- شيئا حتى يأتي
- بهن جميعا
- الصلاة والزكاة
+ شيئا حتى
+ يأتي بهن
+ جميعا
+ الصلاة
+ والزكاة
وصيام رمضان
وحج
</Para>
<Para start_line="19">
البيت. رواه
- احمد والطبراني
+ احمد
+ والطبراني
في الكبير
وفي اسناده
ابن لهيعة.
And now as a real single paragraph:
</Para>
<Para start_line="23">
- وعن عمارة
- بن حزم قال
- قال رسول الله
- صلى الله عليه
- وسلم: اربع
- فرضهن الله
- عز وجل في الاسلام
- فمن جاء بثلاث
- لم يغنين عنه
- شيئا حتى يأتي
- بهن جميعا
- الصلاة والزكاة
+ وعن عمارة بن
+ حزم قال قال
+ رسول الله
+ صلى الله
+ عليه وسلم:
+ اربع فرضهن
+ الله عز وجل
+ في الاسلام
+ فمن جاء
+ بثلاث لم
+ يغنين عنه
+ شيئا حتى
+ يأتي بهن
+ جميعا
+ الصلاة
+ والزكاة
وصيام رمضان
وحج البيت.
رواه احمد
And now as a verbatim paragraph:
</Para>
<VerbatimFormatted start_line="30" xml:space="preserve">
- وعن عمارة
- بن حزم قال
- قال رسول الله
- صلى الله عليه
- وسلم:
-
+ وعن عمارة بن
+ حزم قال قال
+ رسول الله
+ صلى الله
+ عليه وسلم:
اربع فرضهن
الله عز وجل
في الاسلام
- فمن جاء بثلاث
- لم يغنين عنه
-
- شيئا حتى يأتي
- بهن جميعا
- الصلاة والزكاة
+ فمن جاء
+ بثلاث لم
+ يغنين عنه
+ شيئا حتى
+ يأتي بهن
+ جميعا
+ الصلاة
+ والزكاة
وصيام رمضان
وحج
-
البيت. رواه
- احمد والطبراني
+ احمد
+ والطبراني
في الكبير
وفي اسناده
- ابن لهيعة.
-
+ ابن لهيعة.
</VerbatimFormatted>
<Para start_line="35">
[end]
NAME
</head1>
<Para start_line="6">
- Когда читала
- ты мучительные
- строки -- Fet's
- "When you were reading"
+ Когда
+ читала ты
+ мучительные
+ строки -- Fet's "When you
+ were reading"
</Para>
<head1 start_line="8">
TEXT
(This is a test Pod pocument in KOI8-R.)
</Para>
<Para start_line="12">
- Когда читала
- ты мучительные
+ Когда
+ читала ты
+ мучительные
строки, / Где
- сердца звучный
- пыл сиянье
- льет кругом
- / И страсти
- роковой вздымаются
+ сердца
+ звучный пыл
+ сиянье льет
+ кругом / И
+ страсти
+ роковой
+ вздымаются
потоки,- / Не
вспомнила
ль о чем?
Я верить не
хочу! Когда
в степи, как
- диво, / В полночной
- темноте безвременно
+ диво, / В
+ полночной
+ темноте
+ безвременно
горя, / Вдали
перед тобой
- прозрачно
- и красиво
- / Вставала
+ прозрачно и
+ красиво /
+ Вставала
вдругзаря.
</Para>
<Para start_line="22">
- И в эту красоту
+ И в эту
+ красоту
невольно
- взор тянуло,
- / В тот величавый
- блеск за темный
- весь предел,-
- / Ужель ничто
- тебе в то время
- не шепнуло:
- / Там человек
+ взор
+ тянуло, / В
+ тот
+ величавый
+ блеск за
+ темный весь
+ предел,- /
+ Ужель ничто
+ тебе в то
+ время не
+ шепнуло: /
+ Там человек
сгорел!
</Para>
<Para start_line="27">
And now, as a verbatim section:
</Para>
<VerbatimFormatted start_line="31" xml:space="preserve">
- Когда читала
- ты мучительные
+ Когда
+ читала ты
+ мучительные
строки,
-
Где сердца
звучный пыл
сиянье льет
кругом
-
И страсти
- роковой вздымаются
+ роковой
+ вздымаются
потоки,-
-
- Не вспомнила
+ Не
+ вспомнила
ль о чем?
-
-
-
+
Я верить не
хочу! Когда
в степи, как
диво,
-
- В полночной
- темноте безвременно
+ В
+ полночной
+ темноте
+ безвременно
горя,
-
- Вдали перед
- тобой прозрачно
- и красиво
-
- Вставала
+ Вдали
+ перед тобой
+ прозрачно и
+ красиво
+ Вставала
вдругзаря.
-
-
-
- И в эту красоту
+
+ И в эту
+ красоту
невольно
- взор тянуло,
-
- В тот величавый
- блеск за темный
- весь предел,-
-
- Ужель ничто
- тебе в то время
+ взор
+ тянуло,
+ В тот
+ величавый
+ блеск за
+ темный весь
+ предел,-
+ Ужель
+ ничто тебе
+ в то время
не шепнуло:
-
- Там человек
+ Там
+ человек
сгорел!
-
-
- 15 февраля
- 1887
+ 15 февраля 1887
</VerbatimFormatted>
<Para start_line="48">
[end]
And as a verbatim section:
</Para>
<VerbatimFormatted start_line="20" xml:space="preserve">
- 上德不德，是以有德﹔
-
- 下德不失德，是以無德。
-
- 上德無為而無以為﹔
-
- 下德無為而有以為。
-
- 上仁為之而無以為﹔
-
- 上義為之而有以為。
-
- 上禮為之而莫之應，則攘臂而扔之。
-
+
+ 上德不德，是以有德﹔
+
+ 下德不失德，是以無德。
+
+ 上德無為而無以為﹔
+
+ 下德無為而有以為。
+
+ 上仁為之而無以為﹔
+
+ 上義為之而有以為。
+
+ 上禮為之而莫之應，則攘臂而扔之。
-
- 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。
-
- 前識者，道之華，而愚之始。
-
- 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。
-
+
+ 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。
+
+ 前識者，道之華，而愚之始。
+
+ 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。
故去彼取此。
</VerbatimFormatted>
<Para start_line="33">
And as a verbatim section:
</Para>
<VerbatimFormatted start_line="20" xml:space="preserve">
- 上德不德，是以有德﹔
-
- 下德不失德，是以無德。
-
- 上德無為而無以為﹔
-
- 下德無為而有以為。
-
- 上仁為之而無以為﹔
-
- 上義為之而有以為。
-
- 上禮為之而莫之應，則攘臂而扔之。
-
+
+ 上德不德，是以有德﹔
+
+ 下德不失德，是以無德。
+
+ 上德無為而無以為﹔
+
+ 下德無為而有以為。
+
+ 上仁為之而無以為﹔
+
+ 上義為之而有以為。
+
+ 上禮為之而莫之應，則攘臂而扔之。
-
- 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。
-
- 前識者，道之華，而愚之始。
-
- 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。
-
+
+ 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。
+
+ 前識者，道之華，而愚之始。
+
+ 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。
故去彼取此。
</VerbatimFormatted>
<Para start_line="33">
DESCRIPTION
</head1>
<Para start_line="10">
- This is a test Pod document in the Big5 encoding. Its content
- is the 38th canto from the
+ This is a test Pod document in the Big5 encoding. Its content is the 38th
+ canto from the
<I>
Dao De Jing
</I>
And as a verbatim section:
</Para>
<VerbatimFormatted start_line="30" xml:space="preserve">
- 上德不德，是以有德﹔
-
- 下德不失德，是以無德。
-
- 上德無為而無以為﹔
-
- 下德無為而有以為。
-
- 上仁為之而無以為﹔
-
- 上義為之而有以為。
-
- 上禮為之而莫之應，則攘臂而扔之。
-
+
+ 上德不德，是以有德﹔
+
+ 下德不失德，是以無德。
+
+ 上德無為而無以為﹔
+
+ 下德無為而有以為。
+
+ 上仁為之而無以為﹔
-
- 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。
-
- 前識者，道之華，而愚之始。
-
- 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。
-
+ 上義為之而有以為。
+
+ 上禮為之而莫之應，則攘臂而扔之。
+
+
+ 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。
+
+ 前識者，道之華，而愚之始。
+
+ 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。
故去彼取此。
</VerbatimFormatted>
<Para start_line="43">
DESCRIPTION
</head1>
<Para start_line="10">
- This is a test Pod document in Latin-1. Its content is the
- last two paragraphs of Baudelaire's
+ This is a test Pod document in Latin-1. Its content is the last two
+ paragraphs of Baudelaire's
<I>
Le Joujou du pauvre
</I>
.
</Para>
<Para start_line="13">
- A travers ces barreaux symboliques séparant deux mondes,
- la grande route et le château, l'enfant pauvre
- montrait à l'enfant riche son propre joujou, que
- celui-ci examinait avidement comme un objet rare et inconnu.
- Or, ce joujou, que le petit souillon agaçait, agitait
- et secouait dans une boîte grillée, c'était
- un rat vivant
-  
- ! Les parents, par économie sans doute, avaient tiré
- le joujou de la vie elle-même.
+ A travers ces barreaux symboliques séparant deux mondes, la grande
+ route et le château, l'enfant pauvre montrait à
+ l'enfant riche son propre joujou, que celui-ci examinait avidement
+ comme un objet rare et inconnu. Or, ce joujou, que le petit souillon
+ agaçait, agitait et secouait dans une boîte grillée,
+ c'était un rat vivant ! Les parents, par économie
+ sans doute, avaient tiré le joujou de la vie elle-même.
</Para>
<Para start_line="20">
- Et les deux enfants se riaient l'un à l'autre
- fraternellement, avec des dents d'une
+ Et les deux enfants se riaient l'un à l'autre fraternellement,
+ avec des dents d'une
<I>
égale
</I>
As Verbatim
</head2>
<VerbatimFormatted start_line="25" xml:space="preserve">
- A travers ces barreaux symboliques séparant deux mondes,
- la grande route
-
- et le château, l'enfant pauvre montrait à
- l'enfant riche son propre
-
- joujou, que celui-ci examinait avidement comme un objet
- rare et inconnu.
-
- Or, ce joujou, que le petit souillon agaçait, agitait
- et secouait dans
-
- une boîte grillée, c'était un rat vivant !
+ A travers ces barreaux symboliques séparant deux mondes, la grande
+ route
+ et le château, l'enfant pauvre montrait à l'enfant
+ riche son propre
+ joujou, que celui-ci examinait avidement comme un objet rare et
+ inconnu.
+ Or, ce joujou, que le petit souillon agaçait, agitait et secouait
+ dans
+ une boîte grillée, c'était un rat vivant !
Les parents, par économie
-
sans doute, avaient tiré le joujou de la vie elle-même.
-
-
Et les deux enfants se riaient l'un à l'autre
fraternellement, avec des
-
dents d'une égale blancheur.
</VerbatimFormatted>
<Para start_line="35">
DESCRIPTION
</head1>
<Para start_line="8">
- This is a test Pod document in Latin-1. Its content is the
- last two paragraphs of Baudelaire's
+ This is a test Pod document in Latin-1. Its content is the last two
+ paragraphs of Baudelaire's
<I>
Le Joujou du pauvre
</I>
.
</Para>
<Para start_line="11">
- A travers ces barreaux symboliques séparant deux mondes,
- la grande route et le château, l'enfant pauvre
- montrait à l'enfant riche son propre joujou, que
- celui-ci examinait avidement comme un objet rare et inconnu.
- Or, ce joujou, que le petit souillon agaçait, agitait
- et secouait dans une boîte grillée, c'était
- un rat vivant
-  
- ! Les parents, par économie sans doute, avaient tiré
- le joujou de la vie elle-même.
+ A travers ces barreaux symboliques séparant deux mondes, la grande
+ route et le château, l'enfant pauvre montrait à
+ l'enfant riche son propre joujou, que celui-ci examinait avidement
+ comme un objet rare et inconnu. Or, ce joujou, que le petit souillon
+ agaçait, agitait et secouait dans une boîte grillée,
+ c'était un rat vivant ! Les parents, par économie
+ sans doute, avaient tiré le joujou de la vie elle-même.
</Para>
<Para start_line="18">
- Et les deux enfants se riaient l'un à l'autre
- fraternellement, avec des dents d'une
+ Et les deux enfants se riaient l'un à l'autre fraternellement,
+ avec des dents d'une
<I>
égale
</I>
As Verbatim
</head2>
<VerbatimFormatted start_line="23" xml:space="preserve">
- A travers ces barreaux symboliques séparant deux mondes,
- la grande route
-
- et le château, l'enfant pauvre montrait à
- l'enfant riche son propre
-
- joujou, que celui-ci examinait avidement comme un objet
- rare et inconnu.
-
- Or, ce joujou, que le petit souillon agaçait, agitait
- et secouait dans
-
- une boîte grillée, c'était un rat vivant !
+ A travers ces barreaux symboliques séparant deux mondes, la grande
+ route
+ et le château, l'enfant pauvre montrait à l'enfant
+ riche son propre
+ joujou, que celui-ci examinait avidement comme un objet rare et
+ inconnu.
+ Or, ce joujou, que le petit souillon agaçait, agitait et secouait
+ dans
+ une boîte grillée, c'était un rat vivant !
Les parents, par économie
-
sans doute, avaient tiré le joujou de la vie elle-même.
-
-
Et les deux enfants se riaient l'un à l'autre
fraternellement, avec des
-
dents d'une égale blancheur.
</VerbatimFormatted>
<Para start_line="33">
[end]
</Para>
+ <head1 errata="1" start_line="-321">
+ POD ERRORS
+ </head1>
+ <Para errata="1" start_line="-321">
+ Hey!
+ <B>
+ The above document had some coding errors, which are explained below:
+ </B>
+ </Para>
+ <over-text errata="1" indent="4" start_line="-321">
+ <item-text start_line="-321">
+ Around line 11:
+ </item-text>
+ <Para start_line="-321">
+ Non-ASCII character seen before =encoding in 'séparant'.
+ Assuming ISO8859-1
+ </Para>
+ </over-text>
</Document>
NAME
</head1>
<Para start_line="6">
- Зимняя ночь
- -- Pasternak Russian test file (cp1251)
+ Зимняя ночь --
+ Pasternak Russian test file (cp1251)
</Para>
<head1 start_line="8">
TEXT
Зимняя ночь.
</Para>
<Para start_line="14">
- Мело, мело
- по всей земле
- / Во все пределы.
- / Свеча горела
- на столе, / Свеча
+ Мело, мело по
+ всей земле /
+ Во все
+ пределы. /
+ Свеча
+ горела на
+ столе, /
+ Свеча
горела.
</Para>
<Para start_line="19">
Как летом
- роем мошкора
- / Летит на пламя,
- / Слетались
+ роем
+ мошкора /
+ Летит на
+ пламя, /
+ Слетались
хлопья со
- двора / К оконной
+ двора / К
+ оконной
раме.
</Para>
<Para start_line="24">
- Метель лепила
- на столе / Кружки
- и стрелы. / Свеча
+ Метель
+ лепила на
+ столе /
+ Кружки и
+ стрелы. /
+ Свеча
горела на
- столе, / Свеча
+ столе, /
+ Свеча
горела.
</Para>
<Para start_line="29">
- На озаренный
- потолок / Ложились
- тени, / Скрещенья
- рук, скркщенья
+ На
+ озаренный
+ потолок /
+ Ложились
+ тени, /
+ Скрещенья
+ рук,
+ скркщенья
ног, / Судьбы
скрещенья.
</Para>
<Para start_line="34">
И падали два
- башмачка
- / Со стуком
- на пол, / И воск
+ башмачка /
+ Со стуком
+ на пол, / И
+ воск
слезами с
ночника / На
- платье капал.
+ платье
+ капал.
</Para>
<Para start_line="39">
- И все терялось
- в снежной
+ И все
+ терялось в
+ снежной
мгле / Седой
- и белой. / Свеча
+ и белой. /
+ Свеча
горела на
- столе, / Свеча
+ столе, /
+ Свеча
горела.
</Para>
<Para start_line="44">
На свечку
- дуло из угла,
- / И жар соблазна
- / Вздымал, как
- ангел, два
- крыла / Крестообразно.
+ дуло из
+ угла, / И жар
+ соблазна /
+ Вздымал,
+ как ангел,
+ два крыла /
+ Крестообразно.
/
</Para>
<Para start_line="49">
Мело весь
- месяц в феврале,
- / И то и дело
- / Свеча горела
- на столе, / Свеча
+ месяц в
+ феврале, / И
+ то и дело /
+ Свеча
+ горела на
+ столе, /
+ Свеча
горела.
</Para>
<Para start_line="54">
- -- Борис Пастернак,
- 1946
+ -- Борис
+ Пастернак, 1946
</Para>
<head2 start_line="57">
As Preformatted
</Para>
<VerbatimFormatted start_line="61" xml:space="preserve">
Зимняя ночь.
-
-
Мело, мело
- по всей земле
-
- Во все пределы.
-
- Свеча горела
- на столе,
-
- Свеча горела.
-
+ по всей
+ земле
+ Во все
+ пределы.
+ Свеча
+ горела на
+ столе,
+ Свеча
+ горела.
-
Как летом
- роем мошкора
-
- Летит на пламя,
-
+ роем
+ мошкора
+ Летит на
+ пламя,
Слетались
хлопья со
двора
-
К оконной
раме.
-
-
- Метель лепила
- на столе
-
- Кружки и стрелы.
-
- Свеча горела
- на столе,
-
- Свеча горела.
-
+ Метель
+ лепила на
+ столе
+ Кружки и
+ стрелы.
+ Свеча
+ горела на
+ столе,
+ Свеча
+ горела.
-
- На озаренный
+ На
+ озаренный
потолок
-
Ложились
тени,
-
Скрещенья
- рук, скркщенья
+ рук,
+ скркщенья
ног,
-
- Судьбы скрещенья.
-
+ Судьбы
+ скрещенья.
-
- И падали два
+ И падали
+ два
башмачка
-
Со стуком
на пол,
-
- И воск слезами
- с ночника
-
+ И воск
+ слезами с
+ ночника
На платье
капал.
-
-
- И все терялось
- в снежной
+ И все
+ терялось в
+ снежной
мгле
-
- Седой и белой.
-
- Свеча горела
- на столе,
-
- Свеча горела.
-
+ Седой и
+ белой.
+ Свеча
+ горела на
+ столе,
+ Свеча
+ горела.
-
На свечку
- дуло из угла,
-
- И жар соблазна
-
- Вздымал, как
- ангел, два
- крыла
-
- Крестообразно.
-
+ дуло из
+ угла,
+ И жар
+ соблазна
+ Вздымал,
+ как ангел,
+ два крыла
+
+ Крестообразно.
-
Мело весь
- месяц в феврале,
-
+ месяц в
+ феврале,
И то и дело
-
- Свеча горела
- на столе,
-
- Свеча горела.
-
+ Свеча
+ горела на
+ столе,
+ Свеча
+ горела.
-
- -- Борис Пастернак,
- 1946
+ -- Борис
+ Пастернак, 1946
</VerbatimFormatted>
<Para start_line="105">
[end]
The quick brown fox jumps over the lazy dog.
</Para>
<Para start_line="10">
- Military Intelligence Yukon rhosts penrep Weekly World News
- DSD Time Cohiba finks rail gun DF ~ Corporate Security NATOA
- CCS DEVGRP
+ Military Intelligence Yukon rhosts penrep Weekly World News DSD Time Cohiba
+ finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
</Para>
<Para start_line="13">
- CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex
- garbage KGB ^? 737 1080H 1080H Satellite imagery smuggle
+ CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage KGB
+ ^? 737 1080H 1080H Satellite imagery smuggle
</Para>
<Para start_line="16">
[end]
The quick brown fox jumps over the lazy dog.
</Para>
<Para start_line="12">
- Military Intelligence Yukon rhosts penrep Weekly World News
- DSD Time Cohiba finks rail gun DF ~ Corporate Security NATOA
- CCS DEVGRP
+ Military Intelligence Yukon rhosts penrep Weekly World News DSD Time Cohiba
+ finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
</Para>
<Para start_line="15">
- CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex
- garbage KGB ^? 737 1080H 1080H Satellite imagery smuggle
+ CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage KGB
+ ^? 737 1080H 1080H Satellite imagery smuggle
</Para>
<Para start_line="18">
[end]
NAME
</head1>
<Para start_line="8">
- simple_text_document -- an explicitly Latin-1 (ASCII subset)
- test document
+ simple_text_document -- an explicitly Latin-1 (ASCII subset) test document
</Para>
<head1 start_line="10">
TEXT
The quick brown fox jumps over the lazy dog.
</Para>
<Para start_line="14">
- Military Intelligence Yukon rhosts penrep Weekly World News
- DSD Time Cohiba finks rail gun DF ~ Corporate Security NATOA
- CCS DEVGRP
+ Military Intelligence Yukon rhosts penrep Weekly World News DSD Time Cohiba
+ finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
</Para>
<Para start_line="17">
- CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex
- garbage KGB ^? 737 1080H 1080H Satellite imagery smuggle
+ CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage KGB
+ ^? 737 1080H 1080H Satellite imagery smuggle
</Para>
<Para start_line="20">
[end]
NAME
</head1>
<Para start_line="8">
- simple_text_document -- an explicitly UTF8 (ASCII subset)
- test document
+ simple_text_document -- an explicitly UTF8 (ASCII subset) test document
</Para>
<head1 start_line="10">
TEXT
The quick brown fox jumps over the lazy dog.
</Para>
<Para start_line="14">
- Military Intelligence Yukon rhosts penrep Weekly World News
- DSD Time Cohiba finks rail gun DF ~ Corporate Security NATOA
- CCS DEVGRP
+ Military Intelligence Yukon rhosts penrep Weekly World News DSD Time Cohiba
+ finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
</Para>
<Para start_line="17">
- CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex
- garbage KGB ^? 737 1080H 1080H Satellite imagery smuggle
+ CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage KGB
+ ^? 737 1080H 1080H Satellite imagery smuggle
</Para>
<Para start_line="20">
[end]
NAME
</head1>
<Para start_line="6">
- WŚRÓD NOCNEJ CISZY -- explicitly utf8 test document
- in Polish
+ WŚRÓD NOCNEJ CISZY -- explicitly utf8 test document in Polish
</Para>
<head1 start_line="8">
DESCRIPTION
</head1>
<Para start_line="10">
- This is a test Pod document in UTF8. Its content is the
- lyrics to the Polish Christmas carol "Wśród
- nocnej ciszy".
+ This is a test Pod document in UTF8. Its content is the lyrics to the
+ Polish Christmas carol "Wśród nocnej ciszy".
</Para>
<Para start_line="13">
- Wśród nocnej ciszy głos się rozchodzi:
- / Wstańcie, pasterze, Bóg się nam rodzi!
- / Czym prędzej się wybierajcie, / Do Betlejem
- pospieszajcie / Przywitać Pana.
+ Wśród nocnej ciszy głos się rozchodzi: / Wstańcie,
+ pasterze, Bóg się nam rodzi! / Czym prędzej się
+ wybierajcie, / Do Betlejem pospieszajcie / Przywitać Pana.
</Para>
<Para start_line="19">
- Poszli, znaleźli Dzieciątko w żłobie
- / Z wszystkimi znaki danymi sobie. / Jako Bogu cześć
- Mu dali, / A witając zawołali / Z wielkiej radości:
+ Poszli, znaleźli Dzieciątko w żłobie / Z wszystkimi
+ znaki danymi sobie. / Jako Bogu cześć Mu dali, / A
+ witając zawołali / Z wielkiej radości:
</Para>
<Para start_line="25">
- Ach, witaj Zbawco z dawno żądany, / Wiele tysięcy
- lat wyglądany / Na Ciebie króle, prorocy / Czekali,
- a Tyś tej nocy / Nam się objawił.
+ Ach, witaj Zbawco z dawno żądany, / Wiele tysięcy lat
+ wyglądany / Na Ciebie króle, prorocy / Czekali, a Tyś
+ tej nocy / Nam się objawił.
</Para>
<Para start_line="31">
I my czekamy na Ciebie, Pana, / A skoro przyjdziesz na głos
</Para>
<VerbatimFormatted start_line="41" xml:space="preserve">
Wśród nocnej ciszy głos się rozchodzi:
-
Wstańcie, pasterze, Bóg się nam rodzi!
-
Czym prędzej się wybierajcie,
-
Do Betlejem pospieszajcie
-
Przywitać Pana.
-
-
Poszli, znaleźli Dzieciątko w żłobie
-
Z wszystkimi znaki danymi sobie.
-
Jako Bogu cześć Mu dali,
-
A witając zawołali
-
Z wielkiej radości:
-
-
Ach, witaj Zbawco z dawno żądany,
-
Wiele tysięcy lat wyglądany
-
Na Ciebie króle, prorocy
-
Czekali, a Tyś tej nocy
-
Nam się objawił.
-
-
I my czekamy na Ciebie, Pana,
-
A skoro przyjdziesz na głos kapłana,
-
Padniemy na twarz przed Tobą,
-
Wierząc, żeś jest pod osłoną
-
Chleba i wina.
</VerbatimFormatted>
<Para start_line="65">
DESCRIPTION
</head1>
<Para start_line="10">
- This is a test Pod document in Shift-JIS. Its content is
- some uninteresting product specs I found on the Net.
+ This is a test Pod document in Shift-JIS. Its content is some uninteresting
+ product specs I found on the Net.
</Para>
<Para start_line="13">
It's an textitem list:
光源
</item-text>
<Para start_line="23">
- GZ4 ダイクロイックミラーランプ
+ GZ4
+ ダイクロイックミラーランプ
12V 10W×1
</Para>
<item-text start_line="25">
材質
</item-text>
<Para start_line="35">
- 樹脂 アルミ、アルマイト仕上
+ 樹脂
+ アルミ、アルマイト仕上
ガラス
</Para>
<item-text start_line="37">
DESCRIPTION
</head1>
<Para start_line="10">
- This is a test Pod document in ISO-8859-11. Its content
- is a poem to (by?) Khun Thong Dang (ภาพมิ่งมงคล),
+ This is a test Pod document in ISO-8859-11. Its content is a poem to (by?)
+ Khun Thong Dang
+ (ภาพมิ่งมงคล),
the pet of Bhumibol, the King of Thailand.
</Para>
<Para start_line="14">
As four flowed paragraphs:
</Para>
<Para start_line="16">
- ๏ พระเมตตาแจ่มจับใจไผทสยาม
- / พระทัยงาม...มองภาพถ่ายมิถ่ายถอน
- / เกล้าฯ น้อมเกล้าฯ
+ ๏
+ พระเมตตาแจ่มจับใจไผทสยาม
+ /
+ พระทัยงาม...มองภาพถ่ายมิถ่ายถอน
+ / เกล้าฯ
+ น้อมเกล้าฯ
พจน์เรียงเผดียงกลอน
- / สื่อสะท้อนพระการุณย์อุ่นดวงมาน๚
+ /
+ สื่อสะท้อนพระการุณย์อุ่นดวงมาน๚
</Para>
<Para start_line="21">
- ๏ ทุกภาพมิ่งมงคลยลแล้วยิ้ม
- / เอื้ออกอิ่มล้ำค่ามหาศาล
- / อยากเป็นคุณทองแดงนักจักอยู่งาน
- / เฝ้าคลอเคลียบทมาลย์พระภูมิพล๚
+ ๏
+ ทุกภาพมิ่งมงคลยลแล้วยิ้ม
+ /
+ เอื้ออกอิ่มล้ำค่ามหาศาล
+ /
+ อยากเป็นคุณทองแดงนักจักอยู่งาน
+ /
+ เฝ้าคลอเคลียบทมาลย์พระภูมิพล๚
</Para>
<Para start_line="26">
- ๏ พระหัตถ์บุญทรงเบิกหล้าพลิกหล้าเขียว
- / พระโอษฐ์เรียวตรัสห้ามสงครามฉล
- / พระทัย ธ โอภาสผ่องถ่องสกล
- / พระยุคลบาทย่างสืบสร้างไทย๚
+ ๏
+ พระหัตถ์บุญทรงเบิกหล้าพลิกหล้าเขียว
+ /
+ พระโอษฐ์เรียวตรัสห้ามสงครามฉล
+ / พระทัย ธ
+ โอภาสผ่องถ่องสกล
+ /
+ พระยุคลบาทย่างสืบสร้างไทย๚
</Para>
<Para start_line="31">
- ๏ น้อมเกล้าเทิดองค์ราชันศรันย์ศรี
- / บารมีหมื่นคู่คงอสงไขย
- / กรรดิราชกฤษฎาก้องหล้าไกล
- / ปลื้มประทับถ้วนทุกใจแห่งไท้เอย๚ะ๛
+ ๏
+ น้อมเกล้าเทิดองค์ราชันศรันย์ศรี
+ /
+ บารมีหมื่นคู่คงอสงไขย
+ /
+ กรรดิราชกฤษฎาก้องหล้าไกล
+ /
+ ปลื้มประทับถ้วนทุกใจแห่งไท้เอย๚ะ๛
</Para>
<head2 start_line="36">
Verbatim Section
And as a verbatim section:
</Para>
<VerbatimFormatted start_line="40" xml:space="preserve">
- ๏ พระเมตตาแจ่มจับใจไผทสยาม
-
- พระทัยงาม...มองภาพถ่ายมิถ่ายถอน
-
- เกล้าฯ น้อมเกล้าฯ
+ ๏
+ พระเมตตาแจ่มจับใจไผทสยาม
+
+ พระทัยงาม...มองภาพถ่ายมิถ่ายถอน
+ เกล้าฯ
+ น้อมเกล้าฯ
พจน์เรียงเผดียงกลอน
-
- สื่อสะท้อนพระการุณย์อุ่นดวงมาน๚
-
+
+ สื่อสะท้อนพระการุณย์อุ่นดวงมาน๚
-
- ๏ ทุกภาพมิ่งมงคลยลแล้วยิ้ม
-
- เอื้ออกอิ่มล้ำค่ามหาศาล
-
- อยากเป็นคุณทองแดงนักจักอยู่งาน
-
- เฝ้าคลอเคลียบทมาลย์พระภูมิพล๚
-
+ ๏
+ ทุกภาพมิ่งมงคลยลแล้วยิ้ม
+
+ เอื้ออกอิ่มล้ำค่ามหาศาล
+
+ อยากเป็นคุณทองแดงนักจักอยู่งาน
+
+ เฝ้าคลอเคลียบทมาลย์พระภูมิพล๚
-
- ๏ พระหัตถ์บุญทรงเบิกหล้าพลิกหล้าเขียว
-
- พระโอษฐ์เรียวตรัสห้ามสงครามฉล
-
- พระทัย ธ โอภาสผ่องถ่องสกล
-
- พระยุคลบาทย่างสืบสร้างไทย๚
-
+ ๏
+ พระหัตถ์บุญทรงเบิกหล้าพลิกหล้าเขียว
+
+ พระโอษฐ์เรียวตรัสห้ามสงครามฉล
+ พระทัย ธ
+ โอภาสผ่องถ่องสกล
+
+ พระยุคลบาทย่างสืบสร้างไทย๚
-
- ๏ น้อมเกล้าเทิดองค์ราชันศรันย์ศรี
-
- บารมีหมื่นคู่คงอสงไขย
-
- กรรดิราชกฤษฎาก้องหล้าไกล
-
- ปลื้มประทับถ้วนทุกใจแห่งไท้เอย๚ะ๛
+ ๏
+ น้อมเกล้าเทิดองค์ราชันศรันย์ศรี
+
+ บารมีหมื่นคู่คงอสงไขย
+
+ กรรดิราชกฤษฎาก้องหล้าไกล
+
+ ปลื้มประทับถ้วนทุกใจแห่งไท้เอย๚ะ๛
</VerbatimFormatted>
<Para start_line="60">
[end]
' <Para>',
' <F>',
' <C>',
- ' f',
- ' o',
- ' o',
+ ' foo',
' </C>',
- ' ',
+ ' ',
' <I>',
' bar',
' </I>',
' </F>',
- ' ',
+ ' ',
' <B>',
' stuff ',
' <X>',
' <Para>',
' <F>',
' <C>',
- ' f',
- ' o',
- ' o',
+ ' foo',
' </C>',
- ' ',
+ ' ',
' <I>',
' bar',
' </I>',
' </F>',
- ' ',
+ ' ',
' <B>',
- ' stuff ',
- ' baz',
+ ' stuff baz',
' </B>',
' </Para>',
'</Document>',
' <C>',
' foo',
' </C>',
- ' ',
+ ' ',
' <I>',
' bar',
' </I>',
' </F>',
- ' ',
+ ' ',
' <B>',
' stuff ',
' <X>',
' <C>',
' foo',
' </C>',
- ' ',
+ ' ',
' <I>',
' bar',
' </I>',
' </F>',
- ' ',
+ ' ',
' <B>',
' stuff baz',
' </B>',
' </L>',
' o',
' </C>',
- ' ',
+ ' ',
' <I>',
' bar',
' </I>',
' </F>',
- ' ',
+ ' ',
' <B>',
' stuff baz',
' </B>',
}
local $Pod::Simple::XHTML::HAS_HTML_ENTITIES = $use_html_entities;
initialize($parser, $results);
+ $parser->codes_in_verbatim(1);
$parser->parse_string_document(<<'EOPOD');
=pod
EOPOD
is($results, <<"EOHTML", "Verbatim text with markup and embedded formatting");
<pre><code> # this header is very important & dont you forget it
- <b>my \$file = <FILE> || Blank!;</b>
+ </code><b><code>my \$file = <FILE> || Blank!;</code></b><code>
my \$text = "File is: " . <FILE>;</code></pre>
EOHTML
--- /dev/null
+#!/usr/bin/perl -w
+
+# t/xhtml20.t - test subclassing of Pod::Simple::XHTML
+
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+BEGIN {
+ package MyXHTML;
+ use base 'Pod::Simple::XHTML';
+
+ sub handle_code {
+ my($self, $code) = @_;
+ $code = "[$code]";
+ $self->SUPER::handle_code($code);
+ }
+}
+
+
+
+my ($parser, $results);
+
+initialize();
+$parser->parse_string_document(<<'EOT');
+=head1 Foo
+
+This is C<$code> and so is:
+
+ my $foo = 1;
+EOT
+
+like $results, qr/<code>\[\$code]<\/code>/;
+like $results , qr/<pre><code>\[ my \$foo = 1;/;
+
+
+sub initialize {
+ $parser = MyXHTML->new;
+ $parser->output_string( \$results );
+ $results = '';
+}
https://perl5.git.perl.org / perl5.git / commitdiff