exception - 控制或曾经与最后一团糟？

Question

这个循环永远不会停止:

class CX::Vaya does X::Control {
    has $.message
}

loop {
    once {
        CX::Vaya.new( message => "I messed up!" ).throw;
    }
    last;
    CONTROL {
        default {
            say "Controlled { .^name }: { .message }"
        }
    }
}

它一直在写

Controlled CX::Last: <last control exception>
Controlled CX::Last: <last control exception>
Controlled CX::Last: <last control exception>
Controlled CX::Last: <last control exception>
Controlled CX::Last: <last control exception>
Controlled CX::Last: <last control exception>
Controlled CX::Last: <last control exception>
Controlled CX::Last: <last control exception>
...

它可能是 once位，因为带有最后一个的 CONTROL 移相器确实完成了:

loop { say "Hey"; last; CONTROL { default: .message.say } }
# OUTPUT: «Hey␤<last control exception>␤»

但我不确定。

Answer 1

Perl 6 中的循环流控制是使用控制异常实现的。因此，last实际上是在扔CX::Last控制异常。自 CONTROL块用途 default ，因此它捕获了 CX::Last由 last 抛出，这意味着控制永远不会转移出循环。

修复方法是使用 when 指定要捕获的控制异常。 :

loop {
    once {
        CX::Vaya.new( message => "I messed up!" ).throw;
    }
    last;
    CONTROL {
        when CX::Vaya {
            say "Controlled { .^name }: { .message }"
        }
    }
}