File Coverage

blib/lib/Bio/ViennaNGS/MinimalFeature.pm

Criterion	Covered	Total	%
statement	18	23	78.2
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	24	31	77.4

# -*-CPerl-*-
# Last changed Time-stamp: <2015-02-06 16:28:01 mtw>

package Bio::ViennaNGS::MinimalFeature;

use version; our $VERSION = qv('0.12_15');
use namespace::autoclean;

use Moose::Util::TypeConstraints;
subtype 'PlusOrMinus',
  as 'Str',
  where { /[\+\-\.]/ },
  message { "$_ is neither +/- nor ."};
no Moose::Util::TypeConstraints;

use Moose;
with 'MooseX::Clone';

has 'chromosome' => (
		     is  => 'rw',
		     isa => 'Str',
		     required => 1,
		     predicate => 'has_chromosome',
	     );

has 'start' => (
		is      => 'rw',
		isa     => 'Int',
		required => 1,
		predicate => 'has_start',
	       );

has 'end' => (
	      is      => 'rw',
	      isa     => 'Int',
	      required => 1,
	      predicate => 'has_end',
	     );

has 'strand' => (
		 is      => 'rw',
		 isa     => 'PlusOrMinus',
		 default => '.',
		 predicate => 'has_strand',
		);

sub set_minimalFeature{
  my ($self,$chr,$start,$end,$strand) = @_;
  $self->chromosome($chr);
  $self->start($start);
  $self->end($end);
  $self->strand($strand);
}

no Moose;

1;