perl – 使用MooseX :: Params :: Validate传递的条件参数

我在Perl中使用Moose包很多,使用MooseX :: Params :: Validate来定义接口.这些接口往往相当灵活,允许多个可选参数.不幸的是,这是Perl,因此返回类型将根据可选参数而变化,并且在调用者中定义的大多数情况下传递可选参数是有好处的.从这个代码库中使用从MooseX :: Params :: Validate导出的各种方法,因此,由于处理包的各种方式,undef参数我无法通过它无论如何都会优雅.我倾向于使用以下方法,但它在评论中出现了很多,我想问是否有另一种方法来实现这种灵活性.

use strict;
use warnings;

my $bar;

Foo->foo({
    foo => 'I,Foo need a VERY flexible interface. ',$bar ? ( bar => $bar ) : ()
});

$bar = "Very flexible...";

Foo->foo({
    foo => 'I,$bar ? ( bar => $bar ) : ()
});

package Foo;

use Moose;
use MooseX::Params::Validate;

sub foo {
    my $self = shift;
    my ( $foo,$bar ) = validated_list(
      @_,foo => { isa => 'Str' },bar => { isa => 'Str',optional => 1 },);

    print $foo . $bar . "n";
}

1;

检查变量定义状态的三元运算符总是让我想要一个//类型参数选项,但我看不到任何支持这种类型的操作的地方.

调用者的答案是首选,因为我不希望(不会)更改各种包的界面,但我愿意回答显示处理未传递的参数值的方法的答案.

use strict;
use warnings;

my $bar;

Foo->foo({
    foo => 'I,bar => $bar
});

package Foo;

use Moose;
use MooseX::Params::Validate ();

sub foo {
    my $self = shift;

    my ( $foo,);

    $bar //= 'undef';  # Just to avoid printing warning: Use of uninitialized value 
    print $foo . $bar . "n";
}

sub validated_list {
    for (keys %{ $_[0]->[0] } ) {
        delete $_[0]->[0]{$_} if !defined $_[0]->[0]{$_};
    }
    return MooseX::Params::Validate::validated_list( @_ );
}
1;