/usr/share/perl5/GO/Handlers/rdf.pm is in libgo-perl 0.15-5.
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;
|