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
#	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;