From a3d206d80f9fe97e84896fd3d84ba299b6cea021 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Wed, 3 Nov 2010 15:01:03 +0100 Subject: update POD --- lib/Net/Riak.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lib/Net/Riak.pm') diff --git a/lib/Net/Riak.pm b/lib/Net/Riak.pm index 77bd773..124279f 100644 --- a/lib/Net/Riak.pm +++ b/lib/Net/Riak.pm @@ -38,7 +38,9 @@ sub bucket { my $obj = $bucket->new_object('new_post', {title => 'foo', content => 'bar'}); $obj->store; - my $obj = $bucket->get('new_post'); + $obj = $bucket->get('new_post'); + say "title for ".$obj->key." is ".$obj->data->{title}; + my $req = $client->http_request; # last request $client->http_response # last response -- cgit 1.4.1