# Languages.pm
package WordExposed::Languages;

our @ISA       = qw(Exporter);
our @EXPORT    = qw( _translate );
our @EXPORT_OK = qw();

sub _translate {
    my $self = shift();
    if ($self->language eq 'fr') {
        $self->_traduction();
    } elsif ($self->language eq 'it') {
        $self->_traduzione();
    }
}
1;

# French.pm
package WordExposed::LanguagesPrivate::French;
our @ISA       = qw(Exporter);
our @EXPORT    = qw( _traducion );
our @EXPORT_OK = qw();
sub _traducion {
    my $self = shift();
}
1;

# Italian.pm
package WordExposed::LanguagesPrivate::Italian;
our @ISA       = qw(Exporter);
our @EXPORT    = qw( _traduzione );
our @EXPORT_OK = qw();
sub _traduzione {
    my $self = shift();
}
1;