GraphからGraphViz2経由で画像ファイルを書き出すためにGraph::Visualizeを書いた

githubにのせました。https://github.com/shoheik/Graph-Visualize
下記のようにnewして画像(default png)を吐き出せるモジュールです。

my $g = new Graph;

$g->add_vertices(qw/a b c d e/);
$g->add_edge('a', 'b');
$g->add_edge('b', 'c');
$g->add_edge('b', 'd');
$g->add_edge('a','a');

my $gv = new Graph::Visualize(graph => $g, filename => 'test', dir => "public/" );
$gv->output;