File Coverage

blib/lib/Bio/ViennaNGS/Feature.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	26	61.5

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

package Bio::ViennaNGS::Feature;

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

#use namespace::autoclean;
use Moose;
with 'MooseX::Clone';
use MooseX::InstanceTracking;

extends 'Bio::ViennaNGS::MinimalFeature';

has 'name' => (
	       is  => 'rw',
	       isa => 'Str',
	       required => '1',
	       predicate => 'has_name',
	      );

has 'score' => (
		is => 'rw',
		isa => 'Value',
		default => '0',
		predicate => 'has_score',
	       );

has 'extension' => (
		    is      => 'rw',
		    isa     => 'Str',
		    default => '',
		   );

sub set_Feature{
  my ($self,$chromosome,$start,$end,$name,$score,$strand,$extension) = @_;
  $self->chromosome($chromosome);
  $self->start($start);
  $self->end($end);
  $self->name($name);
  $self->score($score);
  $self->strand($strand);
  $self->extension($extension);
}

no Moose;
#__PACKAGE__=>meta->make_immutable;

1;