use strict;
use warnings;

package Seq;

sub new { 
    my $class = shift;
    my $hashref = {};
    my $self = bless $hashref, $class;

    return $self;
}

sub set_seq { 
    my $self = shift;
    $self->{seq} = shift;
}

sub get_seq { 
    my $self = shift;
    return $self->{seq};
}

sub calculate_mw { 
    die "This abstract function!\n";
}



1;