Gecko [ porsche-kaitori.click ]

Name	Size	Permission
Coverage	[ DIR ]	drwxr-xr-x
Eventual	[ DIR ]	drwxr-xr-x
POM	[ DIR ]	drwxr-xr-x
Perldoc	[ DIR ]	drwxr-xr-x
Simple	[ DIR ]	drwxr-xr-x
Text	[ DIR ]	drwxr-xr-x
Checker.pm	43.07 KB	-rw-r--r--
Coverage.pm	12.11 KB	-rw-r--r--
Eventual.pm	7.08 KB	-rw-r--r--
Find.pm	15.79 KB	-rw-r--r--
InputObjects.pm	27.63 KB	-rw-r--r--
LaTeX.pm	58.19 KB	-rw-r--r--
Man.pm	70.57 KB	-rw-r--r--
Markdown.pm	30.3 KB	-rw-r--r--
POM.pm	45.62 KB	-rw-r--r--
ParseLink.pm	6.53 KB	-rw-r--r--
ParseUtils.pm	21.35 KB	-rw-r--r--
Parser.pm	66.02 KB	-rw-r--r--
Perldoc.pm	58.45 KB	-rw-r--r--
PlainText.pm	25.55 KB	-rw-r--r--
Plainer.pm	1.91 KB	-rw-r--r--
Readme.pm	10.61 KB	-rw-r--r--
Select.pm	24.3 KB	-rw-r--r--
Simple.pm	51.22 KB	-rw-r--r--
Simple.pod	13.63 KB	-rw-r--r--
Snippets.pm	32.41 KB	-rw-r--r--
Spell.pm	12.11 KB	-rw-r--r--
Strip.pm	2.16 KB	-rw-r--r--
Tests.pm	11.43 KB	-rw-r--r--
Text.pm	34.08 KB	-rw-r--r--
Usage.pm	25.91 KB	-rw-r--r--
Wordlist.pm	10.32 KB	-rw-r--r--

Code Editor : Plainer.pm

package Pod::Plainer;
use 5.006;
use strict;
use warnings;
# use if $] >= 5.011, 'deprecate';
use Pod::Parser;
our @ISA = qw(Pod::Parser);
our $VERSION = '1.03';

our %E = qw( < lt > gt );
 
sub escape_ltgt {
    (undef, my $text) = @_;
    $text =~ s/([<>])/E<$E{$1}>/g;
    $text 
}

sub simple_delimiters {
    (undef, my $seq) = @_;
    $seq -> left_delimiter( '<' ); 
    $seq -> right_delimiter( '>' );  
    $seq;
}

sub textblock {
    my($parser,$text,$line) = @_;
    print {$parser->output_handle()}
	$parser->parse_text(
	    { -expand_text => q(escape_ltgt),
	      -expand_seq => q(simple_delimiters) },
	    $text, $line ) -> raw_text(); 
}

__END__

=head1 NAME

Pod::Plainer - Perl extension for converting Pod to old-style Pod.

=head1 SYNOPSIS

use Pod::Plainer;

my $parser = Pod::Plainer -> new ();
  $parser -> parse_from_filehandle(\*STDIN);

=head1 DESCRIPTION

Pod::Plainer uses Pod::Parser which takes Pod with the (new)
'CE<lt>E<lt> .. E<gt>E<gt>' constructs
and returns the old(er) style with just 'CE<lt>E<gt>';
'<' and '>' are replaced by 'EE<lt>ltE<gt>' and 'EE<lt>gtE<gt>'.

This can be used to pre-process Pod before using tools which do not
recognise the new style Pods.

=head2 METHODS

=over

=item escape_ltgt

Replace '<' and '>' by 'EE<lt>ltE<gt>' and 'EE<lt>gtE<gt>'.

=item simple_delimiters

Replace delimiters by 'E<lt>' and 'E<gt>'.

=item textblock

Redefine C<textblock> from L<Pod::Parser> to use C<escape_ltgt>
and C<simple_delimiters>.

=back

=head2 EXPORT

None by default.

=head1 AUTHOR

Robin Barker, rmbarker@cpan.org

=head1 SEE ALSO

See L<Pod::Parser>.

=head1 COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.1 or,
at your option, any later version of Perl 5 you may have available.

=cut

$Id: Plainer.pm 257 2010-08-25 10:53:14Z robin $

${this.title}

Code Editor : Plainer.pm