Acme::MetaSyntactic::unicode - The unicode theme

Acme-MetaSyntactic documentation Contained in the Acme-MetaSyntactic distribution.

Index

Code Index:

NAME

Top

Acme::MetaSyntactic::unicode - The unicode theme

DESCRIPTION

Top

The name of all Unicode characters known to Perl.

Note that since your Perl installation knows all these names, they are not included in the source of this module (that's the whole point).

CONTRIBUTOR

Top

Philippe "BooK" Bruhat.

Thanks to Sébastien Aperghis-Tramoni for his help in finding unicore/Name.pl.

Introduced in version 0.50, published on November 28, 2005.

Updated to support more Perl versions in version 0.51, published on December 5, 2005.

SEE ALSO

Top

Acme::MetaSyntactic, Acme::MetaSyntactic::List.

Acme-MetaSyntactic documentation Contained in the Acme-MetaSyntactic distribution. 
package Acme::MetaSyntactic::unicode;
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );

{
    # 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'; };
    }

    # clean up the list
    $data = join ' ',
        map  { s/ \(.*\)//; y/- /_/; $_ }
        grep { $_ ne '<control>' }    # what's this for a character name?
        map  { my @F = split /\t/; $F[1] ? () : $F[2] }   # remove blocks
        split /\n/, $data;

    __PACKAGE__->init( { names => $data } );
}

1;

__END__


# yep, no __DATA__ this time!