GroLUG/lib/GroLUG/M/DB/Iscritto.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

package GroLUG::M::DB::Iscritto; 
use base 'DBIx::Class::Core';
 
__PACKAGE__->load_components(qw(PK::Auto::Pg));
__PACKAGE__->table('iscritti');
__PACKAGE__->add_columns(qw(id nome email attivo note));
__PACKAGE__->set_primary_key('id');
__PACKAGE__->has_many(pagamenti=>'GroLUG::M::DB::Pagamento','iscritto',{order_by => 'data_scadenza desc'});
 
sub scadenza {
    my ($self)=@_;
 
    return $self->pagamenti()->next()->data_scadenza();
}
 
1;