package Annotation;
require Exporter;


use strict;
use GenomicsUtils;


sub new($;$;$;$;$;$);
# Constructor for Annotation object. Returns Annotation object.
# Parameters:
#   annotationId, description, created, source, orfId
   

sub description();
sub created();
sub source();
sub orfId();
sub version();

sub new($;$;$;$;$;$)
{
    my $self = {};
    bless $self;
    $self->{annotationId_} = shift;
    $self->{description_} = shift;
    $self->{created_} = shift;
    $self->{source_} = shift;
    $self->{orfId_} = shift;
    $self->{version_} = shift;

    return($self);
}


sub description()
{
    my $self = shift;
    return $self->{description_};

}

sub created()
{
    my $self = shift;
    return $self->{created_};
}

sub source()
{
    my $self = shift;
    return $self->{source_};
}

sub orfId()
{
    my $self = shift;
    return $self->{orfId_};
}

sub version()
{
    my $self = shift;
    return $self->{version_};
}

sub toString()
{
    my $self = shift;
    return "[".$self->{orfId_}."] ".$self->{description_};
}

sub DESTROY() 
{
    
}

1;
