/usr/share/perl5/GO/Model/GraphNodeInstance.pm is in libgo-perl 0.15-6.
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 | # $Id: GraphNodeInstance.pm,v 1.4 2004/11/29 20:18:16 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::GraphNodeInstance;
=head1 NAME
GO::Model::GraphNodeInstance - a graph node located in a tree
=head1 SYNOPSIS
$it = $graph->create_iterator;
# returns a GO::Model::GraphIterator object
while (my $ni = $it->next_node_instance) {
$depth = $ni->depth;
$term = $ni->term;
$reltype = $ni->parent_rel->type;
printf
"%s %8s Term = %s (%s) // depth=%d\n",
"----" x $depth,
$reltype,
$term->name,
$term->public_acc,
$depth;
}
=head1 DESCRIPTION
see GO::Model::Graph
=cut
use Carp;
use strict;
use Exporter;
use GO::Utils qw(rearrange);
use GO::Model::Term;
use FileHandle;
use Exporter;
use Data::Dumper;
use vars qw(@EXPORT_OK %EXPORT_TAGS);
use base qw(GO::Model::Root Exporter);
sub _valid_params {
return qw(term path depth parent_rel blocked);
}
=head2 term
Usage -
Returns - GO::Model::Term
Args -
see L<GO::Model::Term>
=cut
=head2 depth
Usage -
Returns - int
Args -
=cut
=head2 parent_rel
Usage -
Returns - GO::Model::Relationship
Args -
see L<GO::Model::Relationship>
=cut
#=head2 block
# Usage -
# Returns -
# Args -
#blocking a node instance will stop the graph iterator going below this one
#=cut
#sub block {
# my $self = shift;
# $self->blocked(1);
#}
sub _initialize {
my $self = shift;
$self->SUPER::_initialize(@_);
}
1;
|