Почему моя подпрограмма Perl возвращает false, даже если параметры действительны?

Question

Я пытаюсь написать функцию, которая проверяет имя пользователя для буквенно-цифрового значения, а в случае отказа он должен войти мое пользовательское сообщение об ошибке и возвращает 0, вызываемой функции вместо фильеры-ков:

sub insertUser{ 
      my ($username, $password, $email, $name) = validate_pos(@_, 
        { type => SCALAR, 
        regex => qr/^\w+$/, 
        on_fail => { $err->error("username validation failed"),return 0 } 
        }, 
        { type => SCALAR }, 
        { type => SCALAR }, 
        { type => SCALAR ,optional => 1,default => 99}); 
      print "$username, $password, $email, $name "; 
} 

С приведенным выше кодом я столкнулся с проблемой, так как она все еще возвращает 0 в случае успеха. Может кто-нибудь, пожалуйста, помогите мне в этом отношении и может ли кто-нибудь объяснить мне, почему это так?

Answer 1

Обратный вызов, связанный с on_fail, не должен возвращать значение. Предполагается, что он будет die.

В Params::Validate documentation, является следующим объяснением on_fail обратного вызова:

on_fail => $callback

Если задано, этот обратный вызов будет называться всякий раз, когда проверка достоверности терпит неудачу. Он будет вызываться с одним параметром , который будет содержать строку , описывающую отказ. Это полезно , если вы хотите, чтобы этот модуль выбрал исключения как объекты, а не как строки , например.

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

По умолчанию используется только функция Carpe с исповедью().

(курсив мой)

Следующий код работает обертывание процедуры проверки в eval блоке:

use strict; 
use warnings; 
use Params::Validate qw{ :all}; 
my $return_value = insertUser('user','password','user@example.com'); #passes 
print "return value: $return_value\n"; 

my $error_return_value = insertUser('user*','password','user@example.com'); 
print "error return value: $error_return_value\n"; 

sub insertUser{ 
    eval{ 
     my ($username, $password, $email, $name) = validate_pos(@_, 
       { 
        type => SCALAR, 
        regex => qr/^\w+$/, 
        on_fail => sub{ die "username validation failed"}, 
       }, 
       { type => SCALAR }, 
       { type => SCALAR }, 
       { type => SCALAR ,optional => 1,default => 99}); 
     print "$username, $password, $email, $name \n"; 
    }; 
    if($@){ 
     return 0; 
    }else{ 
     return 1; 
    } 
} 

Выход из этого:

user, password, user@example.com, 99 
return value: 1 
error return value: 0