perl-5.12.5

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

is($results, <<'EOHTML', "multiple paragraphs"); 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.

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =over

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!

EOPOD

is($results, <<'EOHTML', "simple bulleted list"); <ul>

<li>P: Gee, Brain, what do you want to do tonight?

</li> <li>B: The same thing we do every night, Pinky. Try to take over the world!

</li> </ul>

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =over

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!

EOPOD

is($results, <<'EOHTML', "numbered list"); <ol>

<li>P: Gee, Brain, what do you want to do tonight?

</li> <li>B: The same thing we do every night, Pinky. Try to take over the world!

</li> </ol>

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =over

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!

EOPOD

is($results, <<'EOHTML', "list with text headings"); <dl>

<dt>Pinky</dt> <dd>

Gee, Brain, what do you want to do tonight?

</dd> <dt>Brain</dt> <dd>

The same thing we do every night, Pinky. Try to take over the world!

</dd> </dl>

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =over

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!

EOPOD

is($results, <<'EOHTML', "list with bullet and text headings"); <ul>

<li>Pinky

Gee, Brain, what do you want to do tonight?

</li> <li>Brain

The same thing we do every night, Pinky. Try to take over the world!

</li> </ul>

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =over

Brain <brain@binkyandthebrain.com>
Pinky <pinky@binkyandthebrain.com>

EOPOD

is($results, <<'EOHTML', "bulleted author list"); <ul>

<li>Brain <brain@binkyandthebrain.com>

</li> <li>Pinky <pinky@binkyandthebrain.com>

</li> </ul>

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =over

Pinky

World Domination

Brain

EOPOD

is($results, <<'EOHTML', 'nested lists'); <dl>

<dt>Pinky</dt> <dd>

<dl>

<dt>World Domination</dt> <dd>

</dd> </dl>

</dd> <dt>Brain</dt> <dd>

</dd> </dl>

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =over

Pinky

On the list:

World Domination: Fight the good fight
Go to Europe: (Steve Martin joke)

Brain

Not so much

EOPOD

is($results, <<'EOHTML', 'multiparagraph nested lists'); <dl>

<dt>Pinky</dt> <dd>

On the list:

<dl>

<dt>World Domination</dt> <dd>

Fight the good fight

</dd> <dt>Go to Europe</dt> <dd>

(Steve Martin joke)

</dd> </dl>

</dd> <dt>Brain</dt> <dd>

Not so much

</dd> </dl>

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

  1 + 1 = 2;
  2 + 2 = 4;

EOPOD

is($results, <<'EOHTML', "code block"); <pre><code> 1 + 1 = 2; 2 + 2 = 4;</code></pre>

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with a functionname. EOPOD is($results, <<"EOHTML", "code entity in a paragraph"); A plain paragraph with a <code>functionname</code>.

EOHTML

initialize($parser, $results); $parser->html_header("<html>\n<body>"); $parser->html_footer("</body>\n</html>"); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with body tags turned on. EOPOD is($results, <<"EOHTML", "adding html body tags"); <html> <body>

A plain paragraph with body tags turned on.

</body> </html>

EOHTML

initialize($parser, $results); $parser->html_css('style.css'); $parser->html_header(undef); $parser->html_footer(undef); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with body tags and css tags turned on. EOPOD like($results, qr/<link rel='stylesheet' href='style.css' type='text\/css'>/, "adding html body tags and css tags");

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with non breaking text. EOPOD is($results, <<"EOHTML", "Non breaking text in a paragraph"); A plain paragraph with non breaking text.

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with a Newlines. EOPOD is($results, <<"EOHTML", "Link entity in a paragraph"); A plain paragraph with a <a href="$PERLDOC?Newlines">Newlines</a>.

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with a "Newlines" in perlport. EOPOD is($results, <<"EOHTML", "Link entity in a paragraph"); A plain paragraph with a <a href="$PERLDOC?perlport#Newlines">"Newlines" in perlport</a>.

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with a Boo. EOPOD is($results, <<"EOHTML", "A link in a paragraph"); A plain paragraph with a <a href="http://link.included.here">Boo</a>.

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with a http://link.included.here. EOPOD is($results, <<"EOHTML", "A link in a paragraph"); A plain paragraph with a <a href="http://link.included.here">http://link.included.here</a>.

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with bold text. EOPOD is($results, <<"EOHTML", "Bold text in a paragraph"); A plain paragraph with bold text.

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with italic text. EOPOD is($results, <<"EOHTML", "Italic text in a paragraph"); A plain paragraph with italic text.

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A plain paragraph with a filename. EOPOD is($results, <<"EOHTML", "File name in a paragraph"); A plain paragraph with a filename.

