diff options
author | Gavin Carr <gavin@openfusion.com.au> | 2010-09-01 20:46:31 +0100 |
---|---|---|
committer | Gavin Carr <gavin@openfusion.com.au> | 2010-09-01 20:46:31 +0100 |
commit | 161473dd008dc77a5a3b6ce2d5858eacc8a06a0f (patch) | |
tree | f05c2572b6170b6fc6a497b4227f26b2aa20e5c1 /lib | |
parent | encode/decode to/from json iff content_type is json (diff) | |
download | net-riak-161473dd008dc77a5a3b6ce2d5858eacc8a06a0f.tar.gz |
set object content_type from successful response's
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Net/Riak/Object.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Net/Riak/Object.pm b/lib/Net/Riak/Object.pm index 0dc6a83..59ecde1 100644 --- a/lib/Net/Riak/Object.pm +++ b/lib/Net/Riak/Object.pm @@ -166,6 +166,8 @@ sub populate { } if ($status == 200) { + $self->content_type($http_response->content_type) + if $http_response->content_type; $self->data(JSON::decode_json($self->data)) if $self->content_type eq 'application/json'; $self->vclock($http_response->header('X-Riak-Vclock')); |