r57402 - in /branches/upstream/libpod-plainer-perl: ./ current/ current/Changes current/MANIFEST current/META.yml current/Makefile.PL current/Plainer.pm current/README current/t/ current/t/plainer.t current/t/pod-coverage.t current/t/pod.t
dom at users.alioth.debian.org
dom at users.alioth.debian.org
Mon May 3 16:19:55 UTC 2010
Author: dom
Date: Mon May 3 16:19:48 2010
New Revision: 57402
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57402
Log:
[svn-inject] Installing original source of libpod-plainer-perl
Added:
branches/upstream/libpod-plainer-perl/
branches/upstream/libpod-plainer-perl/current/
branches/upstream/libpod-plainer-perl/current/Changes
branches/upstream/libpod-plainer-perl/current/MANIFEST
branches/upstream/libpod-plainer-perl/current/META.yml
branches/upstream/libpod-plainer-perl/current/Makefile.PL
branches/upstream/libpod-plainer-perl/current/Plainer.pm
branches/upstream/libpod-plainer-perl/current/README
branches/upstream/libpod-plainer-perl/current/t/
branches/upstream/libpod-plainer-perl/current/t/plainer.t
branches/upstream/libpod-plainer-perl/current/t/pod-coverage.t
branches/upstream/libpod-plainer-perl/current/t/pod.t
Added: branches/upstream/libpod-plainer-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-plainer-perl/current/Changes?rev=57402&op=file
==============================================================================
--- branches/upstream/libpod-plainer-perl/current/Changes (added)
+++ branches/upstream/libpod-plainer-perl/current/Changes Mon May 3 16:19:48 2010
@@ -1,0 +1,17 @@
+Revision history for Perl extension Pod::Plainer.
+
+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<use deprecate>, 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
Added: branches/upstream/libpod-plainer-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-plainer-perl/current/MANIFEST?rev=57402&op=file
==============================================================================
--- branches/upstream/libpod-plainer-perl/current/MANIFEST (added)
+++ branches/upstream/libpod-plainer-perl/current/MANIFEST Mon May 3 16:19:48 2010
@@ -1,0 +1,9 @@
+Changes
+Makefile.PL
+MANIFEST
+Plainer.pm
+README
+t/plainer.t
+t/pod.t
+t/pod-coverage.t
+META.yml Module meta-data (added by MakeMaker)
Added: branches/upstream/libpod-plainer-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-plainer-perl/current/META.yml?rev=57402&op=file
==============================================================================
--- branches/upstream/libpod-plainer-perl/current/META.yml (added)
+++ branches/upstream/libpod-plainer-perl/current/META.yml Mon May 3 16:19:48 2010
@@ -1,0 +1,23 @@
+--- #YAML:1.0
+name: Pod-Plainer
+version: 1.02
+abstract: Perl extension for converting Pod to old-style Pod.
+author:
+ - Robin Barker <rmbarker at cpan.org>
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ perl: 5.006000
+ Pod::Parser: 0
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.55_02
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Added: branches/upstream/libpod-plainer-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-plainer-perl/current/Makefile.PL?rev=57402&op=file
==============================================================================
--- branches/upstream/libpod-plainer-perl/current/Makefile.PL (added)
+++ branches/upstream/libpod-plainer-perl/current/Makefile.PL Mon May 3 16:19:48 2010
@@ -1,0 +1,16 @@
+use 5.006;
+use strict;
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ NAME => 'Pod::Plainer',
+ VERSION_FROM => 'Plainer.pm',
+ ABSTRACT_FROM => 'Plainer.pm',
+ AUTHOR => 'Robin Barker <rmbarker at cpan.org>',
+
+ INSTALLDIRS => ($] < 5.011 ? 'perl' : 'site'),
+ LICENSE => 'perl',
+ MIN_PERL_VERSION => '5.6.0',
+ PREREQ_PM => { 'Pod::Parser' => 0 },
+);
+
Added: branches/upstream/libpod-plainer-perl/current/Plainer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-plainer-perl/current/Plainer.pm?rev=57402&op=file
==============================================================================
--- branches/upstream/libpod-plainer-perl/current/Plainer.pm (added)
+++ branches/upstream/libpod-plainer-perl/current/Plainer.pm Mon May 3 16:19:48 2010
@@ -1,0 +1,100 @@
+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.02';
+
+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)
+'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 at cpan.org
+
+=head1 SEE ALSO
+
+See L<Pod::Parser>.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2009 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 253 2010-02-11 16:28:10Z rmb1 $
Added: branches/upstream/libpod-plainer-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-plainer-perl/current/README?rev=57402&op=file
==============================================================================
--- branches/upstream/libpod-plainer-perl/current/README (added)
+++ branches/upstream/libpod-plainer-perl/current/README Mon May 3 16:19:48 2010
@@ -1,0 +1,33 @@
+Pod-Plainer version 1.02
+========================
+
+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
+
+COPYRIGHT AND LICENCE
+
+Put the correct copyright and licence information here.
+
+Copyright (C) 2009 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.
+
+
Added: branches/upstream/libpod-plainer-perl/current/t/plainer.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-plainer-perl/current/t/plainer.t?rev=57402&op=file
==============================================================================
--- branches/upstream/libpod-plainer-perl/current/t/plainer.t (added)
+++ branches/upstream/libpod-plainer-perl/current/t/plainer.t Mon May 3 16:19:48 2010
@@ -1,0 +1,57 @@
+#!./perl
+
+use Pod::Plainer;
+my $parser = Pod::Plainer->new();
+my $header = "=pod\n\n";
+my $input = 'plnr_in.pod';
+my $output = 'plnr_out.pod';
+
+my $test = 0;
+print "1..7\n";
+while( <DATA> ) {
+ my $expected = $header.<DATA>;
+
+ open(IN, '>', $input) or die $!;
+ print IN $header, $_;
+ close IN or die $!;
+
+ open IN, '<', $input or die $!;
+ open OUT, '>', $output or die $!;
+ $parser->parse_from_filehandle(\*IN,\*OUT);
+
+ open OUT, '<', $output or die $!;
+ my $returned; { local $/; $returned = <OUT>; }
+
+ unless( $returned eq $expected ) {
+ print map { s/^/\#/mg; $_; }
+ map {+$_} # to avoid readonly values
+ "EXPECTED:\n", $expected, "GOT:\n", $returned;
+ print "not ";
+ }
+ printf "ok %d\n", ++$test;
+ close OUT;
+ close IN;
+}
+
+END {
+ 1 while unlink $input;
+ 1 while unlink $output;
+}
+
+# $Id: plainer.t 247 2009-09-15 18:33:34Z rmb1 $
+
+__END__
+=head <> now reads in records
+=head E<lt>E<gt> 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. C<Foo-E<gt>bar()> or C<$obj-E<gt>bar()>
+The C<< => >> operator is mostly just a more visually distinctive
+The C<=E<gt>> operator is mostly just a more visually distinctive
+C<uv < 0x80> in which case you can use C<*s = uv>.
+C<uv E<lt> 0x80> in which case you can use C<*s = uv>.
+C<time ^ ($$ + ($$ << 15))>), but that isn't necessary any more.
+C<time ^ ($$ + ($$ E<lt>E<lt> 15))>), but that isn't necessary any more.
+The bitwise operation C<<< >> >>>
+The bitwise operation C<E<gt>E<gt>>
Added: branches/upstream/libpod-plainer-perl/current/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-plainer-perl/current/t/pod-coverage.t?rev=57402&op=file
==============================================================================
--- branches/upstream/libpod-plainer-perl/current/t/pod-coverage.t (added)
+++ branches/upstream/libpod-plainer-perl/current/t/pod-coverage.t Mon May 3 16:19:48 2010
@@ -1,0 +1,14 @@
+#!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 $
Added: branches/upstream/libpod-plainer-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-plainer-perl/current/t/pod.t?rev=57402&op=file
==============================================================================
--- branches/upstream/libpod-plainer-perl/current/t/pod.t (added)
+++ branches/upstream/libpod-plainer-perl/current/t/pod.t Mon May 3 16:19:48 2010
@@ -1,0 +1,9 @@
+#!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 $
More information about the Pkg-perl-cvs-commits
mailing list