diff options
author | franck cuny <franck@lumberjaph.net> | 2009-05-30 11:59:40 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-05-30 11:59:40 +0200 |
commit | e3d0e67e5d44728e3aaa650baae4e849c86a9c87 (patch) | |
tree | 89aa48fd57cc641f6fd67e45f8d2bf592e02af66 | |
parent | add version (diff) | |
download | catalystx-dispatcher-asgraph-e3d0e67e5d44728e3aaa650baae4e849c86a9c87.tar.gz |
order
-rw-r--r-- | lib/CatalystX/Dispatcher/AsGraph.pm | 8 |
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; } } |