Добавьте это в начало вашего скрипта:
use Carp 'verbose';
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
Он создаст трассировку стека для всех фатальных ошибок.
Должно быть:
D code = new D(x.ToString);
-121--2434783- Имя «Foreign key» немного вводит в заблуждение, потому что обычно оно связано с «primary key», который индексируется автоматически. Таким образом, люди могут предположить, что внешний ключ также проиндексирован.
Сделка заключается в том, что «ключ» здесь относится к ограничению. Таким образом, при добавлении внешнего ключа фактически добавляется ограничение. Индекс - это совершенно другая сделка.
-121--4998030-Исследовать модуль Карп:: Всегда .