File Coverage

blib/lib/Text/JaroWinkler.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition	4	4	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	23	24	95.8

package Text::JaroWinkler;

use 5.006;
use warnings;
use strict;

require Exporter;
require DynaLoader;

our @ISA = qw(Exporter DynaLoader);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
	    strcmp95
	    do_strcmp95
                                  ) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw();

our $VERSION = '0.1';

bootstrap Text::JaroWinkler $VERSION;

# Preloaded methods go here.

sub strcmp95 {
    my($ying, $yang, $y_length, %opt) = @_;
    $ying = sprintf("%*.*s", -$y_length, $y_length, $ying);
    $yang = sprintf("%*.*s", -$y_length, $y_length, $yang);

    my $high_prob = $opt{HIGH_PROB} || 0;
    my $toupper   = $opt{TOUPPER} || 0;
    do_strcmp95($ying, $yang, $y_length, $high_prob, $toupper);
}

1;
__END__