note
tobyink
<p>Nice. I've been looking for a solution for a while for resolving this disparity:</p>
<code>
use 5.010;
use List::Util qw(first);
sub sub1 {
first { return 1 } @_;
return 2;
}
sub sub2 {
grep { return 1 } @_;
return 2;
}
say sub1(0);
say sub2(0);
</code>
<p>Given that <c>first</c> and <c>grep</c> are conceptually similar, it is counter-intuitive that <c>return</c> inside them means different things. While prototypes help <c>first</c> <em>look</em> like a built-in list operator, they don't help it <em>act</em> like one.</p>
<p>I've played around with [mod://Scope::Upper] a little to try to come up with a resolution for this, but haven't had any luck so far. (Though as a by-product I managed to come up with [mod://returning] which is pretty fun.) I wonder if <c>last</c> might provide some kind of solution.</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>
995995
995995