},
'Pod::Escapes' => {
- 'DISTRIBUTION' => 'NEILB/Pod-Escapes-1.05.tar.gz',
+ 'DISTRIBUTION' => 'NEILB/Pod-Escapes-1.06.tar.gz',
'FILES' => q[cpan/Pod-Escapes],
},
require Exporter;
@ISA = ('Exporter');
-$VERSION = '1.05';
+$VERSION = '1.06';
@EXPORT_OK = qw(
%Code2USASCII
%Name2character
$in = hex $1;
} # else it's decimal, or named
- if($in =~ m/^\d+$/s) {
+ if($in =~ m/^[0-9]+$/s) {
return 0 + $in;
} else {
return $Name2character_number{$in}; # returns undef if unknown
=head1 SEE ALSO
-L<perlpod|perlpod>
+L<Pod::Browser> - a pod web server based on L<Catalyst>.
+
+L<Pod::Checker> - check pod documents for syntax errors.
+
+L<Pod::Coverage> - check if the documentation for a module is comprehensive.
+
+L<perlpod> - description of pod format (for people documenting with pod).
-L<perlpodspec|perlpodspec>
+L<perlpodspec> - specification of pod format (for people processing it).
-L<Text::Unidecode|Text::Unidecode>
+L<Text::Unidecode> - ASCII transliteration of Unicode text.
=head1 REPOSITORY
use strict;
use Test;
+use utf8;
my @them;
-BEGIN { plan('tests' => 41) };
+BEGIN { plan('tests' => 42) };
BEGIN { print "# Perl version $] under $^O\n" }
use Pod::Escapes qw(:ALL);
ok defined $Name2character_number{'eacute'};
ok $Name2character_number{'lt'} eq '60';
+# e2charnum on BENGALI DIGIT SEVEN should return undef
+ok(!defined(e2charnum('৭')));
+
# End