File Coverage

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

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

package BioX::SeqUtils::Promoter::Annotations;
####################################################################
#	               Charles Stephen Embry			   #
#	            MidSouth Bioinformatics Center		   #
#	        University of Arkansas Little Rock	           #
####################################################################
use base qw(BioX::SeqUtils::Promoter::Base);
use Class::Std;
use BioX::SeqUtils::Promoter::Sequence;
use BioX::SeqUtils::Promoter::Sequences;
use Class::Std::Utils;
use Module::Runtime qw(use_module);


use warnings;
use strict;
use Carp;

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

{
	no warnings 'redefine';
	sub new {
		my ($self, $arg_ref) = @_;
		my $type = defined $arg_ref->{type} ?  $arg_ref->{type} : '';
		return use_module('BioX::SeqUtils::Promoter::Annotations::' . $type, 0.1.1)->new( $arg_ref );
	}



}


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