blob: fcfc7bc050081eb8e984fa001e6cfd3fb5fd2497 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use strict; use warnings; use GroLUG::M::DB; use DateTime;
my $schema=GroLUG::M::DB->connect('dbi:Pg:dbname=iscritti', 'grolug', '', { RaiseError => 1, PrintError => 0, ShowErrorStatement => 1, TraceLevel => 0 }); my $iscritto=$schema->resultset('GroLUG::M::DB::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}); $schema->commit();
|