Acme-123
view release on metacpan or search on metacpan
lib/Acme/123.pm view on Meta::CPAN
}
my %languages = (
'en' => [qw /one two three four five six seven eight nine ten/],
'fr' => [qw /un deux trois quatre cinq six sept huit neuf dix/],
'sp' => [qw /uno dos tres cuatro cinco seis siete ocho nueve diez/],
'it' => [qw /uno due tre quattro cinque sei sette otto nove dieci/]
);
my @numbers = @{$languages {en}};
sub printnumbers {
foreach (@numbers) {
print "$_ \n";
}
}
sub setLanguage {
my $self = shift;
my $language = shift;
@numbers = @{$languages {$language}};
}
sub getnumbers {
return @numbers;
}
sub new
{
my ($class, %parameters) = @_;
my $self = bless ({}, ref ($class) || $class);
return $self;
}
=head1 NAME
( run in 0.259 second using v1.01-cache-2.11-cpan-a5abf4f5562 )