From e3d0e67e5d44728e3aaa650baae4e849c86a9c87 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Sat, 30 May 2009 11:59:40 +0200 Subject: order --- lib/CatalystX/Dispatcher/AsGraph.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib') diff --git a/lib/CatalystX/Dispatcher/AsGraph.pm b/lib/CatalystX/Dispatcher/AsGraph.pm index 6366178..e7bf94b 100644 --- a/lib/CatalystX/Dispatcher/AsGraph.pm +++ b/lib/CatalystX/Dispatcher/AsGraph.pm @@ -23,15 +23,15 @@ class CatalystX::Dispatcher::AsGraph { my $name = $prefix . $parent->getNodeValue || ''; my $node = $self->graph->add_node($name); - for my $child ( $parent->getAllChildren ) { - my $child_node = $self->_new_node( $child, $name . ' -> ' ); - $self->graph->add_edge( $node, $child_node ); - } my $actions = $parent->getNodeValue->actions; for my $action ( keys %{$actions} ) { next if ( ( $action =~ /^_.*/ ) ); $self->graph->add_edge( $node, "[action] " . $action); } + for my $child ( $parent->getAllChildren ) { + my $child_node = $self->_new_node( $child, $name . ' -> ' ); + $self->graph->add_edge( $node, $child_node ); + } return $node; } } -- cgit v1.2.3