将标量/列表上下文传递给调用的子例程

我试图写一个接受coderef参数的sub。我的sub执行一些初始化,调用coderef,然后执行一些清理。

我需要使用调用sub的相同上下文(标量、列表、空上下文)调用coderef。我唯一能想到的是这样的事情:

sub perform {
    my ($self, $code) = @_;

    # do some initialization...

    my @ret;
    my $ret;

    if (not defined wantarray) {
        $code->();
    } elsif (wantarray) {
        @ret = $code->();
    } else {
        $ret = $code->();
    }

    # do some cleanup...

    if (not defined wantarray) {
        return;
    } elsif (wantarray) {
        return @ret;
    } else {
        return $ret;
    }
}

显然这段代码有很多冗余。有没有办法减少或消除这些冗余?

编辑 后来我意识到我需要跑 $code->() 在一个 eval 块,以便即使代码终止也运行清理。添加eval支持,并结合user502515和cjm的建议,下面是我的想法。

sub perform {
    my ($self, $code) = @_;

    # do some initialization...

    my $w = wantarray;
    return sub {
        my $error = $@;

        # do some cleanup...

        die $error if $error;   # propagate exception
        return $w ? @_ : $_[0];
    }->(eval { $w ? $code->() : scalar($code->()) });
}

这就消除了冗余,但不幸的是,现在控制流有点难以遵循。