Select Code to Download

my $trav = Graph::Traversal::DFS->new($graph, next_alphabetic=>1);
my $v; print "$v\n" while $v = $trav->preorder;
...
c
d
e