Your IP : 216.73.216.74

Current Path : /usr/share/doc/perl-DBIx-Class/t/cdbi/testlib/
Upload File :
Current File : //usr/share/doc/perl-DBIx-Class/t/cdbi/testlib/Director.pm

package # hide from PAUSE
    Director;

use warnings;
use strict;

use base 'DBIC::Test::SQLite';

__PACKAGE__->set_table('Directors');
__PACKAGE__->columns('All' => qw/ Name Birthday IsInsane /);

sub create_sql {
  return qq{
      name                    VARCHAR(80),
      birthday                INTEGER,
      isinsane                INTEGER
  };
}

1;