Как у меня могут быть переменные утверждения в Perl?

Быстрый поиск по CPAN предлагает Carp :: Assert .

См. Carp :: Assert :

 используйте Carp :: Assert;

$ next_sunrise_time = восход ();

# Утверждают, что солнце должно взойти в ближайшие 24 часа.
assert (($ next_sunrise_time - время) <24 * 60 * 60), если DEBUG;

# Подтвердите, что основная кредитная карта вашего клиента активна
affirm {
 мои @cards = @ {$ customer-> credit_cards};
 $ cards [0] -> is_active;
};

В PerlMonks есть сценарий, который вводит быстрый метод утверждения.

Скорость важна, поскольку Perl интерпретируется, и любые встроенные проверки будут влиять на производительность (в отличие от простого C макросов, например)

Я не уверен, что эти вещи можно будет использовать напрямую.

• в установках по умолчанию есть Test :: Harness . Здесь - это учебное пособие для начинающих . Самый последний модуль - TAP :: Harness
• Более медленная версия, о которой вы говорите, - Sub :: Assert

Хорошо! Это то, что я искал - Предупреждение в формате PDF: Test-Tutorial.pdf . Test :: Harness используется для написания тестов модулей Perl.

Умный :: Комментарии хороши.

$var_to_check =~ /sometest/ or die "bad variable!";

Я обычно добавляю подобные вещи в свой код, а позже использую поиск и замену, чтобы избавиться от них (в производственном коде).

Кроме того, ' eval »можно использовать для запуска раздела кода и захвата ошибок, а также для создания функций обработки исключений. Если вы утверждаете, что значение не равно 0, возможно, вы хотите вызвать исключение и обработать этот случай особым образом?