如何使Data :: Printer在內部顯示字符串化值？

Question

我有一些複雜的對象結構，我使用Data :: Printer來檢查它們。一個沒有足夠幫助的例子是：當一個對象（容器）的某個字段是另一個對象（子對象）時，該子對象在DDP的輸出中只顯示爲類名。我也希望看到孩子的價值。

讓我們有一個例子：

{ 
    package Child; 
    use Moo; 

    use overload '""' => "stringify"; 

    has 'value', is => 'ro'; 

    sub stringify { 
     my $self = shift; 
     return "<Child:" . $self->value . ">"; 
    } 

} 

{ 
    package Container; 
    use Moo; 

    has 'child', is => 'ro'; 
} 

my $child_x = Child->new(value => 'x'); 
print "stringified child x: $child_x\n"; 

my $child_y = Child->new(value => 'y'); 
print "stringified child y: $child_y\n"; 

my $container_x = Container->new(child => $child_x); 
my $container_y = Container->new(child => $child_y); 

use DDP; 
print "ddp x: " . p($container_x) . "\n"; 
print "ddp y: " . p($container_y) . "\n"; 

輸出：

stringified child x: <Child:x> 
stringified child y: <Child:y> 
ddp x: Container { 
    Parents  Moo::Object 
    public methods (2) : child, new 
    private methods (0) 
    internals: { 
     child Child     # <- note this 
    } 
} 
ddp y: Container { 
    Parents  Moo::Object 
    public methods (2) : child, new 
    private methods (0) 
    internals: { 
     child Child     # <- and this 
    } 
} 

正如你看到的，孩子們都在輸出區分。我希望看到在那個地方的字符串化，除了或不是類名之外。

Answer 1

每the Data::Printer docs，

數據::打印機爲您提供使用過濾器來覆蓋任何 類型的數據顯示能力。這些過濾器放置在散列表中，其中鍵爲 類型或類名稱，值爲 接收兩個參數的匿名子文件：項目本身作爲第一個參數，以及 屬性hashref（以防您的過濾器要讀取從中）。這個 可以讓您快速覆蓋Data :: Printer處理的方式並顯示 數據類型，特別是對象。

Answer 2

戴維指出，我們可以在導入數據::打印機時，定義過濾器：

use DDP filters => { 
    'Child' => sub { "$_[0]" } 
}; 

甚至更​​好的方式是使用_data_printer功能（因爲它是輸入了疼痛過濾器定義我每次導入DDP）：

{ 
    package Child; 
    ... 

    sub _data_printer { 
     my $self = shift; 
     return "$self"; 
    } 
} 

兩種方式顯示在內部將字符串值：

ddp x: Container { 
    Parents  Moo::Object 
    public methods (2) : child, new 
    private methods (0) 
    internals: { 
     child <Child:x> 
    } 
}