NAME

Loop::Sustainable::Strategy::ByLoad - Calculates wait interval by load.

SYNOPSIS

            

              
              
use Loop::Sustainable;
loop_sustainable {
    my ( $i, $time_sum ) = @_;
    #### maybe heavy process
} (
    sub {
         my ($i, $time_sum, $rv ) = @_;
         not defined $rv->[0] ? 1 : 0;
    },
    {
        strategy => {
            class => 'ByLoad',
            args  => { load => 0.5 },
        }
    }
);
            
          

DESCRIPTION

Loop::Sustainable::Strategy::ByLoad provides wait interval time calculated by total execution time and loop execution count, specified load ratio.

METHODS

new( %args )

load

The ratio of executed time.

wait_correction( $query, $time_sum, $executed_count )

AUTHOR

Toru Yamaguchi <zigorou@dena.jp<gt>

LICENSE

This module is licensed under the same terms as Perl itself.

SEE ALSO

Loop::Sustainable