File Coverage

blib/lib/Data/RuledCluster/Strategy/Key.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	25	28	89.2

package Data::RuledCluster::Strategy::Key;
use strict;
use warnings;
use parent 'Data::RuledCluster::Strategy';
use Data::Util qw(is_number neat);

sub resolve {
    my ( $class, $resolver, $node_or_cluster, $args ) = @_;

    my @keys = $class->keys_from_args($args);
    my $key = shift @keys;

    unless ( is_number($key) ) {
        Carp::croak(
            sprintf('args has not key field or no number value (key: %s)', neat($key))
        );
    }

    my @nodes         = $resolver->clusters($node_or_cluster);
    my $resolved_node = $nodes[ $key % scalar @nodes ];

    return ($resolved_node, @keys);
}

1;