This file is indexed.

/usr/share/perl5/GraphViz/No.pm is in libgraphviz-perl 2.10-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
61
62
63
64
65
package GraphViz::No;

use strict;
use warnings;
use GraphViz;
use vars qw($VERSION @ISA);

@ISA = qw(GraphViz);

our $VERSION = '2.10';

=head1 NAME

GraphViz::No - subclass of GraphViz with no nodes

=head1 SYNOPSIS

  use GraphViz::No;

  my $g = GraphViz::No->new();
  # methods as for GraphViz

=head1 DESCRIPTION

Graphs produced by GraphViz are occasionally huge, making it hard to
observe the structure. This subclass removes the nodes, so that only
the edges are visible. This allows the structure to stand out.

=head1 METHODS

As for GraphViz.

=cut

sub add_node_munge {
    my $self = shift;
    my $node = shift;

    $node->{label}  = '';
    $node->{height} = 0;
    $node->{width}  = 0;
    $node->{style}  = 'invis';
}

sub add_edge_munge {
    my $self = shift;
    my $edge = shift;

    $edge->{color} = rand() . "," . "1,1";
}

=head1 AUTHOR

Leon Brocard E<lt>F<acme@astray.com>E<gt>

=head1 COPYRIGHT

Copyright (C) 2000-1, Leon Brocard

This module is free software; you can redistribute it or modify it
under the same terms as Perl itself.

=cut

1;