如果传入未定义的值,则使用Params::Validate设置默认值

您需要设置$\u0]:

call_me => sub { $_[0] = 99 if not defined $_[0] }

@_对传入的参数具有别名,因此可以将其用作对原始参数的引用。

而且

$args{bar} ||= 99;

将重置条,即使它是0或“”(空字符串),这听起来不像您想要的。使用

$args{bar} //= 99;

不过,如果您使用的是Perl5.10或更高版本,那么您可以做自己想做的事情。

根据您关于不复制默认值的评论,我能想到的最好办法是:

sub foo
{
    unshift @_, bar => undef;
    my %args = validate(@_,
                        {
                            bar => {
                                optional => 1,
                                callbacks => {
                                    call_me => sub { $_[0] = 99 unless defined $_[0] },
                                },
                            },
                        },
                       );
    print Dumper \%args;
}

这似乎管用,但我必须承认——这很难看。