[dbsrgits/DBIx-Class.git] / t / testlib / Director.pm

package Director;

BEGIN { unshift @INC, './t/testlib'; }

use strict;
use base 'DBIx::Class::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;
Commit	Line	Data
ea2e61bf	1	package Director;
	2
	3	BEGIN { unshift @INC, './t/testlib'; }
	4
	5	use strict;
	6	use base 'DBIx::Class::Test::SQLite';
	7
	8	__PACKAGE__->set_table('Directors');
	9	__PACKAGE__->columns('All' => qw/ Name Birthday IsInsane /);
	10
	11	sub create_sql {
	12	return qq{
	13	name VARCHAR(80),
	14	birthday INTEGER,
	15	isinsane INTEGER
	16	};
	17	}
	18
	19	1;
	20