summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-09-15 11:15:10 +0200
committerfranck cuny <franck@lumberjaph.net>2010-09-15 11:15:10 +0200
commit45f5ac4cafb3222dfd7f49b135012cac53e7529e (patch)
treead2fc11e36a895c0a286d10eb941abf40c21f52e
parentadded first incomplete draft of implementation specs (diff)
downloadnet-http-spore-45f5ac4cafb3222dfd7f49b135012cac53e7529e.tar.gz
add pod
-rw-r--r--lib/Net/HTTP/Spore.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/Net/HTTP/Spore.pm b/lib/Net/HTTP/Spore.pm
index 127754f..b70bd31 100644
--- a/lib/Net/HTTP/Spore.pm
+++ b/lib/Net/HTTP/Spore.pm
@@ -78,9 +78,8 @@ sub _add_methods {
     $client->enable('Format::JSON');
 
     my $timeline = $client->public_timeline(format => 'json');
-    if ($timeline->status == 200) {
-        my $tweets = $timeline->body;
-        foreach my $tweet (@$tweets) {
+    my $tweets = $timeline->body;
+    foreach my $tweet (@$tweets) {
             print $tweet->{user}->{screen_name}. " says ".$tweet->{text}."\n";
         }
     }
@@ -89,11 +88,13 @@ sub _add_methods {
 
 =head1 DESCRIPTION
 
-
 =head2 METHODS
 
 =over 4
 
-=item B<new_from_spec>($specification_file, %args)
+=item new_from_spec($specification_file, %args
+
+Create and return a L<Net::HTTP::Spore::Core> object, with methods
+generated from the specification file.
 
 =back