blob: c85843a63708ec9664a3b4404cb958af74597017 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
---
layout: post
title: CatalystX::Dispatcher::AsGraph
summary: In which I wrote a module to visualize routes in Catalyst.
---
This morning I saw [this post](http://marcus.nordaaker.com/awesome-route-graph-with-mojoxroutesasgraph/) from Marcus Ramberg about [MojoX::Routes::AsGraph](http://search.cpan.org/perldoc?MojoX::Routes::AsGraph). I liked the idea. But as I Catalyst instead of Mojo, I thought I could give a try and do the same thing for Catalyst dispatcher, and I've coded CatalystX::Dispatcher::AsGraph. For the moment only private actions are graphed.
<img src='/static/imgs/routes-300x249.png' alt='routes'>
You use it like this: `perl bin/catalyst_graph_dispatcher.pl --appname Arkham --output routes.png`
You can create a simple script to output as text if you prefer:
{% highlight perl %}
#!/usr/bin/perl -w
use strict;
use CatalystX::Dispatcher::AsGraph;
my $graph = CatalystX::Dispatcher::AsGraph->new_with_options();
$graph->run;
print $graph->graph->as_txt;
{% endhighlight %}
The code is on [my git server](http://git.lumberjaph.net/p5-catalystx-dispatcher-asgraph.git/) for the moment.
For thoses who are interested by visualization, I'll publish soon some (at least I think) really nice visualisations about CPAN, Perl, and his community, that we have created at [$work](http://rtgi.fr).
|
