如何在 Perl6 中查看散列的内容（以类似于 Perl 5 模块 Data::Dump 或 Data::Show 的方式）？

在 Perl 5 中，如果我想查看哈希的内容，我可以使用Data::Show https://metacpan.org/pod/Data::Show, Data::Dump https://metacpan.org/pod/Data::Dump, or Data::Dumper https://metacpan.org/pod/Data::Dumper.

例如：

use Data::Show;

my %title_for = (
    'Book 1' => {
        'Chapter 1' => 'Introduction',
        'Chapter 2' => 'Conclusion',
    },
    'Book 2' => {
        'Chapter 1' => 'Intro',
        'Chapter 2' => 'Interesting stuff',
        'Chapter 3' => 'Final words',
   }
);

show(%title_for);

哪个输出：

======(  %title_for  )======================[ 'temp.pl', line 15 ]======

    {
      "Book 1" => { "Chapter 1" => "Introduction", "Chapter 2" => "Conclusion" },
      "Book 2" => {
                    "Chapter 1" => "Intro",
                    "Chapter 2" => "Interesting stuff",
                    "Chapter 3" => "Final words",
                  },
    }

Perl 6 中有等效的东西吗？我想我记得 Damian Conway 在 YAPC 2010 上讨论过这个功能，但后来我丢失了我的笔记，谷歌搜索也没有帮助。

use v6;

my %title_for = (
  "Book 1" => { "Chapter 1" => "Introduction", "Chapter 2" => "Conclusion" },
  "Book 2" => {
                "Chapter 1" => "Intro",
                "Chapter 2" => "Interesting stuff",
                "Chapter 3" => "Final words",
              },
);

%title_for.say;

我发现最接近工作的是%title_for.say。然而，嵌套哈希看起来很混乱：

Book 1 => Chapter 1 => Introduction, Chapter 2 => Conclusion, Book 2 => Chapter 1 => Intro, Chapter 2 => Interesting stuff, Chapter 3 => Final words

我正在使用 Perl6 运行MoarVM http://www.moarvm.com来自2015 年 1 月发行 Rakudo Star http://rakudo.org/downloads/star/.

Perl6 文档 http://doc.perl6.org/language/5to6#Data%3A%3ADumper似乎推荐使用.perl在数据结构上，但看起来漂亮的打印需要额外的工作：

Given:

my @array_of_hashes = (
    { NAME => 'apple',   type => 'fruit' },
    { NAME => 'cabbage', type => 'no, please no' },
);

Perl 5

use Data::Dumper;
$Data::Dumper::Useqq = 1;
print Dumper \@array_of_hashes; # Note the backslash.

Perl 6

say @array_of_hashes.perl; # .perl on the array, not on its reference.