Commit | Line | Data |
ea2e61bf |
1 | package MyFoo; |
2 | |
3 | BEGIN { unshift @INC, './t/testlib'; } |
4 | use base 'MyBase'; |
5 | |
6 | use strict; |
7 | |
8 | __PACKAGE__->set_table(); |
9 | __PACKAGE__->columns(All => qw/myid name val tdate/); |
10 | __PACKAGE__->has_a( |
11 | tdate => 'Date::Simple', |
12 | inflate => sub { Date::Simple->new(shift) }, |
13 | deflate => 'format', |
14 | ); |
15 | __PACKAGE__->find_column('tdate')->placeholder("IF(1, CURDATE(), ?)"); |
16 | |
17 | sub create_sql { |
18 | return qq{ |
19 | myid mediumint not null auto_increment primary key, |
20 | name varchar(50) not null default '', |
21 | val char(1) default 'A', |
22 | tdate date not null |
23 | }; |
24 | } |
25 | |
26 | 1; |
27 | |