package Language;

use strict;
use warnings;

use HTML::Entities;

use vars qw/$VERSION/;

$VERSION = '0.01';

my %languages = (
   german => {
      home => 'Startseite
      board => 'Kontaktforum',
      contact => 'Kontakt',
      recommend => 'empfehlen',
      imprint => 'Impressum',
      game => 'Spiel',
      submit => 'Absenden',
      reset=> 'Löschen',
   },
   english => {
   },
   french => {
   },
);

sub new
{
   my $class = shift;
   my $self = ();

   bless $self, $class;

   return $self;
}

sub get
{
   my ($self, $lang, $word) = @_;

   return $languages{$lang}->{$word};
}

sub get_ashtml
{
   return &HTML::Entities::encode_entities(&get(@_));
}

1;