EOHTML

# It's not important that 's (apostrophes) be encoded for XHTML output. initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

  # this header is very important & dont you forget it
  my $text = "File is: " . <FILE>;
EOPOD
is($results, <<"EOHTML", "Verbatim text with encodable entities");
<pre><code>  # this header is very important &amp; dont you forget it
  my \$text = &quot;File is: &quot; . &lt;FILE&gt;;</code></pre>

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A text paragraph using / and | special POD entities.

EOPOD is($results, <<"EOHTML", "Text with decodable entities"); A text paragraph using / and | special POD entities.

EOHTML

initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

A text paragraph using numeric POD entities: <, >.

EOPOD is($results, <<"EOHTML", "Text with numeric entities"); A text paragraph using numeric POD entities: <, >.

EOHTML

SKIP: for my $use_html_entities (0, 1) { if ($use_html_entities and not $Pod::Simple::XHTML::HAS_HTML_ENTITIES) { skip("HTML::Entities not installed", 1); } local $Pod::Simple::XHTML::HAS_HTML_ENTITIES = $use_html_entities; initialize($parser, $results); $parser->parse_string_document(<<'EOPOD'); =pod

  # this header is very important & dont you forget it
  B<my $file = <FILEE<gt> || 'Blank!';>
  my $text = "File is: " . <FILE>;
EOPOD
is($results, <<"EOHTML", "Verbatim text with markup and embedded formatting");
<pre><code>  # this header is very important &amp; dont you forget it
  <b>my \$file = &lt;FILE&gt; || &#39;Blank!&#39;;</b>
  my \$text = &quot;File is: &quot; . &lt;FILE&gt;;</code></pre>

EOHTML }

ok $parser = Pod::Simple::XHTML->new, 'Construct a new parser'; $results = ''; $parser->output_string( \$results ); # Send the resulting output to a string ok $parser->parse_string_document( "=head1 Poit!" ), 'Parse with headers'; like $results, qr{<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />}, 'Should have proper http-equiv meta tag';

# Test the link generation methods. is $parser->resolve_pod_page_link('Net::Ping', 'INSTALL'), "$PERLDOC?Net::Ping#INSTALL", 'POD link with fragment'; is $parser->resolve_pod_page_link('perlpodspec'), "$PERLDOC?perlpodspec", 'Simple POD link'; is $parser->resolve_pod_page_link(undef, 'SYNOPSIS'), '#SYNOPSIS', 'Simple fragment link'; is $parser->resolve_pod_page_link(undef, 'this that'), '#this-that', 'Fragment link with space'; is $parser->resolve_pod_page_link('perlpod', 'this that'), "$PERLDOC?perlpod#this-that", 'POD link with fragment with space';

is $parser->resolve_man_page_link('crontab(5)', 'EXAMPLE CRON FILE'), "${MANURL}5/crontab", 'Man link with fragment'; is $parser->resolve_man_page_link('crontab(5)'), "${MANURL}5/crontab", 'Man link without fragment'; is $parser->resolve_man_page_link('crontab'), "${MANURL}1/crontab", 'Man link without section';

# Make sure that batch_mode_page_object_init() works. ok $parser->batch_mode_page_object_init(0, 0, 0, 0, 6), 'Call batch_mode_page_object_init()'; ok $parser->batch_mode, 'We should be in batch mode'; is $parser->batch_mode_current_level, 6, 'The level should have been set';

######################################

sub initialize { $_[0] = Pod::Simple::XHTML->new (); $_[0]->html_header(""); $_[0]->html_footer(""); $_[0]->output_string( \$results ); # Send the resulting output to a string $_[1] = ''; return; }

7 POD Errors

The following errors were encountered while parsing the POD:

Around line 93:: '=item' outside of any '=over'
Around line 123:: '=item' outside of any '=over'
Around line 153:: '=item' outside of any '=over'
Around line 188:: '=item' outside of any '=over'
Around line 221:: '=item' outside of any '=over'
Around line 246:: '=item' outside of any '=over'
Around line 287:: '=item' outside of any '=over'

To install Env, copy and paste the appropriate command in to your terminal.

cpanm

cpanm Env

CPAN shell

perl -MCPAN -e shell
install Env

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

Module Install Instructions