Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Graph / DFS.pm

package Graph::DFS;

use strict;
local $^W = 1;

use Graph::Traversal;

use vars qw(@ISA);
@ISA = qw(Graph::Traversal);

=head1 NAME

Graph::DFS - graph depth-first search

=head1 SYNOPSIS

B<see description>

=head1 DESCRIPTION

=over 4

=cut

=pod

=item new

       $dfs = Graph::DFS->new($G, %param)

       Returns a new depth-first search object for the graph $G
       and the (optional) parameters %param.

=cut

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 } } },
                          @_);
}

=pod

=back

See also C<Graph::Traversal>.

=head1 COPYRIGHT

Copyright 1999, O'Reilly & Associates.

This code is distributed under the same copyright terms as Perl itself.

=cut

1;