The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

SRS::EPP::Session::BackendQ - manage tx queue for back-end processing

SYNOPSIS

my $q = SRS::EPP::Session::BackendQ->new( session => $session );

# put requests on queue
$q->queue_backend_request( $epp_command, @srs_requests );

# pull up to 6 requests off queue for processing
my @rq = $q->backend_next( 6 );

# put responses in, one by one.
for (1..6) {
    $q->add_backend_response( $rq[$i], $rs[$i] );
}

# if a message has had all its requests answered, it can be dequeued
($epp_command, @srs_responses)
     = $q->dequeue_backend_response();

DESCRIPTION

This class implements a simple FIFO queue, but with small customizations to operation to suit the use case of the SRS EPP Proxy tracking the requests it sends to the back-end.

SEE ALSO

SRS::EPP::Session

AUTHOR AND LICENCE

Development commissioned by NZ Registry Services, and carried out by Catalyst IT - http://www.catalyst.net.nz/

Copyright 2009, 2010, NZ Registry Services. This module is licensed under the Artistic License v2.0, which permits relicensing under other Free Software licenses.