Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
12345678910111213141516171819202122 package # hide from PAUSE OtherFilm;use warnings;use strict;use base 'Film';__PACKAGE__->set_table('Different_Film');sub create_sql { return qq{ title VARCHAR(255), director VARCHAR(80), codirector VARCHAR(80), rating CHAR(5), numexplodingsheep INTEGER, hasvomit CHAR(1) };}1;
package
# hide from PAUSE
OtherFilm;
use
warnings;
strict;
base
'Film'
;
__PACKAGE__->set_table(
'Different_Film'
);
sub
create_sql {
return
qq{
title VARCHAR(255),
director VARCHAR(80),
codirector VARCHAR(80),
rating CHAR(5),
numexplodingsheep INTEGER,
hasvomit CHAR(1)
}
1;