我正在使用Params::Validate进行验证,但在回调部分而不是定义直接匿名函数,如果我尝试提供对该匿名函数的引用,它会直接跳转到错误记录区域而不在块内打印消息(在传递正确值的情况下)。
use Params::Validate qw(:all);
our $attributeCallback = sub {
my $parameter = shift;
$parameter =~ m/^\w+$/i ;
};
sub getSingleValue {
eval {
my ($domainName, $attribute) = validate_pos( @_,
{
type => SCALAR,
callbacks => {
'Domain name validation failed' => &$attributeCallback
}
},
{
type => SCALAR,
callbacks => {
'Attribute name validation failed' => sub {
$_[0] =~ m/[\w.-]+$/i }
}
}
);
print "domain name is $domainName and attribute is $attribute";
1;
}
or do {
# catch
# Error Logging Area
};
}
记录的实际错误类似于 “未定义的子例程” ......
谁能告诉为什么会这样?