| go-perl documentation | Contained in the go-perl distribution. |
GO::Model::GraphNodeInstance - a graph node located in a tree
$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;
}
see GO::Model::Graph
Usage - Returns - GO::Model::Term Args -
see GO::Model::Term
Usage - Returns - int Args -
Usage - Returns - GO::Model::Relationship Args -
| go-perl documentation | Contained in the go-perl distribution. |
# $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;
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 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;