import

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);
+}