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;
|
