Contextual::Return (was Re: could 'given' blocks have a return value?)

[Trey Harris]

In a message dated Tue, 29 Aug 2006, Mark Stosberg writes:
my $rm = sub { given $rm_param {
       when Code  { $rm_param(self)   }
       when Hash  { %rm_param<run_mode> }
       default    { self.query.param($rm_param) }
   }}();

This is eerily like Contextual::Return, which made me wonder if it's even 
required in Perl 6.

Obviously we can do

    return do given want {
              when :($) { ... }
              ...
    };

But "return do given want" flows so badly, I desperately want some sugar 
for this.  Is there some and I missed it?

Trey