Помимо объединения any существуют еще три: all, one и none. Их смысл понятен из названия.
Объединения главным образом следует использовать с оператором сопоставления с шаблоном (match) ~~, но поскольку он еще не полностью реализован в Pugs, для демонстрации придется довольствоваться простым сравненением ==.
Создадим два объединения any и none:
my $jany = any (1, 3, 5, 7, 9);
my $jnone = none (2, 4, 6, 8);
Теперь, чтобы определить четность числа, достаточно сравнить его с одним из этих объединений:
say ‘even’ if 5 == $jany;
say ‘even’ if 7 == $jnone;
В обоих случаях Perl 6 напечатает ответ even.