File Coverage

blib/lib/BioX/SeqUtils/Promoter/Base.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package BioX::SeqUtils::Promoter::Base;
####################################################################
#	               Charles Stephen Embry			   #
#	            MidSouth Bioinformatics Center		   #
#	        University of Arkansas Little Rock	           #
####################################################################
use Class::Std;
use Class::Std::Utils;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.1.1');

our $motifs = ['ATCGATA', 'CCGTTA', 'TATATGG' ];

{
        my %attribute_of  :ATTR( :get   :set   :default<''>    :init_arg );

        sub BUILD {
                my ($self, $ident, $arg_ref) = @_;


                return;
        }

	sub get_default_motifs { return $motifs; }

	sub START {
                my ($self, $ident, $arg_ref) = @_;


                return;
        }

	sub length {
                my ($self, $arg_ref) = @_;
		my $string  = defined $arg_ref->{string} ?  $arg_ref->{string} : '';
		my @letters = split('', $string);
		#tells howlong a sequence is, important for other objects in Promoter module
                return scalar(@letters);
        }
}

1; # Magic true value required at end of module
__END__