view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/async/bucket-simple.t
t/async/bucket.t
t/async/indexes.t
t/async/link.t
t/async/ping.t
t/async/save.t
t/async/status.t
t/buckets/000-load.t
t/buckets/001-simple.t
t/buckets/002-simple-add.t
t/buckets/010-simple-content-types.t
t/buckets/020-aliases.t
t/buckets/100-memory-cycle.t
t/http/request-class-async.t
t/http/request-class.t
t/indexes/001-simple.t
t/link/000-load.t
t/link/001-basic.t
t/link/002-link-relations.t
t/link/003-add-links.t
t/link/004-remove-links.t

lib/Data/Riak/HTTP/Response.pm  view on Meta::CPAN

sub create_results {
    my ($self, $riak, $request) = @_;

    return map {
        $self->_create_result($riak, $request, $_)
    } @{ $self->parts };
}

my %header_values = (
    etag          => 'etag',
    content_type  => 'content-type',
    vector_clock  => 'x-riak-vclock',
    last_modified => 'last_modified',
);

sub _create_result {
    my ($self, $riak, $request, $http_message) = @_;

    HTTP::Headers::ActionPack->new->inflate( $http_message->headers );

    my %result_args = (