' } sub start_Verbatim { $_[0]{'scratch'} .= '
'; $_[0]{'in_verbatim'} = 1}
sub start_head0 { $_[0]{'scratch'} = '' }
sub start_head1 { $_[0]{'scratch'} = '' }
sub start_head2 { $_[0]{'scratch'} = '' }
sub start_head3 { $_[0]{'scratch'} = '' }
sub start_head4 { $_[0]{'scratch'} = '' }
sub start_item_bullet { $_[0]{'scratch'} .= '
' }
sub start_item_number { $_[0]{'scratch'} .= " $_[1]{'number'}. " }
sub start_item_text { $_[0]{'scratch'} .= ' ' }
sub start_over_bullet { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub start_over_text { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub start_over_block { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub start_over_number { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub end_over_bullet { $_[0]{'scratch'} .= '
'; $_[0]->emit('nowrap') }
sub end_over_text { $_[0]{'scratch'} .= '
'; $_[0]->emit('nowrap') }
sub end_over_block { $_[0]{'scratch'} .= '
'; $_[0]->emit('nowrap') }
sub end_over_number { $_[0]{'scratch'} .= ''; $_[0]->emit('nowrap') }
# . . . . . Now the actual formatters:
sub end_Para { $_[0]{'scratch'} .= ''; $_[0]->emit() }
sub end_Verbatim {
$_[0]{'scratch'} .= ' " . $self->{'figure_title'} . "
"; delete $self->{'figure_title'}; } $self->emit('nowrap'); } # This handles =begin and =for blocks of all kinds. sub start_for { my ($self, $flags) = @_; if ($self->{'css_tags'}) { $self->{'scratch'} .= 'Table: " . $flags->{'title'} . "
\n"; } $self->{'scratch'} .= '' }
sub end_C { $_[0]{'scratch'} .= '' }
sub start_E { $_[0]{'scratch'} .= '&' }
sub end_E { $_[0]{'scratch'} .= ';' }
sub start_F { $_[0]{'scratch'} .= ($_[0]{'in_figure'}) ? 'EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =begin sidebar Title Text This is the text of the sidebar. =end sidebar EOPOD is($results, <<'EOHTML', "a sidebar with a title");This is the text of the sidebar.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =begin sidebar Title Text This is the text of the ZTitle Text
This is the text of the sidebar.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =begin programlisting This is used for code blocks and should have no effect beyond ordinary indented text. =end programlisting EOPOD is($results, <<'EOHTML', "allow programlisting blocks");Title Text
This is the text of the sidebar.
This is used for code blocks
and should have no effect
beyond ordinary indented text. This is used for code blocks
and should have no effect
beyond ordinary indented text. This is used for code blocks
and should have no effect
beyond ordinary indented text.This is a $target.
EOHTML } initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =begin figure F
This is a sample figure
EOHTML ###################################### sub initialize { $_[0] = Pod::PseudoPod::HTML->new (); $_[0]->output_string( \$results ); # Send the resulting output to a string $_[1] = ''; return; } Pod-PseudoPod-0.19/t/checker.t 000444 001750 001750 1526 13533030227 17365 0 ustar 00chromatic chromatic 000000 000000 #!/usr/bin/perl -w # t/checker.t - test Checker.pm BEGIN { chdir 't' if -d 't'; } use strict; use lib '../lib'; use Test::More tests => 3; use_ok('Pod::PseudoPod::Checker') or exit; my $parser = Pod::PseudoPod::Checker->new (); isa_ok ($parser, 'Pod::PseudoPod::Checker'); my $results; initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =begin sidebar A sidebar with some content. =end EOPOD is($results, <<'EOERR', "catch mismatched =begin/=end tags"); POD ERRORS Hey! The above document had some coding errors, which are explained below: Around line 5: '=end' without a target? (Should be "=end sidebar") EOERR ###################################### sub initialize { $_[0] = Pod::PseudoPod::Checker->new (); $_[0]->output_string( \$results ); # Send the resulting output to a string $_[1] = ''; return; } Pod-PseudoPod-0.19/t/docbook.t 000444 001750 001750 20771 13533030227 17424 0 ustar 00chromatic chromatic 000000 000000 #!/usr/bin/perl -w # t/docbook.t - check output from Pod::PseudoPod::DocBook BEGIN { chdir 't' if -d 't'; } use strict; use lib '../lib'; use Test::More tests => 27; use_ok('Pod::PseudoPod::DocBook') or exit; my $parser = Pod::PseudoPod::DocBook->new (); isa_ok ($parser, 'Pod::PseudoPod::DocBook'); my $results; initialize($parser, $results); $parser->chapter_num(5); $parser->parse_string_document( <<'EOPOD' ); =head0 Narf! =head1 Poit! =head2 I think so Brain. =head3 I say, Brain... =head3 What do you want to do tonight, Brain? =head4 Zort! =head1 Egads! EOPOD is($results, <<'EODB', "multiple head level output");Egad! You astound me, Brain!
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod literal code with B literal code with bold characters
and some more lines, to test.This is an ordinary for with no end directive.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =for editor This is a PseudoPod for with an end directive. =end EOPOD is($results, <<'EOHTML', "a for with an '=end' directive");This is a PseudoPod for with an end directive.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =for editor This is a PseudoPod for with an end for directive. =end for EOPOD is($results, <<'EOHTML', "a for with an '=end for' directive");This is a PseudoPod for with an end for directive.
EOHTML initialize($parser, $results); $parser->add_css_tags(1); $parser->parse_string_document(<<'EOPOD'); =for editor This is a PseudoPod for with css tags turned on. =end EOPOD is($results, <<'EOHTML', "an ended for with css tags");This is a PseudoPod for with css tags turned on.
This is a PseudoPod for with an end directive.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =for production This is a PseudoPod for with an end directive. =end EOPOD is($results, <<'EOHTML', "production for");This is a PseudoPod for with an end directive.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =for ignore This is a PseudoPod for with an end directive. =end EOPOD is($results, '', "for with 'ignore' target is always ignored"); ###################################### sub initialize { $_[0] = Pod::PseudoPod::HTML->new (); $_[0]->output_string( \$results ); # Send the resulting output to a string $_[1] = ''; return; } Pod-PseudoPod-0.19/t/html.t 000444 001750 001750 17723 13533030227 16753 0 ustar 00chromatic chromatic 000000 000000 #!/usr/bin/perl -w # t/html.t - check output from Pod::PseudoPod::HTML BEGIN { chdir 't' if -d 't'; } use strict; use lib '../lib'; use Test::More tests => 31; use_ok('Pod::PseudoPod::HTML') or exit; my $parser = Pod::PseudoPod::HTML->new (); isa_ok ($parser, 'Pod::PseudoPod::HTML'); my $results; initialize($parser, $results); $parser->parse_string_document( "=head0 Narf!" ); is($results, "Narf!
\n\n", "head0 level output"); initialize($parser, $results); $parser->parse_string_document( "=head1 Poit!" ); is($results, "Poit!
\n\n", "head1 level output"); initialize($parser, $results); $parser->parse_string_document( "=head2 I think so Brain." ); is($results, "I think so Brain.
\n\n", "head2 level output"); initialize($parser, $results); $parser->parse_string_document( "=head3 I say, Brain..." ); is($results, "I say, Brain...
\n\n", "head3 level output"); initialize($parser, $results); $parser->parse_string_document( "=head4 Zort!" ); is($results, "Zort!
\n\n", "head4 level output"); initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod Gee, Brain, what do you want to do tonight? EOPOD is($results, <<'EOHTML', "simple paragraph");Gee, Brain, what do you want to do tonight?
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod B: Now, Pinky, if by any chance you are captured during this mission, remember you are Gunther Heindriksen from Appenzell. You moved to Grindelwald to drive the cog train to Murren. Can you repeat that? P: Mmmm, no, Brain, don't think I can. EOPOD my $html = 'B: Now, Pinky, if by any chance you are captured during this mission, ' . 'remember you are Gunther Heindriksen from Appenzell. You moved to ' . "Grindelwald to drive the cog train to Murren. Can you repeat that?
\n\n" . "P: Mmmm, no, Brain, don't think I can.
\n\n"; is($results, $html, "multiple paragraphs"); initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =over =item * P: Gee, Brain, what do you want to do tonight? =item * B: The same thing we do every night, Pinky. Try to take over the world! =back EOPOD is($results, <<'EOHTML', "simple bulleted list");- P: Gee, Brain, what do you want to do tonight?
- B: The same thing we do every night, Pinky. Try to take over the world!
- 1. P: Gee, Brain, what do you want to do tonight?
- 2. B: The same thing we do every night, Pinky. Try to take over the world!
- Pinky
Gee, Brain, what do you want to do tonight?
- Brain
The same thing we do every night, Pinky. Try to take over the world!
1 + 1 = 2;
2 + 2 = 4;A plain paragraph with a functionname.
A plain paragraph with a (footnote: footnote entry).
EOHTML initialize($parser, $results); $parser->add_body_tags(1); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with body tags turned on. EOPOD is($results, <<"EOHTML", "adding html body tags");A plain paragraph with body tags turned on.
EOHTML initialize($parser, $results); $parser->add_body_tags(1); $parser->add_css_tags(1); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with body tags and css tags turned on. EOPOD is($results, <<"EOHTML", "adding html body tags and css tags");A plain paragraph with body tags and css tags turned on.
EOHTML initialize($parser, $results); $parser->add_css_tags(1); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with aNA plain paragraph with a (footnote: ' . "footnote entry) and css tags.
\n\n"; is($results, $html, "css footnote entity in a paragraph"); initialize($parser, $results); $parser->add_css_tags(1); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with a UA plain paragraph with a ' . "http://test.url.com/stuff/and/junk.txt.
\n\n"; is($results, $html, "URL entity in a paragraph"); initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with a ZA plain paragraph with a .
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with a AA plain paragraph with a link.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with a GA plain paragraph with a superscript.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with a HA plain paragraph with a subscript.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with BA plain paragraph with bold text.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with IA plain paragraph with italic text.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with RA plain paragraph with replaceable text.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod A plain paragraph with a FA plain paragraph with a filename.
EOHTML initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod # this header is very important & don't you forget it my $text = "File is: " .| Cell 1 | Cell 2 |
Table: An Example Table
| Cell 1 | Cell 2 |
| Header 1 | Header 2 |
|---|---|
| Cell 1 | Cell 2 |
Table: An Example Table
| Cell 1 | Cell 2 |
| Cell 1 | Cell 2 |
| This is a really, really long cell. So long, in fact that it wraps right around. | Cell 2 |