summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2009-05-30 11:59:40 +0200
committerfranck cuny <franck@lumberjaph.net>2009-05-30 11:59:40 +0200
commite3d0e67e5d44728e3aaa650baae4e849c86a9c87 (patch)
tree89aa48fd57cc641f6fd67e45f8d2bf592e02af66
parentadd version (diff)
downloadcatalystx-dispatcher-asgraph-e3d0e67e5d44728e3aaa650baae4e849c86a9c87.tar.gz
order
-rw-r--r--lib/CatalystX/Dispatcher/AsGraph.pm8
1 files changed, 4 insertions, 4 deletions
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;
     }
 }