package
# hide from PAUSE
MyStarLink;
BEGIN {
unshift
@INC
,
'./t/testlib'
; }
use
strict;
__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;