表題のとおりです。まだテストをシビアに作り込んでいないので、とりあえず本体のコードを張っておくにとどめておきます。 コピペするときに、最初のバグあり版 0.01 を貼ってしまっていたので、現在の版 0.02 に差し替えておきます。 0.03に。foreign_key_info の中で、指定したプライマリー・キー・テーブルが存在しないときに無駄な処理をしないようにしました。 0.04に。foreign_key_info の @fk から sqlite の管理テーブルを除去するのに map ではなく grep を使うようにしました。 package DBD::SQLite::AddInfoFunc; use strict; use warnings; use DBD::SQLite; our $VERSION = "0.04"; package DBD::SQLite::db; use DBI