/usr/share/perl5/GO/Handlers/obj_storable.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 | package GO::Handlers::obj_storable;
use base qw(GO::Handlers::obj);
use strict;
use FileHandle;
use Storable qw(store_fd);
sub e_obo {
my $self = shift;
my $fh = $self->fh;
if (!$fh) {
my $f = $self->file;
if ($f) {
$fh = FileHandle->new(">$f") ||
$self->throw("cannot write to: $f");
}
else {
$self->throw("$self requires file or fh");
}
}
my $g = $self->g;
store_fd $g, $fh;
return;
}
1;
|