From 0afbfaee75e8480e8e0ed0a3bbd3749a4756f727 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 10 Sep 2010 23:25:10 +0200 Subject: initial import --- ...2009-05-30-catalystx-dispatcher-asgraph.textile | 29 ++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 _posts/2009-05-30-catalystx-dispatcher-asgraph.textile (limited to '_posts/2009-05-30-catalystx-dispatcher-asgraph.textile') diff --git a/_posts/2009-05-30-catalystx-dispatcher-asgraph.textile b/_posts/2009-05-30-catalystx-dispatcher-asgraph.textile new file mode 100644 index 0000000..af46c6b --- /dev/null +++ b/_posts/2009-05-30-catalystx-dispatcher-asgraph.textile @@ -0,0 +1,29 @@ +--- +layout: post +title: CatalystX::Dispatcher::AsGraph +category: perl +--- + +This morning I saw "this post":http://marcus.nordaaker.com/2009/05/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. + +!/static/imgs/routes-300x249.png(routes)! + +You use it like this: + +bc. 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 "github":http://github.com/franckcuny/CatalystX--Dispatcher--AsGraph/tree/master 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. -- cgit v1.2.3