# Word.pm
package Word;
use strict;

use Class::Struct;
use WordExposed::Languages;
use WordExposed::LanguagesPrivate::French;    # IT WORKS
use WordExposed::LanguagesPrivate::Italian;   # IT WORKS

struct Word => {
    english      => '$',
    language     => '$',
    translation  => '$',
};

sub set {
    my $self = shift();
    my $english = shift();
    my $language = shift();
    $self->english($english);
    $self->language($language);
    $self->_translate();
}
1;