This file is indexed.

/usr/share/perl5/Graph/Matrix.pm is in libgraph-perl 1:0.96-2.

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
package Graph::Matrix;

# $SIG{__DIE__ } = sub { use Carp; confess };
# $SIG{__WARN__} = sub { use Carp; confess };

use strict;

sub new {
    my ($class, $g) = @_;
    my @V = $g->vertices;
    my $V = @V;
    my %V; @V{ @V } = 0 .. $#V;
    bless [ [ map { [ ] } 0 .. $#V ], \%V ], $class;
}

sub set {
    my ($m, $u, $v, $val) = @_;
    my ($i, $j) = map { $m->[1]->{ $_ } } ($u, $v);
    $m->[0]->[$i]->[$j] = $val;
}

sub get {
    my ($m, $u, $v) = @_;
    my ($i, $j) = map { $m->[1]->{ $_ } } ($u, $v);
    $m->[0]->[$i]->[$j];
}

1;
__END__
=pod

=head1 NAME

Graph::Matrix - create and manipulate a V x V matrix of graph G

=head1 SYNOPSIS

    use Graph::Matrix;
    use Graph::Directed;
    my $g  = Graph::Directed->new;
    $g->add_...(); # build $g
    my $m = Graph::Matrix->new($g);
    $m->get($u, $v)
    $s->get($u, $v, $val)

=head1 DESCRIPTION

B<This module is meant for internal use by the Graph module.>

=head2 Class Methods

=over 4

=item new($g)

Construct a new Matrix from the Graph $g.

=back

=head2 Object Methods

=over 4

=item get($u, $v)

Return the value at the edge from $u to $v.

=item set($u, $v, $val)

Set the edge from $u to $v to value $val.

=back

=head1 AUTHOR AND COPYRIGHT

Jarkko Hietaniemi F<jhi@iki.fi>

=head1 LICENSE

This module is licensed under the same terms as Perl itself.

=cut