summaryrefslogtreecommitdiff
path: root/lib
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 /lib
parentadd version (diff)
downloadcatalystx-dispatcher-asgraph-e3d0e67e5d44728e3aaa650baae4e849c86a9c87.tar.gz
order
Diffstat (limited to 'lib')
-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;
}
}