Оценка успеха/неудачи подпрограммы

Sub, которому не нужно возвращать значение, должен заканчиваться

return;

В вашем случае без него вы будете возвращать значение $possible_value, которое выполняется последним. Это не похоже на полезную вещь для возврата.

Предполагая, что вы добавите явный возврат:

Ваш throws_ok тест выглядит нормально. Затем вы должны проверить, правильно ли установлено поле. Ваш тест ok не нужен, так как ваша подпрограмма ничего не вернет.

В этом случае я бы просто проверил правильность установки атрибута объекта. Это все, что делает этот конкретный саб. Если он настроен нормально, саб завершился правильно. Если он не был установлен, что-то пошло не так, прежде чем саб закончился.

my $p='blah'; 
$obj->my_sub($p); 

is $obj->{field}, $p, "my_sub() set the field attr ok";

Было бы лучше, если бы у атрибута field был геттер, чтобы вы не нарушали инкапсуляцию, но я отвлекся.

Perl по умолчанию возвращает результат последнего выполненного кода.

Например:

print main();

sub main {
    my $var = 9 * 7;
}

print выведет 63. Если на ваш код может повлиять вывод данной подпрограммы, вам необходимо установить возвращаемое значение (обычно считается лучшей практикой всегда устанавливать явный возврат в конце подпрограммы/метода).

print main();

sub main {
    my $var = 9 * 7;
    return;
}

print ничего не выведет.

Лично я всегда стараюсь установить возвращаемое значение в зависимости от контекста, к которому будет возвращаться подпрограмма, но если вы пишете код, который будут использовать другие люди, то, как правило, безопаснее просто сделать return;.

Дополнительное пояснение от Perl::Critic (ссылка на конкретную политику):

Подпрограмма «main» не заканчивается «return» в строке 8, рядом с «sub main {».

Подпрограммы::RequireFinalReturn (серьезность: 4)

Требовать, чтобы все подпрограммы завершались явно одним из следующих действий: return',carp', croak',die', exec',exit', goto', or throw'.

Подпрограммы без явных операторов возврата в конце могут сбивать с толку. Может быть сложно определить, каким будет возвращаемое значение.

Кроме того, если программист не хотел, чтобы возвращаемое значение было значительным, и опускает оператор возврата, некоторые внутренние данные подпрограммы могут просочиться наружу. Рассмотрим этот случай:

   package Password;
    # every time the user guesses the password wrong, its value
    # is rotated by one character
    my $password;
    sub set_password {
        $password = shift;
    }
    sub check_password {
        my $guess = shift;
        if ($guess eq $password) {
            unlock_secrets();
        } else {
            $password = (substr $password, 1).(substr $password, 0, 1);
        }
    }
    1;

В этом случае последний оператор в check_password() является присваиванием. Результатом этого присваивания является неявное возвращаемое значение, поэтому неправильное угадывание возвращает правильный пароль! Добавление «возврата»; в конце этой подпрограммы решает проблему.

Единственным допустимым исключением является пустая подпрограмма.

Будьте осторожны при устранении проблем, указанных в настоящей Политике; не ставьте вслепую «возврат»; оператор в конце каждой подпрограммы.