The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
123456789101112131415161718192021 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;
package
# hide from PAUSE
Order;
use
warnings;
strict;
base
'DBIC::Test::SQLite'
;
__PACKAGE__->set_table(
'orders'
);
__PACKAGE__->table_alias(
__PACKAGE__->columns(
Primary
=>
'film'
Others
qw/orders/
sub
create_sql {
return
qq{
film VARCHAR(255),
orders INTEGER
}
1;