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.3
Committed:	Fri Jan 14 17:36:42 2011 UTC (14 years, 3 months ago) by muzaffar
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.2:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	merged SCRAM_V2 branch in 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;