bin/catalyst_graph_dispatcher.pl


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl -w
use strict;
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);
}