diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-02-09 21:23:21 +0000 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-02-09 21:23:21 +0000 |
commit | 5ce19fcf9b06ef678cf66fa882e5b9296294b8e0 (patch) | |
tree | 91aa4507a7fce471631a80b92ffb7b3c78f62a56 /cpan/Pod-Escapes | |
parent | a48e42054790d7e52df73e8a2c8b120da9ea6dc4 (diff) | |
download | perl-5ce19fcf9b06ef678cf66fa882e5b9296294b8e0.tar.gz |
Update Pod-Escapes to CPAN version 1.05
[DELTA]
1.05 2014-02-09 NEILB
* Added PREREQ_PM, MIN_PERL_VERSION, LICENSE and repo to Makefile.PL
* Made strict- and warnings-clean.
* Fixed syntax error in abstract: RT#49985 from JDHEDDEN
* Fixed typo reported in RT#85374 by dsteinbrunner
* Renamed this file to Changes and reformatted as per CPAN::Changes::Spec
* Deleted META.yml so MakeMaker will generate MYMETA.{yml,json}
* Noted in pod that now being maintained by NEILB
* Added link to github repo in pod
Diffstat (limited to 'cpan/Pod-Escapes')
-rw-r--r-- | cpan/Pod-Escapes/lib/Pod/Escapes.pm | 47 |
1 files changed, 26 insertions, 21 deletions
diff --git a/cpan/Pod-Escapes/lib/Pod/Escapes.pm b/cpan/Pod-Escapes/lib/Pod/Escapes.pm index de4d75a7b8..e3988a8491 100644 --- a/cpan/Pod-Escapes/lib/Pod/Escapes.pm +++ b/cpan/Pod-Escapes/lib/Pod/Escapes.pm @@ -1,11 +1,23 @@ - -require 5; -# The documentation is at the end. -# Time-stamp: "2004-05-07 15:31:25 ADT" package Pod::Escapes; +use strict; +use warnings; +use 5.006; + +use vars qw( + %Code2USASCII + %Name2character + %Name2character_number + %Latin1Code_to_fallback + %Latin1Char_to_fallback + $FAR_CHAR + $FAR_CHAR_NUMBER + $NOT_ASCII + @ISA $VERSION @EXPORT_OK %EXPORT_TAGS +); + require Exporter; @ISA = ('Exporter'); -$VERSION = '1.04'; +$VERSION = '1.05'; @EXPORT_OK = qw( %Code2USASCII %Name2character @@ -19,18 +31,6 @@ $VERSION = '1.04'; #========================================================================== -use strict; -use vars qw( - %Code2USASCII - %Name2character - %Name2character_number - %Latin1Code_to_fallback - %Latin1Char_to_fallback - $FAR_CHAR - $FAR_CHAR_NUMBER - $NOT_ASCII -); - $FAR_CHAR = "?" unless defined $FAR_CHAR; $FAR_CHAR_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHAR_NUMBER; @@ -529,7 +529,7 @@ __END__ =head1 NAME -Pod::Escapes -- for resolving Pod EE<lt>...E<gt> sequences +Pod::Escapes - for resolving Pod EE<lt>...E<gt> sequences =head1 SYNOPSIS @@ -567,7 +567,7 @@ C<e2char('0x2F')>, and C<e2char('057')> all return "/", because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>, and C<EE<lt>057E<gt>>, all mean "/". If the name has no known value (as with a name of "qacute") or is -syntactally invalid (as with a name of "1/4"), this returns undef. +syntactically invalid (as with a name of "1/4"), this returns undef. =item e2charnum($e_content) @@ -579,7 +579,7 @@ C<e2char('0x2F')>, and C<e2char('057')> all return 47, because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>, and C<EE<lt>057E<gt>>, all mean "/", whose Unicode number is 47. If the name has no known value (as with a name of "qacute") or is -syntactally invalid (as with a name of "1/4"), this returns undef. +syntactically invalid (as with a name of "1/4"), this returns undef. =item $Name2character{I<name>} @@ -647,6 +647,10 @@ L<perlpodspec|perlpodspec> L<Text::Unidecode|Text::Unidecode> +=head1 REPOSITORY + +L<https://github.com/neilbowers/Pod-Escapes> + =head1 COPYRIGHT AND DISCLAIMERS Copyright (c) 2001-2004 Sean M. Burke. All rights reserved. @@ -671,12 +675,13 @@ Currently (October 2001), that's these three: Sean M. Burke C<sburke@cpan.org> +Now being maintained by Neil Bowers E<lt>neilb@cpan.orgE<gt> + =cut #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ # What I used for reading the XHTML .ent files: -use strict; my(@norms, @good, @bad); my $dir = 'c:/sgml/docbook/'; my %escapes; |