view release on metacpan or  search on metacpan

lib/EasyDNS/DDNS/HTTP.pm  view on Meta::CPAN

use EasyDNS::DDNS::Util ();

sub new {
    my ($class, %args) = @_;

    my $timeout = $args{timeout} // 10;

    my $http = $args{http} || HTTP::Tiny->new(
        timeout    => $timeout,
        verify_SSL => 1,
        agent      => $args{agent} // 'sdseasydyn/0.001',
    );

    my $retry = $args{retry} || Retry::Policy->new(
        max_attempts  => $args{max_attempts}  // 5,
        base_delay_ms => $args{base_delay_ms} // 200,
        max_delay_ms  => $args{max_delay_ms}  // 10_000,
        jitter        => $args{jitter}        // 'full',
    );