use strict;
use warnings;

use GraphViz;
use GraphViz::Data::Grapher;

my %othergraphvizopts = ( compress => 1 );
my $structure = [ 'a', 'b', 'c', { hi => 'there' } ];
my $g = GraphViz->new(sort => 1, %othergraphvizopts);
GraphViz::Data::Grapher::_init($g, $structure);

print $g->as_png;



##</code><code>##

use GraphViz;
use GraphViz::Data::Structure;

my %othergraphvizopts = ( compress => 1 );
my $structure = [ 'a', 'b', 'c', { hi => 'there' } ];
my $g = GraphViz->new(%othergraphvizopts);
my $g1 = GraphViz::Data::Structure->new($structure, GraphViz => $g);
print $g->as_png;