Acme-MetaSyntactic-Themes
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/unicode.pm view on Meta::CPAN
our $VERSION = '1.001';
{
# a very basic list
my $data = join "\n",
map { ( "\t\tLATIN CAPITAL LETTER $_", "\t\tLATIN SMALL LETTER $_" ) }
'A' .. 'Z';
# try to find better
if ( $] >= 5.006 && $] < 5.007003 ) {
eval { $data = require 'unicode/Name.pl'; };
}
elsif ( $] >= 5.007003 ) {
eval { $data = require 'unicore/Name.pl'; };
# since v5.11.3, unicore/Name.pl creates subroutines
# they end up in our namespace, so get rid of them
undef *code_point_to_name_special;
undef *name_to_code_point_special;
}
# clean up the list
my %seen;
$data = join ' ',
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.059 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )