Perl多行列表初始化中无需显式使用__LINE__获取行号的方法

你遇到的核心问题其实是Perl的编译优化在搞鬼：当你在列表里批量调用行号捕获函数（比如你试的L()）时，Perl会把这些函数调用的执行位置统一优化到列表定义的末尾，而非每个元素所在的实际行，这就导致caller返回的行号要么靠后，要么只有个别条目正确。

下面给你一个简单可靠的解决方案，完全不需要依赖复杂模块或源过滤器：

方案：封装独立的测试用例捕获函数 #

我们可以写一个轻量的test_case函数，每次调用时自动捕获当前行号，同时把测试逻辑打包进去。因为每个函数调用都是独立的执行上下文，Perl不会对它们的行号捕获逻辑做合并优化。

use Test::More;

# 封装测试用例：自动捕获行号，打包测试逻辑
sub test_case {
    my ($test_code) = @_;
    my ($current_line) = (caller)[2];  # 获取当前调用位置的行号
    return [$current_line, $test_code];
}

# 定义测试用例列表——完全不用写__LINE__
my @tests = (
    test_case(sub { 1 == 1 }),          # 这行的行号会被自动捕获
    test_case(sub { 2 + 2 == 4 }),      # 这行的行号
    test_case(sub { "foo" eq "foo" }),  # 这行的行号
    test_case(sub { 0 == 1 }),          # 故意写错的测试，验证行号标记
);

# 执行测试，自动带上行号标识
ok($_->[1]->(), 'line ' . $_->[0]) for @tests;

done_testing();

简化写法（可选） #

如果你觉得写sub { ... }太繁琐，还可以直接把测试表达式传给函数，内部自动包装成子例程：

sub test_case {
    my ($test_expr) = @_;
    my ($current_line) = (caller)[2];
    return [$current_line, sub { $test_expr }];
}

# 定义测试用例会更简洁
my @tests = (
    test_case(1 == 1),
    test_case(2 + 2 == 4),
    test_case("foo" eq "bar"),
);

为什么这个方法有效？ #

Perl的编译优化只会合并同一上下文里的重复操作，但每个test_case调用都是独立的函数执行，它们的caller调用会精准指向自己被编写的那一行，不会被合并到列表的末尾或其他位置。完美避开了你之前遇到的优化问题。

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