use strict;
use warnings;
use GroLUG::M::DB;
use DateTime;
{
my $iscritto=GroLUG::M::DB->resultset('Iscritto')->create({
nome => '__tizio',
email => 'tizio@qui',
});
$iscritto->add_to_pagamenti({
data_pagamento=>DateTime->now(),
data_iscrizione=>DateTime->now()->subtract(days=>10),
data_scadenza=>DateTime->now()->subtract(days=>10)->add(years=>1),
prezzo=>50});
$iscritto->add_to_pagamenti({
data_pagamento=>DateTime->now()->subtract(years=>1),
data_iscrizione=>DateTime->now()->subtract(years=>1,days=>22),
data_scadenza=>DateTime->now()->subtract(days=>11),
prezzo=>50});
}
my $iscritto=GroLUG::M::DB->resultset('Iscritto')->search({email=>'tizio@qui'})->next();;
my $last_pag=$iscritto->pagamenti()->next();
print 'Prossima scadenza: ',$last_pag->data_scadenza(),"\n";
GroLUG::M::DB->resultset('Pagamento')->delete();
GroLUG::M::DB->resultset('Iscritto')->delete();