#!/usr/bin/perl -w -T
# test i10n of CAT
# (c) 2007 by Christian Kuelker
# License GPLv2 or later

use CipUX::CAT::I10n;
my @locale = qw(C en_US de_DE fr_FR da);
my @word   = qw(delete firstname);
foreach my $locale (@locale){
    my $obj = CipUX::CAT::I10n->new({locale=>$locale});
    foreach my $word (@word){
        printf("%10s -> %5s (%5s) -> %s\n",$word,$locale,$$obj,$obj->get($word));
    }
}

