t/cdbi/testlib/MyFoo.pm

   1 package # hide from PAUSE
   2     MyFoo;
   3
   4 use base 'MyBase';
   5
   6 use Date::Simple 3.03;
   7
   8 use strict;
   9
  10 __PACKAGE__->set_table();
  11 __PACKAGE__->columns(All => qw/myid name val tdate/);
  12 __PACKAGE__->has_a(
  13   tdate   => 'Date::Simple',
  14   inflate => sub { Date::Simple->new(shift) },
  15   deflate => 'format',
  16 );
  17 #__PACKAGE__->find_column('tdate')->placeholder("IF(1, CURDATE(), ?)");
  18
  19 sub create_sql {
  20   return qq{
  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