summaryrefslogtreecommitdiff
path: root/lib/CatalystX/Dispatcher/AsGraph.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/CatalystX/Dispatcher/AsGraph.pm')
-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;
}
}