| Current Path : /usr/share/doc/perl-DBIx-Class/t/cdbi/testlib/ |
| Current File : //usr/share/doc/perl-DBIx-Class/t/cdbi/testlib/Order.pm |
package # hide from PAUSE
Order;
use warnings;
use strict;
use base 'DBIC::Test::SQLite';
__PACKAGE__->set_table('orders');
__PACKAGE__->table_alias('orders');
__PACKAGE__->columns(Primary => 'film');
__PACKAGE__->columns(Others => qw/orders/);
sub create_sql {
return qq{
film VARCHAR(255),
orders INTEGER
};
}
1;