From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

package # hide from PAUSE
MyStar;
BEGIN { unshift @INC, './t/testlib'; }
use base 'MyBase';
use strict;
__PACKAGE__->set_table();
__PACKAGE__->columns(All => qw/starid name/);
__PACKAGE__->has_many(films => [ MyStarLink => 'film' ]);
# sub films { map $_->film, shift->_films }
sub create_sql {
return qq{
starid TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY,
name VARCHAR(255)
};
}
1;