diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-09-15 11:15:10 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-09-15 11:15:10 +0200 |
| commit | 45f5ac4cafb3222dfd7f49b135012cac53e7529e (patch) | |
| tree | ad2fc11e36a895c0a286d10eb941abf40c21f52e | |
| parent | added first incomplete draft of implementation specs (diff) | |
| download | net-http-spore-45f5ac4cafb3222dfd7f49b135012cac53e7529e.tar.gz | |
add pod
| -rw-r--r-- | lib/Net/HTTP/Spore.pm | 11 |
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 |