src/Graph/DFS.pm

package Graph::DFS;
use strict;
local $^W = 1;
use Graph::Traversal;
use vars qw(@ISA);
@ISA = qw(Graph::Traversal);

sub new
   {
   my $class = shift;
   my $graph = shift;
   
   Graph::Traversal::new( $class,
                          $graph,
                          current =>
                          sub { $_[0]->{ active_list }->[ -1 ] },
                          finish  =>
                          sub { pop @{ $_[0]->{ active_list } } },
                          @_);
   }

1;
Revision:	1.2
Committed:	Fri Dec 10 13:41:40 2004 UTC (20 years, 5 months ago) by sashby
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V1_1_7, V1_1_6, V1_1_5, V1_2_0-cand1, V1_1_4, V1_1_3, V1_1_2, V1_1_0_reltag8, V1_1_0_reltag7, V1_1_0_reltag6, V1_1_1, V1_1_0_reltag5, V1_1_0_reltag4, V1_1_0_reltag3, V1_1_0_reltag2, V1_1_0_reltag1, V1_1_0_reltag, V1_0_3-p4, V1_1_0_cand3, V1_1_0_cand2, V1_1_0_cand1, HEAD_SM_071214, forV1_1_0, v103_xml_071106, V1_0_3-p3, V1_0_3-p2, V1_1_0, v110p1, V110p6, V110p5, V110p4, V110p3, before110xmlBRmerge, V110p2, V110p1, V1_0_4p1, V1_0_3-p1, V1_0_3, V1_0_2, V1_0_2_p1, v102p1, V1_0_1, V1_0_0
Branch point for:	forBinLess_SCRAM, HEAD_BRANCH_SM_071214, v200branch, v103_with_xml, v103_branch
Changes since 1.1:	+22 -0 lines
Log Message:	Merged V1_0 branch to HEAD
#	Content
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;