RateLimiting.pm

package Local::Twitter::API::RateLimiting {
    use Moo::Role;
    use HTTP::Status qw(HTTP_TOO_MANY_REQUESTS);

    use namespace::clean;

    around send_request => sub {
        my $orig = shift;
        my $self = shift;

        my $res = $self->$orig(@_);

        while($res->code == HTTP_TOO_MANY_REQUESTS) {
            my $sleep_time = $res->header('x-rate-limit-reset') - time;
            sleep $sleep_time; # XXX modifiable, please

            $res = $self->$orig(@_);
        }

        return $res;
    };
}

1;