diff options
Diffstat (limited to 'bin')
-rw-r--r-- | bin/catalyst_graph_dispatcher.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/bin/catalyst_graph_dispatcher.pl b/bin/catalyst_graph_dispatcher.pl new file mode 100644 index 0000000..e8fc5c1 --- /dev/null +++ b/bin/catalyst_graph_dispatcher.pl @@ -0,0 +1,11 @@ +#!/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); +} |