File Coverage

lib/Locales/DB/LocaleDisplayPattern/Tiny.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	5	6	83.3
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	25	27	92.5

package Locales::DB::LocaleDisplayPattern::Tiny;

use strict;
use warnings;

# Auto generated from CLDR
use if $Locales::_UNICODE_STRINGS, 'utf8';

$Locales::DB::LocaleDisplayPattern::Tiny::VERSION = '0.09';

$Locales::DB::LocaleDisplayPattern::Tiny::cldr_version = '2.0';

my %locale_display_lookup = (
    'ksh' => '{0} en {1}',
    'ja'  => '{0}({1})',
    'zh'  => '{0}（{1}）',
    'ko'  => '{0}({1})',
);

sub get_locale_display_pattern {
    if ( exists $locale_display_lookup{ $_[0] } ) {
        return $locale_display_lookup{ $_[0] };
    }
    else {
        require Locales;
        my ($l) = Locales::split_tag( $_[0] );
        if ( $l ne $_[0] ) {
            return $locale_display_lookup{$l} if exists $locale_display_lookup{$l};
        }
        return "\{0\}\ \(\{1\}\)";
    }
}

1;