在Perl6::Form中，是否可以在任何字符处换行，而不仅仅是空格？

| Item                                    |
| {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[} |
  @phrase,

以上格式生成，

| Item                                    |
| Word1                                   |
| Super_________long________________word1 |

我想让它把单词本身打断。有可能吗？就像下面这样

| Item                                    |
| Word1 Super_________long_______________ |
| _word1                                  |

另外，在这个例子中，为什么blah2 or 1.3 or 101.0没有与表12中相应的值对齐

my @name=();
my @score=();
my @time=();
my @normalized=();

push(@name,'blah1');
push(@score,'115555555');
push(@time,1.1);
push(@normalized,100);
push(@name,'blah2');
push(@score,'12');
push(@time,1.3);
push(@normalized,101);

print form
    '-------------------------------------------',
    'Name             Score   Time  | Normalized',
    '-------------------------------------------',
    '{[[[[[[[[[[[[}   {[[[}  {II}  |  {]]].[[} ',
     \@name,          \@score,\@time,  \@normalized; 


-------------------------------------------
Name             Score   Time  | Normalized
-------------------------------------------
blah1            1155-  1.1   |   100.0
blah2            55555  1.3   |   101.0
                 12           |

从文档中，我了解到可以使用布局和中断选项来实现所需的行为

print form
{layout=>"tabular"},
{break=>\&break_width},

但是文档中发布的函数有编译问题：

sub break_width {
    my ($data_ref, $width, $ws) = @_;
    for ($$data_ref) {
        # Treat any squeezed or vertical whitespace as a single character
        # (since they'll subsequently be squeezed to a single space)
        my $single_char = qr{ $ws | [\n\r]+ | . }
 
        # Give up if there are no more characters to grab...
        return ("", 0) unless m/\G (single_char{1,$width}) /gcx;
 
        # Squeeze the resultant substring...
        (my $result = $1) =~ s/ $ws | [\n\r] / /gx;
 
        # Check for any more data still to come...
        my $more = m/\G (?= .* \S) /gcx;
 
        # Return the squeezed substring and the "more" indicator...
        return ($result, $more);
    }
}

在修复了这个函数的基本问题之后，我仍然遇到未初始化的$ws。很明显这不是测试代码。我错过了什么吗？