Select Code to Download

DBIx::Class::Storage::DBI::_dbh_execute(): DBI Exception: DBD::SQLite:
+:st execute failed: FOREIGN KEY constraint failed [for Statement "DEL
+ETE FROM member WHERE ( id = ? )" with ParamValues: 1=6] at /home/mar
+k/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(
...
    on_update     => "NO ACTION",
  },
);

package Test::Schema::Result::User;

...
  { "foreign.user_id" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

CREATE TABLE member (
        id          INTEGER PRIMARY KEY,
...
    id INTEGER PRIMARY KEY,
    username TEXT
);