GroLUG/lib/GroLUG/M/DB/Pagamento.pm


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

package GroLUG::M::DB::Pagamento; 
use base 'DBIx::Class::Core';
use DateTime::Format::Pg;
 
__PACKAGE__->load_components(qw(PK::Auto::Pg));
__PACKAGE__->table('pagamenti');
__PACKAGE__->add_columns(qw(id iscritto data_pagamento data_iscrizione data_scadenza prezzo));
__PACKAGE__->set_primary_key('id');
__PACKAGE__->belongs_to(iscritto=>'GroLUG::M::DB::Iscritto');
 
for my $col (qw(data_pagamento data_iscrizione data_scadenza)) {
    __PACKAGE__->inflate_column(
        $col,
        {
            inflate => sub { DateTime::Format::Pg->parse_datetime(shift) },
            deflate => sub { DateTime::Format::Pg->format_datetime(shift) },
        });
}
 
1;