1 2use warnings ; 3use strict ; 4use Data::TreeDumper ; 5 6my $s = 7 { 8 1 => 1, 9 2 => 2, 10 10 => 10, 11 a => 'a', 12 b => 'b', 13 aa => 'aa', 14 c => 'c', 15 reference => [], 16 } ; 17 18$s->{link} = $s->{reference} ; 19 20$Data::TreeDumper::Displaycallerlocation++ ; 21 22print DumpTree($s, 'test', USE_ASCII => 0) ; 23PrintTree($s, 'test', USE_ASCII => 0) ; 24 25PrintTree(27, 'test:') ; 26print DumpTree(27, 'test:') ; 27 28PrintTree(undef, 'test:') ; 29print DumpTree(undef, 'test:') ; 30