终端 ANSI 颜色不适用于 Inline::Perl5 (Data::Printer)

Question

以下 Perl 5 脚本：

use strict;
use warnings;

use Data::Printer;
my @a = (1,2,3,4);
p @a;

给出输出：

（注意蓝色），而这个 Perl 6 脚本：

use Data::Printer:from<Perl5>;
my @a = 1,2,3,4;
p @a;

给出输出：

[
    [0] 1,
    [1] 2,
    [2] 3,
    [3] 4
]

但数字没有着色（如上面的 Perl 5 案例）。

系统信息：

$ perl --version
This is perl 5, version 29, subversion 3 (v5.29.3) built for x86_64-linux
$ perl6 -e '.say for $*DISTRO, $*VM, $*PERL.compiler.version'
ubuntu (18.10.Cosmic.Cuttlefish)
moar (2018.11)
v2018.11

Answer 1

这似乎是 version 0.40 of Data::Printer 的问题，这是 metacpan 上的当前版本。如果我安装 version 0.99 from GitHub 我也会用 Perl 6 获得颜色。另见this issue。

我稍微调试了 0.40 版本，似乎从 Perl 5 版本调用 p @a 与从 Perl 6 调用相同的调用之间的唯一区别是 Perl 6 调用是在列表上下文中调用的，所以wantarray 为 Perl 6 调用返回 true，这显然使 Data::Printer 以某种方式关闭着色。