DBIx::Class::Storage::DBI::_dbh_execute(): DBI Exception: DBD::SQLite::st execute failed: FOREIGN KEY constraint failed [for Statement "DELETE FROM member WHERE ( id = ? )" with ParamValues: 1=6] at /home/mark/80-004 Test/script/../lib/Test/Controller/Member/Manage.pm line 91
####
my $member_obj = $c->model('DB::Member')->find({ id => $member_id });
$member_obj->delete;
####
package Test::Schema::Result::Member;
. . .
__PACKAGE__->add_columns(
"id",
{ data_type => "integer", is_auto_increment => 1, is_nullable => 0},
"user_id",
{ data_type => "integer", is_foreign_key => 1, is_nullable => 1 },
__PACKAGE__->belongs_to(
"user",
"Test::Schema::Result::User",
{ id => "user_id" },
{
is_deferrable => 0,
join_type => "LEFT",
on_delete => "NO ACTION",
on_update => "NO ACTION",
},
);
####
package Test::Schema::Result::User;
. . .
__PACKAGE__->has_many(
"members",
"Test::Schema::Result::Member",
{ "foreign.user_id" => "self.id" },
{ cascade_copy => 0, cascade_delete => 0 },
);
####
CREATE TABLE member (
id INTEGER PRIMARY KEY,
user_id INTEGER REFERENCES user(id)
);
CREATE TABLE user (
id INTEGER PRIMARY KEY,
username TEXT
);