Yes! There is one table, Roster, that does:
package Test::Schema::Result::Roster;
. . .
__PACKAGE__->add_columns(
"id",
{ data_type => "integer", is_auto_increment => 1, is_nullable => 0},
"member_id",
{ data_type => "integer", is_foreign_key => 1, is_nullable => 1 },
);
. . .
__PACKAGE__->belongs_to(
"member",
"Test::Schema::Result::Member",
{ id => "member_id" },
{
is_deferrable => 0,
join_type => "LEFT",
on_delete => "NO ACTION",
on_update => "NO ACTION",
},
);
------------sql------
CREATE TABLE roster (
id INTEGER PRIMARY KEY,
member_id INTEGER REFERENCES member(id)
);