File Coverage

blib/lib/Bio/ViennaNGS/FeatureChain.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	36	44.4

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

package Bio::ViennaNGS::FeatureChain;

use version; our $VERSION = qv('0.12_15');
use Moose;
with 'MooseX::Clone';
use MooseX::InstanceTracking;

has 'type' => (
	       is => 'rw',
	       isa => 'Str', # [exon,intron,SJ,promoter,TSS,...]
	      );

has 'chain' => (
		is => 'rw',
		traits => ['Array', 'Clone' => {to=>'ArrayRef'}],
		isa => 'ArrayRef[Bio::ViennaNGS::Feature]',
		required => '1',
		builder => 'build_chain',
		auto_deref => 1
		);

sub build_chain {
  my $self = shift;
  my $featurelist = shift; ## We expect features to be pre-sorted, So
                           ## I simply read in an arrayref of Feature
                           ## Objects
  return ($featurelist);
}

sub print_chain{
  my $self = shift;
  return 0 if (!$self->chain);
  my $out;
  foreach my $feature (@{$self->chain}){
    $out .= join("\t",
		 "chr".$feature->chromosome,
		 $feature->start,
		 $feature->end,
		 $feature->name,
		 $feature->score,
		 $feature->strand);
    $out .= "\t".$feature->extension if ($feature->extension);
    $out .= "\n";
  }
  return $out;
}

#sub clone {
#  my ( $self, %params ) = @_;
#  $self->meta->clone_object($self, %params);
#  return $self;
#}

no Moose;

1;