寻求类autodie但触发warn而非die的Perl解决方案（无需手动处理）

Perl模块autodie的功能描述为：

用具有词法作用域的、成功执行或退出（die）的函数替代原有函数

现寻求一种类似autodie的解决方案，使其触发warn而非die，且无需手动捕获异常或检查函数返回值，是否可行？

可行，你可以通过自定义词法作用域的函数改写来实现需求，以下是两种实用的实现方式：

1. 简单全局重写（按需使用） #

直接重写目标核心函数，让它们执行失败时触发warn而非终止程序：

use strict;
use warnings;
use subs qw(open close);

# 重写open函数
sub open {
    unless (CORE::open(@_)) {
        warn "Open操作失败: $!";
        return undef;
    }
    return $_[0] if ref($_[0]);
    return 1;
}

# 重写close函数
sub close {
    unless (CORE::close(@_)) {
        warn "Close操作失败: $!";
        return undef;
    }
    return 1;
}

# 测试代码
open my $fh, '<', '不存在的文件.txt';
close $fh;

2. 词法作用域内生效（模拟autodie特性） #

借助Scope::Guard实现仅在指定代码块内生效的改写，离开块后自动恢复原生函数行为：

use strict;
use warnings;
use Scope::Guard;

# 定义创建warn作用域的函数
sub warn_on_fail {
    my @target_funcs = @_;
    my %original_funcs;

    # 保存原生函数引用
    foreach my $func (@target_funcs) {
        $original_funcs{$func} = \&{"CORE::$func"};
        no strict 'refs';
        # 替换为自定义函数
        *{$func} = sub {
            unless ($original_funcs{$func}->(@_)) {
                warn "$func操作失败: $!";
                return undef;
            }
            return wantarray ? @_ : $_[0] if ref($_[0]);
            return 1;
        };
    }

    # 离开作用域时恢复原生函数
    return Scope::Guard->new(sub {
        foreach my $func (@target_funcs) {
            no strict 'refs';
            *{$func} = $original_funcs{$func};
        }
    });
}

# 仅在当前代码块内生效
{
    my $scope_guard = warn_on_fail(qw(open close));
    open my $fh, '<', '不存在的文件.txt';
    close $fh;
}

# 此处恢复原生函数，失败不会触发warn
open my $fh, '<', '另一个不存在的文件.txt';

以上两种方式都无需手动检查返回值或捕获异常，失败时自动触发warn，第二种方法还实现了和autodie一致的词法作用域特性。

内容的提问来源于stack exchange，提问作者mpapec