File Coverage

blib/lib/Bio/Coordinate/MapperI.pm

Criterion	Covered	Total	%
statement	16	26	61.5
branch	3	4	75.0
condition	1	2	50.0
subroutine	5	10	50.0
pod	6	6	100.0
total	31	48	64.5

package Bio::Coordinate::MapperI;
our $AUTHORITY = 'cpan:BIOPERLML';
$Bio::Coordinate::MapperI::VERSION = '1.007001';
use utf8;
use strict;
use warnings;
use parent qw(Bio::Root::RootI);

# ABSTRACT: Interface describing coordinate mappers.
# AUTHOR:   Heikki Lehvaslaiho
# OWNER:    Heikki Lehvaslaiho
# LICENSE:  Perl_5



sub in {
   my ($self,$value) = @_;

   $self->throw_not_implemented();

}


sub out {
   my ($self,$value) = @_;

   $self->throw_not_implemented();
}


sub swap {
   my ($self) = @_;

   $self->throw_not_implemented();

}


sub test {
   my ($self) = @_;

   $self->throw_not_implemented();
}


sub map {
   my ($self,$value) = @_;

   $self->throw_not_implemented();

}


sub return_match {
   my ($self,$value) = @_;
   if( defined $value) {
       $value ? ( $self->{'_return_match'} = 1 ) :
                ( $self->{'_return_match'} = 0 );
   }
   return $self->{'_return_match'} || 0 ;
}

1;

__END__