File Coverage

blib/lib/Loop/Sustainable/Strategy/ByLoad.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	31	32	96.8

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( @_ );
    $self->{load} = 0.5 unless (defined $self->{load});
    $self;
}

sub wait_correction {
    my ( $self, $i, $elapsed, $rv ) = @_;
    return ( max( $elapsed, 0 ) * ( 1 - $self->{load} ) / $self->{load} ) / $self->check_strategy_interval;
}

1;

__END__