File Coverage

blib/lib/Database/Async/Backoff/Exponential.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch			n/a
condition	0	6	0.0
subroutine	7	8	87.5
pod	0	2	0.0
total	27	38	71.0

package Database::Async::Backoff::Exponential;

use strict;
use warnings;

our $VERSION = '0.017'; # VERSION

use parent qw(Database::Async::Backoff);

use mro qw(c3);
use Future::AsyncAwait;
use List::Util qw(min);

Database::Async::Backoff->register(
    exponential => __PACKAGE__
);

sub new {
    my ($class, %args) = @_;
    return $class->next::method(
        max_delay => 30,
        initial_delay => 0.05,
        %args
    );
}

sub next {
    my ($self) = @_;
    return $self->{delay} ||= min(
        $self->max_delay,
        (2 * ($self->{delay} // 0))
         || $self->initial_delay
    );
}

1;