That's only a bonus if you can switch packages without a semicolon.
Oh yeah. Well, no bonus, but it still makes it more readable.
I'm surprised this works.
Me too, but it makes sense. It allows for
our $state = $next_states{$state};
Unfortunally, it's not a general technique.
Oops! Just replace the and op with a list op or replace the sassign op with an aassign op.
(local our $n = shift), ...
or
(local (our $n) = shift) && ...
The former is simpler. The latter has the advantage that it doesn't affect the return value in list context.
|