package Lingua::ES::Conjugate;

use Carp;
use Storable qw(dclone);

require Exporter;
our @ISA = qw(Exporter);

use warnings;
use strict;

my @AR_present = qw( o as a amos áis an );
my @ER_present = qw( o es e emos éis en );
my @IR_present = qw( o es e imos ís en );

my @AR_preterit = qw( é aste ó amos asteis aron );
my @ER_preterit = qw( í iste ió imos isteis ieron );
my @IR_preterit = @ER_preterit;

my @AR_imperfect = qw( aba abas aba ábamos abais aban );
my @ER_imperfect = qw( ía ías ía íamos íais ían );
my @IR_imperfect = @ER_imperfect;

my @AR_subjunctive = qw( e es e emos éis en );
my @ER_subjunctive = qw( a as a amos áis an );
my @IR_subjunctive = @ER_subjunctive;

my @future = qw( é ás á emos éis án );
my @conditional = qw( ía ías ía íamos íais ían );

my $AR_pastparticiple = 'ado';
my $ER_pastparticiple = 'ido';
my $IR_pastparticiple = $ER_pastparticiple;

my $AR_gerund = 'ando';
my $ER_gerund = 'iendo';
my $IR_gerund = $ER_gerund;

my @AR_imperitive = qw( a ad ); # tu habla, vosostros hablad, need formal and negative
my @ER_imperitive = qw( e ed ); # tu habla, vosostros hablad, need formal and negative
my @IR_imperitive = qw( e id ); # tu habla, vosostros hablad, need formal and negative