This file is indexed.

/usr/share/perl5/Graph/Traversal/DFS.pm is in libgraph-perl 1:0.96-1.1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
package Graph::Traversal::DFS;

use strict;

use Graph::Traversal;
use base 'Graph::Traversal';

sub current {
    my $self = shift;
    $self->{ order }->[ -1 ];
}

sub see {
    my $self = shift;
    pop @{ $self->{ order } };
}

*dfs = \&Graph::Traversal::postorder;

1;
__END__
=pod

=head1 NAME

Graph::Traversal::DFS - depth-first traversal of graphs

=head1 SYNOPSIS

    use Graph;
    my $g = Graph->new;
    $g->add_edge(...);
    use Graph::Traversal::DFS;
    my $d = Graph::Traversal::DFS->new($g, %opt);
    $d->dfs; # Do the traversal.

=head1 DESCRIPTION

With this class one can traverse a Graph in depth-first order.

The callback parameters %opt are explained in L<Graph::Traversal>.

=head2 Methods

The following methods are available:

=over 4

=item dfs

Traverse the graph in depth-first order.  Returns all vertices
traversed in post-order.

=back

=head1 SEE ALSO

L<Graph::Traversal>, L<Graph::Traversal::BFS>, L<Graph>.

=cut