diff options
| author | franck cuny <franck@lumberjaph.net> | 2009-05-30 11:32:44 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2009-05-30 11:32:44 +0200 |
| commit | d7bb51d41d3ae01438e2b510fe5f684915b2bb46 (patch) | |
| tree | 80320115c08e039a160d77866cbaebf9d5d7ec13 /bin/catalyst_graph_dispatcher.pl | |
| parent | import (diff) | |
| download | catalystx-dispatcher-asgraph-d7bb51d41d3ae01438e2b510fe5f684915b2bb46.tar.gz | |
add tests
Diffstat (limited to '')
| -rw-r--r-- | bin/catalyst_graph_dispatcher.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bin/catalyst_graph_dispatcher.pl b/bin/catalyst_graph_dispatcher.pl index e8fc5c1..6c550e4 100644 --- a/bin/catalyst_graph_dispatcher.pl +++ b/bin/catalyst_graph_dispatcher.pl @@ -1,10 +1,10 @@ #!/usr/bin/perl -w use strict; -use lib('/home/franck/code/git/CatalystX-Dispatcher-AsGraph/lib'); use CatalystX::Dispatcher::AsGraph; my $graph = CatalystX::Dispatcher::AsGraph->new_with_options(); $graph->run; + if ( open( my $png, '|-', 'dot -Tpng -o ' . $graph->output ) ) { print $png $graph->graph->as_graphviz; close($png); |