package MyFilm;
BEGIN { unshift @INC, './t/cdbi-t/testlib'; }
use base 'MyBase';
use MyStarLink;
use strict;
__PACKAGE__->set_table();
__PACKAGE__->columns(All => qw/filmid title/);
__PACKAGE__->has_many(_stars => 'MyStarLink');
__PACKAGE__->columns(Stringify => 'title');
sub _carp { }
sub stars { map $_->star, shift->_stars }
sub create_sql {
return qq{
filmid TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY,
title VARCHAR(255)
};
}
1;