Это хороший способ вернуть сообщения об ошибках из подпрограммы в perl?
sub some_subroutine{
# do something
$something = 14;
if(1 == 2){
$_ = "This should not be happening!";
return undef;
}
return $something;
}
my $ret=some_subroutine();
print "ERROR: $_" unless(defined $ret);
Код работает нормально (в параллельном мире, где 1 == 2
), но с помощью $_
для возврата сообщения об ошибке является хорошим способом? Я не нашел никакой документации относительно использования $_
для таких целей.
Спасибо!