#!/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);
}