diff options
| -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; } } |