This file is indexed.

/usr/share/perl5/GO/Handlers/rdf.pm is in libgo-perl 0.15-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
# makes objects from parser events

package GO::Handlers::rdf;
use base qw(GO::Handlers::obj);
use FileHandle;
use GO::IO::XML;
use strict;

sub _valid_params { qw(w fh strictorder) }
#sub init {
#    my $self = shift;
#    $self->SUPER::init(@_);
#    my $fh = FileHandle->new;
#    my $fh = \*STDOUT;
#    $self->fh($fh);
#    return;
#}

sub e_obo {
    my $self = shift;
    my $g = $self->g;
    my $xml_out = GO::IO::XML->new(-output=>$self->safe_fh);
    $xml_out->start_document();
    $xml_out->draw_node_graph(-graph=>$g);
    $xml_out->end_document();
    return;
}

1;