# New Ticket Created by Richard Hainsworth
# Please include the string: [perl #62280]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=62280 >
Control traits, eg., NEXT, CATCH do not seem to work.
They generate syntax errors.
Control traits not listed in features status list.
I tried the following (result could be done another way, I know):
my @arr = ( 1,2,3,4,5,6 );
my $collect;
for @arr {
NEXT { $collect += $_ }
} while $collect < 7;
say $collect; # should be 10
Is this code correct?
