Pod-Plainer-1.04/0000755000175000017500000000000012355602243012556 5ustar robinrobinPod-Plainer-1.04/MANIFEST0000644000175000017500000000037412355602244013714 0ustar robinrobinChanges Makefile.PL MANIFEST Plainer.pm README t/plainer.t t/pod.t t/pod-coverage.t META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) Pod-Plainer-1.04/META.json0000664000175000017500000000164412355602243014206 0ustar robinrobin{ "abstract" : "Perl extension for converting Pod to old-style Pod.", "author" : [ "Robin Barker " ], "dynamic_config" : 1, "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.140640", "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : "2" }, "name" : "Pod-Plainer", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { "Pod::Parser" : "0", "perl" : "5.006000" } } }, "release_status" : "stable", "version" : "1.04" } Pod-Plainer-1.04/Makefile.PL0000644000175000017500000000061112352223137014524 0ustar robinrobinuse 5.006; use strict; use ExtUtils::MakeMaker; WriteMakefile( NAME => 'Pod::Plainer', VERSION_FROM => 'Plainer.pm', ABSTRACT_FROM => 'Plainer.pm', AUTHOR => 'Robin Barker ', INSTALLDIRS => ($] < 5.011 ? 'perl' : 'site'), LICENSE => 'perl', MIN_PERL_VERSION => '5.6.0', PREREQ_PM => { 'Pod::Parser' => 0 }, ); Pod-Plainer-1.04/META.yml0000664000175000017500000000103412355602242014026 0ustar robinrobin--- abstract: 'Perl extension for converting Pod to old-style Pod.' author: - 'Robin Barker ' build_requires: ExtUtils::MakeMaker: '0' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.140640' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: Pod-Plainer no_index: directory: - t - inc requires: Pod::Parser: '0' perl: '5.006000' version: '1.04' Pod-Plainer-1.04/README0000644000175000017500000000143312355601022013431 0ustar robinrobinPod-Plainer version 1.04 ======================== This was a core module in the Perl distribution to aid adoption of extended POD featues. It is no longer needed in the Perl distribution and is being migrated to CPAN. INSTALLATION To install this module type the following: perl Makefile.PL make make test make install DEPENDENCIES This module requires these other modules and libraries: Pod::Parser RECENT CHANGES 1.04 Added META.json; use Test::More 1.03 Removed C COPYRIGHT AND LICENCE Copyright (C) 2009, 2010, 2014 by Robin Barker 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. Pod-Plainer-1.04/Plainer.pm0000644000175000017500000000361112355601350014505 0ustar robinrobinpackage Pod::Plainer; use 5.006; use strict; use warnings; use Pod::Parser; our @ISA = qw(Pod::Parser); our $VERSION = '1.04'; 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(); } 1; __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) 'CEE .. EE' constructs and returns the old(er) style with just 'CEE'; '<' and '>' are replaced by 'EEltE' and 'EEgtE'. 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 'EEltE' and 'EEgtE'. =item simple_delimiters Replace delimiters by 'E' and 'E'. =item textblock Redefine C from L to use C and C. =back =head2 EXPORT None by default. =head1 AUTHOR Robin Barker, rmbarker@cpan.org =head1 SEE ALSO See L. =head1 COPYRIGHT AND LICENSE Copyright (C) 2009, 2010, 2014 by Robin Barker 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 365 2014-07-04 19:39:20Z robin $ Pod-Plainer-1.04/Changes0000644000175000017500000000134712355601067014061 0ustar robinrobinRevision history for Perl extension Pod::Plainer. 1.04 2014-07-04 - added META.json - use Test::More 1.03 2010-08-25 - deleted C to remove dependency on 'if', which is not available in 5.006, as reported in #RT60721. I think C is only necessary for versions that appear in the core. 1.02 2010-02-11 - change email address 1.01 2009-09-20 - added t/pod-coverage.t - added more documentation and Makefile.PL options - resolved CPAN RT #49699 re INSTALLDIRS 1.00 2009-09-13 - added C, updated AUTHOR email 0.01 Sun Sep 13 14:58:42 2009 - original version; created by h2xs 1.23 with options -XAn Pod::Plainer - Plainer.pm t/plainer.t Makefile.PL from perl/ext/Pod-Plainer Pod-Plainer-1.04/t/0000755000175000017500000000000012355602241013017 5ustar robinrobinPod-Plainer-1.04/t/pod.t0000644000175000017500000000037312352223137013771 0ustar robinrobin#!perl use strict; use warnings; use Test::More; eval{ require Test::Pod; VERSION Test::Pod 1.00; import Test::Pod; }; plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; all_pod_files_ok(); # $Id: pod.t 247 2009-09-15 18:33:34Z rmb1 $ Pod-Plainer-1.04/t/pod-coverage.t0000644000175000017500000000051112352223137015554 0ustar robinrobin#!perl use strict; use warnings; use Test::More; eval{ require Test::Pod::Coverage; VERSION Test::Pod::Coverage 1.00; import Test::Pod::Coverage; }; plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@; all_pod_coverage_ok(); # $Id: pod-coverage.t 247 2009-09-15 18:33:34Z rmb1 $ Pod-Plainer-1.04/t/plainer.t0000644000175000017500000000302512355467532014652 0ustar robinrobinuse strict; use warnings; use Test::More; my @data = ; plan tests => 1 + (scalar @data)/2; require_ok('Pod::Plainer'); my $parser = Pod::Plainer->new(); my $header = "=pod\n\n"; my $input = 'plnr_in.pod'; my $output = 'plnr_out.pod'; while( my $data = shift @data ) { my $expected = $header.(shift @data); open(IN, '>', $input) or die $!; print IN $header, $data; close IN or die $!; open IN, '<', $input or die $!; open OUT, '>', $output or die $!; $parser->parse_from_filehandle(\*IN,\*OUT); close IN; open OUT, '<', $output or die $!; my $returned; { local $/; $returned = ; } close OUT; chomp $data; is($returned,$expected,"POD ".$data); } END { 1 while unlink $input; 1 while unlink $output; } # $Id: plainer.t 363 2014-07-04 09:09:41Z robin $ __END__ =head <> now reads in records =head EE now reads in records =item C<-T> and C<-B> not implemented on filehandles =item C<-T> and C<-B> not implemented on filehandles e.g. C<< Foo->bar() >> or C<< $obj->bar() >> e.g. Cbar()> or C<$obj-Ebar()> The C<< => >> operator is mostly just a more visually distinctive The C<=E> operator is mostly just a more visually distinctive C in which case you can use C<*s = uv>. C 0x80> in which case you can use C<*s = uv>. C