-package # hide from PAUSE
+package # hide from PAUSE
MyFilm;
+use warnings;
+use strict;
+
use base 'MyBase';
use MyStarLink;
-use strict;
-
__PACKAGE__->set_table();
__PACKAGE__->columns(All => qw/filmid title/);
__PACKAGE__->has_many(_stars => 'MyStarLink');
sub stars { map $_->star, shift->_stars }
sub create_sql {
- return qq{
+ return qq{
filmid TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY,
title VARCHAR(255)
};