Используя Chrome Canary, вы можете получить к нему доступ, просмотрев вычисленные стили элемента и включив фильтр Показать все :
...
См. 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 макросов, например)
Я не уверен, что эти вещи можно будет использовать напрямую.
Хорошо! Это то, что я искал - Предупреждение в формате PDF: Test-Tutorial.pdf . Test :: Harness
используется для написания тестов модулей Perl.
$var_to_check =~ /sometest/ or die "bad variable!";
Я обычно добавляю подобные вещи в свой код, а позже использую поиск и замену, чтобы избавиться от них (в производственном коде).
Кроме того, ' eval »можно использовать для запуска раздела кода и захвата ошибок, а также для создания функций обработки исключений. Если вы утверждаете, что значение не равно 0, возможно, вы хотите вызвать исключение и обработать этот случай особым образом?