From 4a6bb24ac6d748ffc43c9a1149fe7ea8f995390f Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 11 Apr 2010 14:29:16 +0200
Subject: small POD update

---
 lib/AnyEvent/Riak.pm | 22 ++++++++--------------
 1 file changed, 8 insertions(+), 14 deletions(-)

(limited to 'lib/AnyEvent/Riak.pm')

diff --git a/lib/AnyEvent/Riak.pm b/lib/AnyEvent/Riak.pm
index ad16f8a..c9c0d10 100644
--- a/lib/AnyEvent/Riak.pm
+++ b/lib/AnyEvent/Riak.pm
@@ -224,24 +224,18 @@ AnyEvent::Riak - Non-blocking Riak client
 
 =head1 SYNOPSIS
 
-  use AnyEvent::Riak;
+    use AnyEvent::Riak;
 
-  my $riak = AnyEvent::Riak->new(
-    host => 'http://127.0.0.1:8098',
-    path => 'riak',
-  );
+    my $riak = AnyEvent::Riak->new(
+      host => 'http://127.0.0.1:8098',
+      path => 'riak',
+    );
+
+    die "Riak is not running" unless $riak->is_alive->recv;
 
-  if ( $riak->is_alive->recv ) {
     my $buckets = $riak->list_bucket('bucketname')->recv;
     my $new_bucket
-        = $riak->set_bucket( 'foo', { allowed_fields => '*' } )->recv;
-    my $store
-        = $riak->store(
-        { bucket => 'foo', key => 'bar', object => { baz => 1 }, link => [] }
-        )->recv;
-    my $fetch = $riak->fetch( 'foo', 'bar' )->recv;
-    my $delete = $riak->delete( 'foo', 'bar' )->recv;
-  }
+        = $riak->set_bucket( 'foo', { props => { n_val => 2 } } )->recv;
 
 For a complete description of the Riak REST API, please refer to
 L<https://wiki.basho.com/display/RIAK/REST+API>.
-- 
cgit 1.4.1