summary refs log tree commit diff
path: root/lib/Net/HTTP/Spore.pm
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-10-12 17:18:25 +0200
committerfranck cuny <franck@lumberjaph.net>2010-10-12 17:18:25 +0200
commit85a634ef2e68115636e8a17becbc6a968cab0eae (patch)
tree830bd34674ce8a15bfb6621c89a39a36f0bb2883 /lib/Net/HTTP/Spore.pm
parentadd enable_if feature + tests (diff)
downloadnet-http-spore-85a634ef2e68115636e8a17becbc6a968cab0eae.tar.gz
update POD
Diffstat (limited to 'lib/Net/HTTP/Spore.pm')
-rw-r--r--lib/Net/HTTP/Spore.pm22
1 files changed, 19 insertions, 3 deletions
diff --git a/lib/Net/HTTP/Spore.pm b/lib/Net/HTTP/Spore.pm
index b510fa0..23d5bc5 100644
--- a/lib/Net/HTTP/Spore.pm
+++ b/lib/Net/HTTP/Spore.pm
@@ -100,20 +100,36 @@ sub _add_methods {
 
     my $client = Net::HTTP::Spore->new_from_spec('twitter.json');
 
-    $client->enable('Auth::OAuth');
     $client->enable('Format::JSON');
+    $client->enable('Auth::OAuth');
 
     my $timeline = $client->public_timeline(format => 'json');
     my $tweets = $timeline->body;
+
     foreach my $tweet (@$tweets) {
-            print $tweet->{user}->{screen_name}. " says ".$tweet->{text}."\n";
-        }
+        print $tweet->{user}->{screen_name}. " says ".$tweet->{text}."\n";
     }
 
     my $friends_timeline = $client->friends_timeline(format => 'json');
 
 =head1 DESCRIPTION
 
+This module is an implementation of the SPORE specification. To use this client, you need to use or to write a SPORE specification of an API. Some specifications are available L<http://github.com/SPORE/api-description>.
+
+=head2 CLIENT CREATION
+
+First you need to create a client. This can be done using two methods, B<new_from_spec> and B<new_from_string>. The client will read the specification file to create a appropriate methods to interact with the API.
+
+=head2 MIDDLEWARES
+
+It's possible to activate some middlewares to extend the usage of the client. If you're using an API that discuss in JSON, you can enable the middleware L<Net::HTTP::Spore::Middleware::JSON>.
+
+    $client->enable('Format::JSON');
+
+or only on some path
+
+    $client->enable_if(sub{$_->[0]->path =~ m!/path/to/json/stuff!}, 'Format::JSON');
+
 =head2 METHODS
 
 =over 4