File Coverage

blib/lib/DBIx/DBHResolver/Strategy/RoundRobin.pm

Criterion	Covered	Total	%
statement	16	19	84.2
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	23	27	85.1

package DBIx::DBHResolver::Strategy::RoundRobin;

use strict;
use warnings;
use parent qw(DBIx::DBHResolver::Strategy);
use Carp;

our $VERSION = '0.01';

sub connect_info {
    my ( $class, $resolver, $node_or_cluster, $args ) = @_;
    my ($resolved_node, @keys) = $class->resolve( $resolver, $node_or_cluster, $args );
    return $resolver->connect_info( $resolved_node, \@keys );
}

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

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

    return ($resolved_node );
}

1;

__END__