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