use strict;
use warnings;

package DNA;

use base "Seq";

sub reverse_complement { 
    my $self = shift;
    
    my $revcomp = $self->get_seq();
    $revcomp =~ tr/ATGC/TACG/;
    
    my $revcomp = reverse($revcomp);
    return $revcomp;

}

sub calculate_mw { 
    my $self = shift;
    ### also do it here
}

1;