Perl 5.12.3 的引用计数问题？

Question

看来它清理垫子太早了：

sub search { 
    my ( $self, $test ) = @_;
    my $where;
    my $found   = 0;
    my $counter = 0;

    $self->descend( pre_each => sub {
        my $lvl = shift;
        my $ev_return 
            = $lvl->each_value( sub {
               $counter++;
            my ( $name, $value ) = @_;
            say "\$name=$name";
            say "\$value=$value";
            return 1 unless $found = $test->( $value );
            $where = { key => $lvl, name => $name, value => $value };
            # when any intermediate function sees QUIT_FLAG, it 
            # knows to return control to the method that called it.
            return QUIT_FLAG; 
        });
        say "\$found=$found";
        say "\$where=$where";
        return $ev_return;      
    });
    say "\$counter=$counter";
    say "\$found=$found";
    say "\$where=$where";
    return unless $found;
    return $where;
}

我得到的是：

...
$found=1
$where=HASH(...)
$counter=0
$found=0
$where=

或者，如果有人能指出我正在做的一些愚蠢的事情，我真的很感激。我什至在第一个闭包和外部闭包之间创建了增量变量，但它们也被重置了。即使在最里面的闭包上设置引用，在指定的子作用域中也什么也得不到！

这里涉及的整个代码有 500 行。包含代码是不切实际的。

Answer 1

如果您能提供一个完整的、可运行的示例，那就太好了。

在黑暗中刺伤：在外部匿名子中额外使用 $found 是否有帮助（例如 $found if 0;）？

Answer 2

不要将 my 与语句修饰符一起使用！

结果发现问题出在一个被调用的范围内。由于忘记了针对使用 my 与语句修饰符的警告，我编写了以下代码：

my $each   = shift if @_ == 1;
my %params = @_ unless $each;

第一次通过 @_ 有一个参数。它将第一个值分配给$each。第二次通过时，由于参数较多，它跳过了my。因此当前作用域中没有声明，因此它只是重用了我上次分配的 sub，并且在 %params 中没有保存任何内容，因为它引用了 $each 有一个值。

很奇怪，但正如 ysth 指出的 perlsyn 警告这种行为。我想我曾经知道这一点，但多年来我已经忘记了。把它切换到

my ( %params, $each );
if ( @_ == 1 ) { 
    $each = shift;
}
else { 
    %params = @_;
}

就成功了。它不仅解决了我使用其他方法遇到的问题，还解决了搜索中的问题。