# | Line 0 | Line 1 | |
---|---|---|
1 | + | package Graph::DFS; |
2 | + | use strict; |
3 | + | local $^W = 1; |
4 | + | use Graph::Traversal; |
5 | + | use vars qw(@ISA); |
6 | + | @ISA = qw(Graph::Traversal); |
7 | + | |
8 | + | sub new |
9 | + | { |
10 | + | my $class = shift; |
11 | + | my $graph = shift; |
12 | + | |
13 | + | Graph::Traversal::new( $class, |
14 | + | $graph, |
15 | + | current => |
16 | + | sub { $_[0]->{ active_list }->[ -1 ] }, |
17 | + | finish => |
18 | + | sub { pop @{ $_[0]->{ active_list } } }, |
19 | + | @_); |
20 | + | } |
21 | + | |
22 | + | 1; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |