perl - NetAddrダンパー出力

Question

NetAddr::IP::Compact関数を使おうとすると、スクリプトに問題が発生します

my $var = new NetAddr::IP '127.0.0.1/8';
print Dumper $var;

これからの出力は次のとおりです。

$VAR1 = bless({
     'addr' => '',
     'isv6' => 0,
     'mask' => '?????????????'
}, 'NetAddr::IP');

私の質問は、なぜここにアドレスとマスクのフィールドが入力されていないのですか？

Use of uninitialized value in sort at blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/compactref.al) line 737.

Answer 1

Data::Dumperのデフォルト設定はひどいからです。

{
   local $Data::Dumper::Useqq = 1;
   print Dumper $var;
}