t/cdbi/testlib/MyFoo.pm

   1 package # hide from PAUSE
   2     MyFoo;
   3
   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