blob: 4b109bd8ac0a3906c656a007fb68debeadf68312 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
package Graph::Traversal::DFS;
use strict;
use Graph::Traversal;
use base 'Graph::Traversal';
sub current {
my $self = shift;
$self->{ order }->[ -1 ];
}
sub see {
my $self = shift;
pop @{ $self->{ order } };
}
*dfs = \&Graph::Traversal::postorder;
1;
__END__
=pod
=head1 NAME
Graph::Traversal::DFS - depth-first traversal of graphs
=head1 SYNOPSIS
use Graph;
my $g = Graph->new;
$g->add_edge(...);
use Graph::Traversal::DFS;
my $d = Graph::Traversal::DFS->new(%opt);
$d->dfs; # Do the traversal.
=head1 DESCRIPTION
With this class one can traverse a Graph in depth-first order.
The callback parameters %opt are explained in L<Graph::Traversal>.
=head2 Methods
The following methods are available:
=over 4
=item dfs
Traverse the graph in depth-first order.
=back
=head1 SEE ALSO
L<Graph::Traversal>, L<Graph::Traversal::BFS>, L<Graph>.
=cut
|
