The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
MCMAHON / GraphViz-Data-Structure-0.19 / dotty / 03scalar.data.in 
(name=>'ref to atom',
 code=>'GraphViz::Data::Structure->new(\1,%title%)->graph->as_canon',
)
%%
(name=>'ref to scalar',
 code=>'$a03 = 1; 
        GraphViz::Data::Structure->new(\$a03,%title%)->graph->as_canon',
)
%%
(name=>'ref to ref to scalar',
 code=>'$a03 = 1; 
        $b03 = \$a03; 
        GraphViz::Data::Structure->new(\$b03,%title%)->graph->as_canon',
)
%%
(name=>'ref to self',
 code=>'$a03 = \$a03; 
        GraphViz::Data::Structure->new($a03,%title%)->graph->as_canon',
)
%%
(name=>'ref to ref to self',
 code=>'$a03 = \$a03; 
        $b03 = \$a03; 
        GraphViz::Data::Structure->new(\$b03,%title%)->graph->as_canon',
)
%%
(name=>'twin circular ref',
 code=>'$a03 = \$b03; 
        $b03 = \$a03; 
        GraphViz::Data::Structure->new(\$a03,%title%)->graph->as_canon',
)
%%
(name=>'triple circular ref',
 code=>'$a03 = \$b03; 
        $b03 = \$c03; 
        $c03 = \$a03; 
        GraphViz::Data::Structure->new(\$a03,%title%)->graph->as_canon',
)
%%
(name=>'odd characters',
 code=>'$z="<html><head> ...";
        GraphViz::Data::Structure->new(\$z,%title%)->graph->as_canon',
)