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;