view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Makefile.PL
MANIFEST			This list of files
META.yml
README
t/000-load.t
t/001-ping.t
t/002-override.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/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
t/mapreduce/000-load.t
t/mapreduce/001-basic.t

lib/Data/Riak/Fast/Result.pm  view on Meta::CPAN

    is => 'rw',
    isa => 'HTTP::Message',
    required => 1,
    handles => {
        'status_code' => 'code',
        'value' => 'content',
        'header' => 'header',
        'headers' => 'headers',
        # curried delegation
        'etag' => [ 'header' => 'etag' ],
        'content_type' => [ 'header' => 'content-type' ],
        'vector_clock' => [ 'header' => 'x-riak-vclock' ],
        'last_modified' => [ 'header' => 'last_modified' ]
    }
);

sub BUILD {
    my $self = shift;
    HTTP::Headers::ActionPack->new->inflate( $self->http_message->headers );
}