in reply to Situation where warning "Found = in conditional, should be" seems obsolete
Are you sure you want to execute last only when $has_even = 1 is true? Using "and" would be confusing if you decide later to refactor the code and suddenly end up with
or maybe the second "and" would be turned to "or", but it would be confusing anyway.$_ % 2 and $has_odd = 0 and last;
More idiomatic way of writing this would be
if you insisted on using no if/unless. I'd probably use$_ % 2 or $has_even = 1, last;
but YMMV.$has_even = 1, last unless $_ % 2;
Update: s/if/unless/. Thanks Athanasius.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
In Section
Seekers of Perl Wisdom