<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">NAME

    Memcached::RateLimit - Sliding window rate limiting with Memcached

VERSION

    version 0.03

SYNOPSIS

     use Memcached::RateLimit;
    
     my $rl = Memcached::RateLimit-&gt;new("memcache://localhost:11211");
     $rl-&gt;error_handler(sub ($rl, $message) {
       warn "rate limit error: $message";
     });
    
     # allow 30 requests per minute
     if($rl-&gt;rate_limit("resource", 1, 30, 60))
     {
       # rate limit exceeded
     }

DESCRIPTION

    This module implements rate limiting logic. It is intended for high
    volume websites that require limits on the access or modification to
    resources. It is implemented using Rust and FFI::Platypus, so you will
    need the rust toolchain in order to install this module.

    Why Rust? Well none of the Perl Memcache clients I found supported TLS,
    and the Rust memcache crate &lt;https://crates.io/crates/memcache&gt; did.
    Also Rust is fast and has a number of safety checks that give me
    confidence that it won't crash our app.

    The actual algorithm is based one used by Bugzilla, and by default it
    will "fail open", meaning if for some reason the client cannot connect
    to the Memcached server, it will allow the request.

CONSTRUCTOR

 new

     my $rl = Memcached::RateLimit-&gt;new($url);
     my $rl = Memcached::RateLimit-&gt;new(\%config);

    Create a new instance of Memcached::RateLimit. The URL should be of the
    form shown in the synopsis above.

    The following schemes are supported:

    memcache

    memcache+tcp

    memcache+tls

    memcache+udp

    memcache+unix

    You can append these query parameters to the URL:

    connect_timeout

      Experimental: Connect timeout in seconds. May be specified as a
      floating point, that is 0.2 is 20 milliseconds.

    protocol

      If set to ascii this will use the ASCII protocol instead of binary.

    tcp_nodelay

      Boolean true or false.

    timeout

      IO timeout in seconds.

      Experimental: May be specified as a floating point, that is 0.2 is 20
      milliseconds.

    verify_mode

      For TLS, this can be set to none or peer.

    [version 0.03]

    You can provide a %Config hash instead of a URL. All of the query
    parameters mentioned above can be provided in addition to these:

    scheme

      The scheme (example: memcache or memcache+tls).

    host

      The server hostname or IPv4/IPv6 address.

    port

      The TCP or UDP port to connect to.

    read_timeout

      The read timeout in seconds. May be specified as a floating point,
      that is 0.2 is 20 milliseconds.

    write_timeout

      The write timeout in seconds. May be specified as a floating point,
      that is 0.2 is 20 milliseconds.

METHODS

 rate_limit

     my $limited = $rl-&gt;rate_limt($name, $size, $rate_max, $rate_seconds);

    This method returns a boolean true, if a request of $size exceeds the
    rate limit of $rate_max over the past $rate_seconds. If you only want
    to rate limit the number of requests then you can set $size to 1.

    This method will return a boolean false, and increment the appropriate
    counters if the requests fits within the rate limit.

    This method will also return boolean false, if it is unable to connect
    to or otherwise experiences an error talking to the memcached server.
    In this case it will also call the error handler.

 set_read_timeout

     $rl-&gt;set_read_timeout($secs);

    Sets the IO Read timeout to $secs, may be fractional.

 set_write_timeout

     $rl-&gt;set_write_timeout($secs);

    Sets the IO Write timeout to $secs, may be fractional.

 error_handler

     $rl-&gt;error_handler(sub ($rl, $message) {
       ...
     });

    This method will set the error handler, to be called in the case of an
    error with the memcached server. It will pass in the instance of
    Memcached::RateLimit as $rl and a diagnostic as $message. Since this
    module will fail open, it is probably useful to increment error
    counters and provide diagnostics with this method to your monitoring
    system.

SEE ALSO

    Cache::Memcached::Fast

    Redis::RateLimit

AUTHOR

    Graham Ollis &lt;plicease@cpan.org&gt;

COPYRIGHT AND LICENSE

    This software is copyright (c) 2022 by Graham Ollis.

    This is free software; you can redistribute it and/or modify it under
    the same terms as the Perl 5 programming language system itself.

</pre></body></html>