File Coverage

blib/lib/Lingua/EN/Pseudolocalize.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	36	36	100.0

package Lingua::EN::Pseudolocalize;
use strict; use warnings; use 5.008;
use Sub::Exporter::Simple qw/convert deconvert/;
use charnames ':full';

# ABSTRACT: Test Unicode support by pretending to speak a different language.

our $lookup = {
    'A' => [
        "\N{LATIN CAPITAL LETTER A WITH GRAVE}",
        "\N{LATIN CAPITAL LETTER A WITH ACUTE}",
        "\N{LATIN CAPITAL LETTER A WITH CIRCUMFLEX}",
        "\N{LATIN CAPITAL LETTER A WITH TILDE}",
        "\N{LATIN CAPITAL LETTER A WITH DIAERESIS}",
        "\N{LATIN CAPITAL LETTER A WITH RING ABOVE}",
        "\N{LATIN CAPITAL LETTER A WITH RING BELOW}",
    ],
    'C' => [ "\N{LATIN CAPITAL LETTER C WITH CEDILLA}", ],
    'D' => [ "\N{LATIN CAPITAL LETTER D WITH STROKE}", ],
    'E' => [
        "\N{LATIN CAPITAL LETTER E WITH GRAVE}",
        "\N{LATIN CAPITAL LETTER E WITH ACUTE}",
        "\N{LATIN CAPITAL LETTER E WITH CIRCUMFLEX}",
        "\N{LATIN CAPITAL LETTER E WITH DIAERESIS}",
        "\N{LATIN CAPITAL LETTER E WITH TILDE BELOW}",
    ],
    'H' => [ "\N{LATIN CAPITAL LETTER H WITH DIAERESIS}", ],
    'I' => [
        "\N{LATIN CAPITAL LETTER I WITH GRAVE}",
        "\N{LATIN CAPITAL LETTER I WITH ACUTE}",
        "\N{LATIN CAPITAL LETTER I WITH CIRCUMFLEX}",
        "\N{LATIN CAPITAL LETTER I WITH DIAERESIS}",
        "\N{LATIN CAPITAL LETTER I WITH INVERTED BREVE}",
    ],
    'L' => [ "\N{LATIN CAPITAL LETTER L WITH MIDDLE DOT}", ],
    'N' => [
        "\N{LATIN CAPITAL LETTER N WITH TILDE}",
        "\N{LATIN CAPITAL LETTER N WITH ACUTE}",
    ],
    'O' => [
        "\N{LATIN CAPITAL LETTER O WITH GRAVE}",
        "\N{LATIN CAPITAL LETTER O WITH ACUTE}",
        "\N{LATIN CAPITAL LETTER O WITH CIRCUMFLEX}",
        "\N{LATIN CAPITAL LETTER O WITH TILDE}",
        "\N{LATIN CAPITAL LETTER O WITH DIAERESIS}",
        "\N{LATIN CAPITAL LETTER O WITH STROKE}",
        "\N{LATIN CAPITAL LETTER O WITH STROKE AND ACUTE}",
    ],
    'R' => [ "\N{LATIN CAPITAL LETTER R WITH DOT BELOW AND MACRON}", ],
    'S' => [ "\N{LATIN CAPITAL LETTER S WITH COMMA BELOW}", ],
    'T' => [ "\N{LATIN CAPITAL LETTER T WITH HOOK}", ],
    'U' => [
        "\N{LATIN CAPITAL LETTER U WITH GRAVE}",
        "\N{LATIN CAPITAL LETTER U WITH ACUTE}",
        "\N{LATIN CAPITAL LETTER U WITH CIRCUMFLEX}",
        "\N{LATIN CAPITAL LETTER U WITH DIAERESIS}",
        "\N{LATIN CAPITAL LETTER U WITH DIAERESIS BELOW}",
    ],
    'Y' => [ "\N{LATIN CAPITAL LETTER Y WITH ACUTE}", ],

    'a' => [
        "\N{LATIN SMALL LETTER A WITH GRAVE}",
        "\N{LATIN SMALL LETTER A WITH ACUTE}",
        "\N{LATIN SMALL LETTER A WITH CIRCUMFLEX}",
        "\N{LATIN SMALL LETTER A WITH TILDE}",
        "\N{LATIN SMALL LETTER A WITH DIAERESIS}",
        "\N{LATIN SMALL LETTER A WITH RING ABOVE}",
        "\N{LATIN SMALL LETTER A WITH HOOK ABOVE}",
    ],
    'b' => [ "\N{LATIN SMALL LETTER B WITH MIDDLE TILDE}", ],
    'c' => [ "\N{LATIN SMALL LETTER C WITH CEDILLA}", ],
    'd' => [ "\N{LATIN SMALL LETTER D WITH CURL}", ],
    'e' => [
        "\N{LATIN SMALL LETTER E WITH GRAVE}",
        "\N{LATIN SMALL LETTER E WITH ACUTE}",
        "\N{LATIN SMALL LETTER E WITH CIRCUMFLEX}",
        "\N{LATIN SMALL LETTER E WITH DIAERESIS}",
        "\N{LATIN SMALL LETTER E WITH INVERTED BREVE}",
    ],
    'i' => [
        "\N{LATIN SMALL LETTER I WITH GRAVE}",
        "\N{LATIN SMALL LETTER I WITH ACUTE}",
        "\N{LATIN SMALL LETTER I WITH CIRCUMFLEX}",
        "\N{LATIN SMALL LETTER I WITH DIAERESIS}",
        "\N{LATIN SMALL LETTER I WITH DIAERESIS AND ACUTE}",
    ],
    'n' => [ "\N{LATIN SMALL LETTER N WITH TILDE}", ],
    'o' => [
        "\N{LATIN SMALL LETTER O WITH GRAVE}",
        "\N{LATIN SMALL LETTER O WITH ACUTE}",
        "\N{LATIN SMALL LETTER O WITH CIRCUMFLEX}",
        "\N{LATIN SMALL LETTER O WITH TILDE}",
        "\N{LATIN SMALL LETTER O WITH DIAERESIS}",
        "\N{LATIN SMALL LETTER O WITH STROKE}",
        "\N{LATIN SMALL LETTER O WITH DOT ABOVE}",
    ],
    'st' => [ "\N{LATIN SMALL LIGATURE ST}", ],
    'th' => [ "\N{LATIN SMALL LETTER TH WITH STRIKETHROUGH}", ],
    'ts' => [ "\N{LATIN SMALL LETTER TS DIGRAPH}", ],
    'u'  => [
        "\N{LATIN SMALL LETTER U WITH GRAVE}",
        "\N{LATIN SMALL LETTER U WITH ACUTE}",
        "\N{LATIN SMALL LETTER U WITH CIRCUMFLEX}",
        "\N{LATIN SMALL LETTER U WITH DIAERESIS}",
        "\N{LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE}",
    ],
    'y' => [
        "\N{LATIN SMALL LETTER Y WITH ACUTE}",
        "\N{LATIN SMALL LETTER Y WITH DIAERESIS}",
    ],
};

sub convert {
   my $str = shift;

    for my $key ( keys %$lookup ) {
        my @list = @{ $lookup->{$key} };
        my $char = $list[ int rand @list ];
        $str =~ s/\Q$key/$char/g;
    }

   return $str
}

sub deconvert {
   my $str = shift;

    for my $key ( keys %$lookup ) {
        for my $char ( @{ $lookup->{$key} } ) {
            $str =~ s/$char/$key/g;
        }
    }

   return $str
}

1;

__END__