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