File Coverage

blib/lib/Paws/Net/RetryCallerRole.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	29	30	96.6

package Paws::Net::RetryCallerRole;
  use Moose::Role;
  use Time::HiRes 'sleep';
  use Paws::API::Retry;

  sub do_call {
    my ($self, $service, $call_object) = @_;

    my $tracker = Paws::API::Retry->new(
      %{ $service->retry },
      max_tries => $service->max_attempts,
      retry_rules => $service->retriables,
    );

    do {
      $tracker->one_more_try;

      my ($status, $content, $headers) = $self->send_request($service, $call_object);
      my $result = $self->caller_to_response($service, $call_object, $status, $content, $headers);
      $tracker->operation_result($result);

      sleep $tracker->sleep_time if($tracker->should_retry);
    } while ($tracker->should_retry);

    if ($tracker->result_is_exception){
      $tracker->operation_result->throw;
    } else {
      return $tracker->operation_result;
    }
  }

  requires 'send_request';
1;