Loop-Sustainable

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use inc::Module::Install;
name 'Loop-Sustainable';
all_from 'lib/Loop/Sustainable.pm';

requires 'parent';
requires 'Carp';
requires 'Class::Accessor::Lite';
requires 'Class::Load';
requires 'Exporter';
requires 'List::Util';
requires 'Time::HiRes';

tests_recursive 't';
author_tests 'xt';

test_requires 'DBI';
test_requires 'DBD::Mock';

lib/Loop/Sustainable/Strategy.pm  view on Meta::CPAN

package Loop::Sustainable::Strategy;

use strict;
use warnings;
use Class::Accessor::Lite (
    new => 0,
    rw  => [ qw/check_strategy_interval/ ]
);

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $args = ref $_[0] ? $_[0] : +{ @_ };
    bless $args => $class;

lib/Loop/Sustainable/Strategy/ByLoad.pm  view on Meta::CPAN

package Loop::Sustainable::Strategy::ByLoad;

use strict;
use warnings;
use parent qw(Loop::Sustainable::Strategy);

use Class::Accessor::Lite (
    new => 0,
    rw  => [qw/load/],
);
use List::Util qw(max);

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new( @_ );

lib/Loop/Sustainable/Strategy/MySQL/BalancedReplication.pm  view on Meta::CPAN

package Loop::Sustainable::Strategy::MySQL::BalancedReplication;

use strict;
use warnings;
use parent qw(Loop::Sustainable::Strategy);

use Carp;
use Class::Accessor::Lite (
    new => 0,
    rw  => [qw/dbh capable_behind_seconds on_error_scale_factor on_error_croak/],
);
use List::Util qw(max);

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);

 view all matches for this distribution
 view release on metacpan -  search on metacpan