view release on metacpan or  search on metacpan

lib/Bio/ViennaNGS/MinimalFeature.pm  view on Meta::CPAN

# -*-CPerl-*-
# Last changed Time-stamp: <2018-01-09 23:56:32 mtw>

package Bio::ViennaNGS::MinimalFeature;

use Bio::ViennaNGS;
use namespace::autoclean;
use Moose;
use Bio::ViennaNGS::Subtypes;
use version; our $VERSION = version->declare("$Bio::ViennaNGS::VERSION");

extends 'Bio::ViennaNGS::FeatureInterval';

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

override 'dump' => sub {
  my $self = shift;
  print join("\t",
	     $self->chromosome,
	     $self->start,
	     $self->end,
	     $self->strand),
	       "\n";
};

no Moose;

1;

__END__


=head1 NAME

Bio::ViennaNGS::MinimalFeature - A Moose wrapper for stranded genomic
intervals.

=head1 SYNOPSIS

  use Bio::ViennaNGS::MinimalFeature;

  my $feat = Bio::ViennaNGS::MinimalFeature->new(chromosome => "chr1",
                                                 start => "1200",
                                                 end => "4300",
                                                 strand => "+",
                                                );
  $feat->dump();

=head1 DESCRIPTION

This module provides an object-oriented interface for storing
elementary stranded genomic intervals characterized via chromosome,
start position, end position and strand. As such, it can be regarded a
simple wrapper for BED4 elements.

This class inherits from L<Bio::ViennaNGS::FeatureInterval> and is the
base classs for L<Bio::ViennaNGS::Feature>.

=head1 METHODS

=over