(name => 'file glob',
 code => 'my $a = *STDOUT; 
          GraphViz::Data::Structure->new($a,%title%)->graph->as_canon',
)
%%
(name => 'empty glob ref',
 code => 'my $a = \*FOO; 
          GraphViz::Data::Structure->new($a,%title%)->graph->as_canon',
)
%%
(name => 'file glob ref',
 code => 'my $a = \*STDOUT; 
          GraphViz::Data::Structure->new($a,%title%)->graph->as_canon',
)
%%
(name => 'multi glob ref',
 code => 'my ($a,$b,@c,%d); 
          $a=\*Foo::Bar; 
          *Foo::Bar=\&normalize; 
          *Foo::Bar=\$b; 
          $b="test string"; 
          *Foo::Bar = \@c; 
          @c=qw(foo bar baz); 
          *Foo::Bar = \%d; 
          %d = (This=>That,The=>Other);  
          GraphViz::Data::Structure->new(\$a,%title%)->graph->as_canon',
)