perl - 为什么匿名函数引用的 Params::Validate 回调失败？

Question

我正在使用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
    };
}

记录的实际错误类似于 “未定义的子例程” ......

谁能告诉为什么会这样？

Answer 1

{ type => SCALAR, callbacks =>{'Domain name validation failed' => &$attributeCallback } }

$attributeCallback已经是代码参考。我想你只想说

=> $attributeCallback

代替

=> &$attributeCallback

&$attributeCallback将调用该函数，就像说

callbacks => {'Domain name validation failed' => 1 }

Answer 2

它失败的原因是因为您正在调用子例程引用并因此使用它的返回值，而不是传递实际的引用。而不是使用

&$attributeCallback

采用

$attributeCallback