view release on metacpan or  search on metacpan

HowSimilar.pm  view on Meta::CPAN

        my $mav = ($m1+$m2)/2;
      return $mav, $m1, $m2, $match, $d1, $d2;
    }

}

sub _tokenize { return [split //, $_[0]] }

1;
__END__
# Below is stub documentation for your module. You better edit it!

=head1 NAME

Algorithm::HowSimilar - Perl extension for quantifying similarites between things

=head1 SYNOPSIS

  use Algorithm::HowSimilar qw(compare);
  @res = compare( $str1, $str2, sub { s/\s+//g; [split //] } );
  @res = compare( \@ary1, \@ary2 );