On 8/30/06, Mark Stosberg <[EMAIL PROTECTED]> wrote:
Sometimes I use 'given' blocks to set a value. To save repeating myself on the right hand side of the given block, I found I kept want to do this: my $foo = given { }
According to S04, given {} is at statement level, so you can't use it directly as an expression. But Perl 6 always allow you to say my $foo = do given {...} As well as my $foo = do if foo {...} else {...}
my $rm = sub { given $rm_param { when Code { $rm_param(self) } when Hash { %rm_param<run_mode> } default { self.query.param($rm_param) } }}();
Apparently ``do'' is a simplified version for this. :) Cheers, Agent