| Subject: | FIRST phaser fires at its position in source, instead of at the start of iteration |
The expected output is for the `(` paren to precede all the output:
use strict;
use warnings;
use 5.022;
use Perl6::Controls;
my @animals = qw/
kitty cat
tiger cat
camelia butterfly
/;
for (@animals) -> $animal, $group {
say " '$animal' => '$group',";
LAST { say ")\n" }
FIRST { say "(\n" }
}
# OUTPUT:
# 'kitty' => 'cat',
# (
#
# 'tiger' => 'cat',
# 'camelia' => 'butterfly',
# )
--
Cheers,
ZZ [ https://metacpan.org/author/ZOFFIX ]