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
#	User	Rev	Content
1	sashby	1.2	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;