Perl 6 и печатные колонки

Question

Есть ли у Perl 6 что-то, что эквивалентно методу Unicode::GCStringcolumns?

Perl 5 Пример:

#!/usr/bin/env perl 
use warnings; 
use strict; 
use 5.10.0; 
use utf8; 
use open qw(:std :utf8); 
use Unicode::GCString; 

my $s = '合'; # U+5408 

say length $s;  # 1 

my $gcs = Unicode::GCString->new($s); 
say $gcs->columns; # 2 

Answer 1

Perl6 имеет встроенную поддержку Unicode, с родной Uni и NFC/NFD/NFKC/NFKD нормированные типов.

Что я смутно понимаю, что метод Unicode :: GCString :: columns определяет поддержку линейного языка восточноазиатского языка. 合 состоит из 2 "слогов" (они называют это «графем кластерами») друг на друга, таким образом, 2 столбца.

Это означает, что perl6 внутри (на уровне MoarVM) имеет доступ к базе данных юникода, где хранятся свойства linebreaking, но, насколько мне известно, в настоящее время нет модуля, такого как Unicode :: UCD, доступного для создания свойств East_Asian_Width для чего-то вроде Unicode :: GCString.

С другой стороны, преобразование Unicode :: LineBreak в perl6 выглядит достаточно легко, доступ к библиотеке sombok через NativeCall.