NAME

Net::Bullfinch - Perl wrapper for talking with Bullfinch

VERSION

version 0.16

SYNOPSIS

    use Net::Bullfinch;

    my $client = Net::Bullfinch->new(host => '172.16.49.130');
    my $req = { statement => 'some-query' };
    my $items = $client->send(
        request_queue => 'test-net-kestrel',
        request => $req,
        response_queue_suffix => 'foobar'
    );
    foreach my $item (@{ $items }) {
        # whatever
    }

DESCRIPTION

Net::Bullfinch is a thin wrapper around Memcached::Client for communicating with a Bullfinch.

This module handles JSON encoding of the request, the addition of a response queue, waiting for a response, confirmation of the message, decoding of the response and deletion of the response queue.

If you're expecting large numbers of results you might enjoy using Net::Bullfinch::Iterator to return any given number of max_results at a time.

TRACING

Bullfinch supports adding a tracing a request so that performance metrics and responses can be tracked.

    my $items = $client->send(
        request_queue => 'test-net-kestrel',
        request => $req,
        response_queue_suffix => 'foobar'
        trace => 1
    );

A UUID will be added to the request. This UUID will be included in the performance code in bullfinch workers and included in the response you receive.

ATTRIBUTES

host

The IP address of the host that we'll be connecting to.

port

The port of the IP address of the host we'll be connecting to.

response_prefix

The prefix used for the name of the response queue.

timeout

Set the timeout (in milliseconds) that will be used when awaiting a response back from Bullfinch.

error_on_no_response

Set an error explicitly when there is no response from bullfinch default behavior is false which will return them same empty array is for success or timeout on insert/delete/update statements

METHODS

send( request_queue => $queue, request => \%data, response_queue_suffix => $response_name, process_by => $procby, expiration => $expire);

Send the request to the specified queue and await a response. The data should be a hashref and the queuename (optional) will be appended to response_prefix. This allows you to create a unique response queue per request.

    # Response queue will be "response-net-kestrel-foobar"
    my $items = $client->send(\%data, "foobar");

Any messages sent in response (save the EOF message) are returned as an arrayref to the caller.

The optional no_response will cause no response to be returned

The optional process_by must be an ISO 8601 date.

The optional expiration is the number of seconds this request should live in the queue before expiring.

Note: Send will die if it fails to properly enqueue the request.

iterate_async( request_queue => $queue, request => \%data, response_queue_suffix => $response_name, expiration => $expire, result_cb => \&cb, error_cb => \&err_cb);

Send the request to the specified queue asynchronously and register result_cb and error_cb to be called upon the arrival of any results or the occurence of an error, respectively.

The data should be a hashref and the queuename (optional) will be appended to response_prefix. This allows you to create a unique response queue per request.

Any messages received in response (save the EOF message) are passed to a call to the result_cb as the only argument.

The optional expiration is the number of seconds this request should live in the queue before expiring.

Encountering any errors, such as not being able to enqueue the request, will cause the error_cb to be invoked with a string describing the error as the only argument.

Note that this method returns immediately after enqueueing the request. It's the callers responsibility to run an AnyEvent compatible event loop in order for the enqueued request to actually be sent and the result callbacks to be invoked.

AUTHORS

  • Cory G Watson <gphat@cpan.org>

  • Stevan Little <stevan.little@iinteractive.com>

  • Jay Hannah <jay.hannah@iinteractive.com>

  • Trey Bianchini <trey.bianchini@iinteractive.com>

  • Jesse Luehrs <doy@tozt.net>

  • Florian Ragwitz <rafl@debian.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Infinity Interactive, Inc.

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