你能循环一个变量中的Perl 6块吗？

Question

我一直想做这样的事情:

my $block := {
    state $n = 0;
    say $n++;
    last if $n > 3;
    };

loop $block;

甚至:

$block.loop;

我不期待这是可能的,但如果是的话肯定会很酷.

我怎样才能找出特定例程的来源？

$ perl6
To exit type 'exit' or '^D'
> &loop.^name
===SORRY!=== Error while compiling:
Undeclared routine:
    loop used at line 1

Answer 1

做$block.loop工作相当容易,可以住在模块土地上:

use MONKEY;
augment class Block {
    method loop($self:) {
        Nil while $self()
    }
}
my $a = { print "a" };
$a.loop  # aaaaaaaaaaaaaaaaaaa (with apologies to Knorkator)

使loop $block工作更加复杂,因为这将涉及对Perl 6语法的动作处理的更改.