/usr/share/perl5/GO/Parsers/obj_storable_parser.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 | package GO::Parsers::obj_storable_parser;
use GO::Parsers::ParserEventNames;
use strict;
use base qw(GO::Parsers::obj_emitter GO::Parsers::base_parser);
use GO::Model::Graph;
use Storable qw(fd_retrieve);
sub parse_fh {
my ($self, $fh) = @_;
# my $t=time;
# print STDERR "RETRIEVING FROM CACHE $t\n";
my $g = fd_retrieve($fh);
if ($self->handler->isa("GO::Handler::obj")) {
$self->handler->g($g);
$self->start_event(OBO);
$self->end_event(OBO);
}
else {
$self->emit_graph($g);
}
# my $t2 = time;
# my $td = $t2-$t;
# print STDERR "GOT FROM CACHE $t2 [$td]\n";
return $g;
}
1;
|