Dlaczego nie ma „każdej” metody na sekwencjach Perl6?

Czasami zaczynam pisać łańcuch wywołań metod w Perl 6 REPL, na przykład:

".".IO.dir.grep(...).map(...).

... a potem zdaję sobie sprawę, że to, co chcę zrobić z ostateczną listą, to wydrukować każdy element na osobnej linii. Spodziewałbym się, że sekwencje będą miały coś w rodzaju eachmetody, dzięki czemu mógłbym zakończyć łańcuch .each(*.say), ale nie ma takiej metody, którą mógłbym znaleźć. Zamiast tego muszę wrócić do początku wiersza i dodać .say for. Wydaje się, że przerywa przepływ moich myśli.

To niewielka irytacja, ale uderza mnie to tak rażące pominięcie, że zastanawiam się, czy brakuje mi łatwej alternatywy. Jedyne, o których mogę myśleć, to ».sayi .join("\n").say, ale te pierwsze mogą działać na elementach nie w porządku (jeśli dobrze rozumiem), a drugie konstruuje pojedynczy ciąg znaków, który może być problematycznie duży, w zależności od listy danych wejściowych.

Jak napisałeś w komentarzu, tylko inny .map(*.say)tworzy linię z wartościami True podczas korzystania z REPL. Możesz spróbować wywołać .sinkmetodę po ostatniej instrukcji mapy.

".".IO.dir.grep({$_.contains('e')}).map(*.uc).map(*.say).sink

Możesz rzucić własny.

use MONKEY;

augment class Any 
{ 
    method each( &block )
    {
        for self -> $value { 
            &block( $value );
        }
    }
};

List.^compose;
Seq.^compose;

(1, 2).each({ .say });
(2, 3).map(* + 1).each({ .say });

# 1
# 2
# 3
# 4

Jeśli ci się podoba, masz szansę na skorzystanie z pierwszego modułu CPAN .