t/cdbi/testlib/MyFoo.pm

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