File Coverage

blib/lib/Algorithm/ConsistentHash/Ketama.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	32	33	96.9

package Algorithm::ConsistentHash::Ketama;
use strict;
use Algorithm::ConsistentHash::Ketama::Bucket;
use XSLoader;
our $VERSION;

BEGIN {
    $VERSION = '0.00012';
    XSLoader::load( __PACKAGE__, $VERSION );
}
use constant +{
    HASHFUNC1 => 1,
    HASHFUNC2 => 2,
};
our $DEFAULT_HASHFUNC = HASHFUNC1; # Use old behavior by default (broken).
our %VALID_HASHFUNCS = map { ($_ => 1) } (HASHFUNC1, HASHFUNC2);

sub new {
    my ($class, %args) = @_;

    my $hf = $DEFAULT_HASHFUNC;
    my $x_hf = $args{use_hashfunc};
    if (defined $x_hf) {
        if (exists $VALID_HASHFUNCS{$x_hf}) {
            $hf = $x_hf
        }
        # for all other values of $x_hf, ignore it
    }

    my $self = $class->xs_create($x_hf);
    return $self;
}

1;

__END__