- my $class = shift;
- my $self = {
- greetings => [qw/privet hello salut salutari neata neaţa hola hey hi bonjour niihau wassup sup hallo chikmaa tungjatjeta parev salam namaskaar mingalarba ahoy saluton allo moin aloha namaste shalom ciào ciao servus salve ave merhaba witaj hei hola selam sawubona/, "what's up", 'que tal', 'こんにちは', '你好'],
- @_
- };
-
- bless $self, $class
+ my $class = shift;
+ my $self = {
+ greetings => [
+ qw/privet hello salut salutari neata neaţa neața neatza
+ hola hey hi bonjour wassup sup hallo chikmaa
+ tungjatjeta parev salam namaskaar mingalarba ahoy
+ saluton allo moin aloha namaste shalom ciào ciao servus
+ salve ave merhaba witaj hei hola selam sawubona
+ geodemorgen hoi καλημέρα/,
+ 'what\'s up', 'que tal', 'こんにちは', '你好', 'ni hao',
+ 'добро јутро', 'γεια σας', 'bom dia', 'hyvää huomenta'],
+ @_
+ };
+
+ bless $self, $class