File Coverage

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

Criterion	Covered	Total	%
statement	9	14	64.2
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	24	54.1

package DBIx::DBHResolver::Strategy::Remainder;

use strict;
use warnings;
use Carp;

our $VERSION = '0.10';

sub connect_info {
    my ( $class, $resolver, $node, $args ) = @_;
    croak q|args has not 'key' field|
      unless ( defined $args->{key} && $args->{key} =~ m/^\d+$/ );
    my @nodes         = $resolver->clusters($node);
    my $resolved_node = $nodes[ $args->{key} % scalar @nodes ];
    return $resolver->connect_info($resolved_node);
}

1;

=head1 NAME

DBIx::DBHResolver::Strategy::Remainder - Deprecated

=head1 SYNOPSIS

=head1 DESCRIPTION

DBIx::DBHResolver::Strategy::Remainder is now deprecated. Please use to L instead of this.

=head1 METHOD

=head2 connect_info( $resolver, $node, $args )

=head1 AUTHOR

Kosuke Arisawa [e-mail]

=head1 SEE ALSO

=over

=item L

=item L

=item L

=back

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut