File Coverage

blib/lib/Acme/MetaSyntactic/unicode.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Acme::MetaSyntactic::unicode;
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.002';

{
    my $data = do(
        $] < 5.007003
        ? 'unicode/Name.pl'
        : 'unicore/Name.pl'
    );
    use feature 'say';

    # the format of unicore/Name.pl changed in v5.39.10
    my ( $record_sep, $field_sep) =
      $] > 5.031009
      ? ( qr/\n\n/, qr/\n+/ )
      : ( qr/\n/, qr/\t+/ );

    # clean up the list
    my %seen;
    $data = join ' ', grep !$seen{$_}++,    # we might have aliases/duplicates
      map  { s/ \(.*\)//; y/- /_/; $_ }
      grep { $_ ne '' }            # what's this for a character name?
      map { my @F = split /$field_sep/; @F > 2 ? () : $F[1] }    # remove blocks
      split /$record_sep/, $data;

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

1;

__END__