File Coverage

blib/lib/Emoji/NationalFlag.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	3	4	75.0
condition	2	4	50.0
subroutine	6	6	100.0
pod	2	2	100.0
total	32	36	88.8

package Emoji::NationalFlag;
use strict;
use warnings;
our $VERSION = '0.01';
use Locale::Country 'all_country_codes';

use Exporter 'import';
our @EXPORT_OK = qw(
    code2flag
    flag2code
);

our %A2SYM = map { (chr 0x61 + $_) => (pack U => 0x1f1e6 + $_) } 0 .. 25;

our %FLAG2CODE
    = reverse our %CODE2FLAG
    = map { $_ => join "", map { $A2SYM{$_} } split //, $_ } map { lc($_) } all_country_codes();

sub code2flag {
    my ($code) = @_;
    if (defined(my $flag = $CODE2FLAG{lc($code // '')})) {
        return $flag;
    }
    return;
}

sub flag2code {
    my ($flag) = @_;
    if (defined(my $code = $FLAG2CODE{$flag // ''})) {
        return lc $code;
    }
    return;
}

1;
__END__