#!/usr/bin/perl
use strict;
use warnings;
##
## seq_analysis_modules.pl
##
##   performing several analyses on input DNA sequences
##   and providing all-frames translation.
##
##   For this version, all the functions were moved into a perl module
##
use lib qw( . );
use sequence_analysis;

## Variables Declaration and Initialization

our ($dna_id, $dna_seq, $dna_revseq, $dna_seqlen);


## Main Loop

($dna_id, $dna_seq) = &load_seq();

&spacer();

$dna_seqlen = &seq_stats($dna_id, \$dna_seq);

&revcomplement(\$dna_seq, \$dna_revseq);

&translate(\$dna_seq,    0); # 0 -> FORWARD | 1 -> REVERSE
&translate(\$dna_revseq, 1);

&spacer();

exit(0);