From b96d3c0287b46c5fd30a8c084c28a20723f1e967 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sat, 30 May 2009 11:14:01 +0200
Subject: import

---
 bin/catalyst_graph_dispatcher.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 bin/catalyst_graph_dispatcher.pl

(limited to 'bin')

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