Visualizing Paths in MojoMojo


While surfing Perl blogs, I just stumbled across CatalystX::Dispatcher::AsGraph. This module enables one to create a graph of the private actions in their Catalyst application. The documentation is sparse but reading t/05_graph.t got me started. Now I'm ready to use the module to make a graph of routes in the Catalyst application MojoMojo.

The Script

This script will generate a .dot graph file of the MojoMojo private actions:

use strict;
use warnings;
use CatalystX::Dispatcher::AsGraph;
use lib '/path/to/MojoMojo/lib'my $graph = CatalystX::Dispatcher::AsGraph->new(
    appname => 'MojoMojo',
    output => 'MojoMojMojoMojo_graph',
$graph->run;#print $graph->graph->as_ascii;
if (open(my $dot'>''')) {
    print $dot $graph->graph->as_graphviz;

Make an image from the Graph data -- .dot to png

dot -Tpng -o MojoMojo-routes.png

The Result