view release on metacpan or  search on metacpan

t/locale-memories.t  view on Meta::CPAN

my $lm = Locale::Memories->new();
my $locale = 'zh_tw';
my @m = <DATA>;
chomp @m;

for my $m (@m) {
    my ($msg_id, $msg_str) = split /\t/, $m;
    $lm->index_msg($locale, $msg_id, $msg_str);
}

for my $m ('edit', 'copy', 'ok', 'copy clipboard') {
    my $translated_msg = $lm->translate_msg($locale, $m);
    ok($translated_msg);
}

__END__
Cut	剪下
Copy	複製
Paste	貼上
Ok	確認
Cancel	取消