| Current Path : /usr/share/doc/perl-DBIx-Class/t/cdbi/testlib/ |
| Current File : //usr/share/doc/perl-DBIx-Class/t/cdbi/testlib/MyStarLink.pm |
package # hide from PAUSE
MyStarLink;
use warnings;
use strict;
use base 'MyBase';
__PACKAGE__->set_table();
__PACKAGE__->columns(All => qw/linkid film star/);
__PACKAGE__->has_a(film => 'MyFilm');
__PACKAGE__->has_a(star => 'MyStar');
sub create_sql {
return qq{
linkid TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY,
film TINYINT NOT NULL,
star TINYINT NOT NULL
};
}
1;