view release on metacpan or  search on metacpan

lib/Align/Sequence.pm  view on Meta::CPAN

package Align::Sequence;

use strict;
use 5.010_001;
our $VERSION = '0.01';

sub new {
  my $class = shift;
  # uncoverable condition false
  bless @_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {}, ref $class || $class;
}

sub align {
  my ($self, $X, $Y) = @_;
  
  my $YPos;
  my $index;
  push @{ $YPos->{$_} },$index++ for @$Y;
  
  my $Xmatches;