File Coverage

blib/lib/Apertur/SDK/Error/RateLimit.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition	1	2	50.0
subroutine	5	5	100.0
pod	2	2	100.0
total	22	23	95.6

package Apertur::SDK::Error::RateLimit;

use strict;
use warnings;
use parent 'Apertur::SDK::Error';

sub new {
    my ($class, %args) = @_;
    my $self = $class->SUPER::new(
        status_code => 429,
        code        => 'RATE_LIMIT',
        message     => $args{message} // 'Rate limit exceeded',
    );
    $self->{retry_after} = $args{retry_after};
    return $self;
}

sub retry_after { return $_[0]->{retry_after} }

1;

__END__