GOBO::Annotation - GOBO::Annotation documentation

GOBO documentation Contained in the GOBO distribution.

Index

Code Index:

NAME

Top

GOBO::Annotation

SYNOPSIS

Top

  printf '%s --[%s]--> %s evidence: %s', $s->node->id, $s->relation, $s->target->id,$s->evidence ;

DESCRIPTION

Top

An GOBO::LinkStatement that has GOBO::Evidence attached

Annotations need not be stored in the main ontology GOBO::Graph, but this is possible

Use in GO

In GO, annotations are also thought of as associations between genes and GOBO::TermNode objects. The statement is 'about' a gene, i.e. geneG has_function termF, so the node points to a gene and the target points to a GOBO::TermNode

The relation may be unassigned

Advanced

See http://wiki.geneontology.org/index.php/GAF_2.0

specific_node

In the GO GAF2.0 specification it's possible to enhance a gene annotation by denoting the specific gene product that has the assigned function. This is handled here via the specific_node accessor: e.g.

  printf 'gene: %s gene_product:%s has_function/location: %s', $a->node, $a->specific_node, $a->target;

target_differentia_list

In the GO GAF2.0 specification it's possible to enhance a gene annotation by refining the target term using a list of relational expressions. See:

http://wiki.geneontology.org/index.php/Annotation_Cross_Products

Dual taxa also go here

GOBO documentation Contained in the GOBO distribution. 
package GOBO::Annotation;
use Moose;
use strict;
extends 'GOBO::LinkStatement';
use GOBO::Evidence;

# cardinality?
has evidence => ( is=>'rw', isa=>'GOBO::Evidence');
has specific_node => ( is=>'rw', isa=>'GOBO::Node');
has qualifier_list => ( is=>'rw', isa=>'ArrayRef[GOBO::Node]');
has target_differentia_list => ( is=>'rw', isa=>'ArrayRef[GOBO::ClassExpression]');
has description => (is => 'rw', isa => 'Str');  # TODO : use role?

# alias. TBD - keep?
sub gene {
    shift->node(@_);
}

sub add_target_differentia {
    my $self = shift;
    my $xp = shift;
    if (!$self->target_differentia_list) {
        $self->target_differentia_list([]);
    }
    push(@{$self->target_differentia_list}, $xp);
    return;
}

sub add_qualifier {
    my $self = shift;
    my $xp = shift;
    if (!$self->qualifier_list) {
        $self->qualifier_list([]);
    }
    push(@{$self->qualifier_list}, $xp);
    return;
}


1;