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

package Thing;

use warnings;
use strict;

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

Thing->set_table("thing");
Thing->columns(All => qw(id that_thing));

sub create_sql {
    return qq{
        id              INTEGER,
        that_thing      INTEGER
    };
}

1;
Commit	Line	Data
3bec1f52	1	package Thing;
4a233f30	2
	3	use warnings;
	4	use strict;
	5
97d61088	6	use base 'DBIC::Test::SQLite';
3bec1f52	7
	8	Thing->set_table("thing");
	9	Thing->columns(All => qw(id that_thing));
	10
	11	sub create_sql {
	12	return qq{
	13	id INTEGER,
	14	that_thing INTEGER
	15	};
	16	}
	17
	18	1;