sub delete_all { my $model = shift; my $table = $model->table; my $db = $model->db_object; if ( $db->vendor eq 'SQLite' ) { $db->execute("DELETE FROM ${table}"); } else { $db->execute("TRUNCATE ${table}"); } } これじゃあダメなのかなぁ…。