/usr/share/perl5/GO/Model/Modification.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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 | # $Id: Modification.pm,v 1.2 2004/11/24 02:28:01 cmungall Exp $
#
# This GO module is maintained by Chris Mungall <cjm@fruitfly.org>
#
# see also - http://www.geneontology.org
# - http://www.godatabase.org/dev
#
# You may distribute this module under the same terms as perl itself
package GO::Model::Modification;
=head1 NAME
GO::Model::Modification - cross reference to external database
=head1 DESCRIPTION
represents a cross reference to an external database
=cut
use Carp;
use Exporter;
use GO::Utils qw(rearrange);
use GO::Model::Root;
use strict;
use vars qw(@ISA);
@ISA = qw(GO::Model::Root Exporter);
sub _valid_params {
return qw(id type person mod_time rank);
}
=head2 mod_time
Usage -
Returns -
Args -
time in seconds > 1970
=cut
=head2 person
Usage -
Returns -
Args -
=cut
=head2 type
Usage -
Returns -
Args -
=cut
=head2 time_gmtstr
Usage -
Returns -
Args -
=cut
sub time_gmtstr {
my $self=shift;
my $t = gmtime($self->mod_time);
return $t;
}
=head2 pre_term_list
Usage -
Returns -
Args -
=cut
sub pre_term_list {
my $self = shift;
$self->{pre_term_list} = shift if @_;
return $self->{pre_term_list};
}
=head2 post_term_list
Usage -
Returns -
Args -
=cut
sub post_term_list {
my $self = shift;
$self->{post_term_list} = shift if @_;
return $self->{post_term_list};
}
=head2 add_pre_term
Usage -
Returns -
Args -
=cut
sub add_pre_term {
my $self = shift;
if (!$self->pre_term_list) {
$self->pre_term_list([]);
}
push(@{$self->pre_term_list}, shift);
$self->pre_term_list;
}
=head2 add_post_term
Usage -
Returns -
Args -
=cut
sub add_post_term {
my $self = shift;
if (!$self->post_term_list) {
$self->post_term_list([]);
}
push(@{$self->post_term_list}, shift);
$self->post_term_list;
}
1;
|