Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Net-Twitter CPAN distribution.

Report information
The Basics
Id: 41635
Status: resolved
Priority: 0/
Queue: Net-Twitter

People
Owner: cthom [...] cpan.org
Requestors: cpan [...] peeron.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.17
Fixed in: (no value)



Subject: Complete Net::Twitter's implementation of replies()
Download (untitled) / with headers
text/plain 385b
The current implementation of replies() only allows passing the page to get. Twitter supports additional parameters (since, since_id). The attached patch adds support for a hashref argument, but maintains backwards compatibility with a scalar (assuming it to be the page number). This is already used in twirssi (http://irc.peeron.com/~zigdon/twirssi/). Thanks for the module! Dan
Subject: net-twitter.patch
Download net-twitter.patch
text/x-diff 3.5k
Only in Net-Twitter-1.17-patch: blib diff -ru Net-Twitter-1.17/lib/Net/Twitter.pm Net-Twitter-1.17-patch/lib/Net/Twitter.pm --- Net-Twitter-1.17/lib/Net/Twitter.pm 2008-08-12 16:54:20.000000000 -0700 +++ Net-Twitter-1.17-patch/lib/Net/Twitter.pm 2008-12-11 11:04:48.000000000 -0800 @@ -205,10 +205,13 @@ } sub replies { - my ( $self, $page ) = @_; + my ( $self, $args ) = @_; + $args = { page => $args } unless ref $args; my $url = $self->{apiurl} . "/statuses/replies.json"; - $url .= ($page) ? '?page=' . $page : ""; + $url .= ($args->{page}) ? '?page=' . $args->{page} : ""; + $url .= ($args->{since}) ? '?since=' . $args->{since} : ""; + $url .= ($args->{since_id}) ? '?since_id=' . $args->{since_id} : ""; my $req = $self->{ua}->get($url); $self->{response_code} = $req->code; @@ -856,15 +859,35 @@ C<following_timeline()> is DEPRECATED, see note below. -=item C<replies([$page])> +=item C<replies(...)> Returns the 20 most recent replies (status updates prefixed with @username posted by users who are friends with the user being replied to) to the authenticating user. -Accepts an optional argument for page to retrieve, which will the 20 next -most recent statuses from the authenticating user and that user's friends, -eg "page=3" +Accepts an option argument hashref: + +=over + +=item C<page> + +Page to retrieve, which will the 20 next most recent statuses from the +authenticating user and that user's friends, eg "page=3" + +=item C<since> + +Narrows the returned results to just those statuses created after the +specified HTTP-formatted date. + +=item C<since_id> + +Narrows the returned results to just those statuses created after the +specified ID. + +=back + +Note that for backwards compatibility, if the argument passed is not a hashref, +it's assumed to be the page number. =back Only in Net-Twitter-1.17-patch/lib/Net: .Twitter.pm.swp Only in Net-Twitter-1.17-patch: Makefile Only in Net-Twitter-1.17-patch: pm_to_blib diff -ru Net-Twitter-1.17/README Net-Twitter-1.17-patch/README --- Net-Twitter-1.17/README 2008-08-12 16:54:22.000000000 -0700 +++ Net-Twitter-1.17-patch/README 2008-12-11 11:05:26.000000000 -0800 @@ -2,7 +2,7 @@ Net::Twitter - Perl interface to twitter.com VERSION - This document describes Net::Twitter version 1.16 + This document describes Net::Twitter version 1.17 SYNOPSIS #!/usr/bin/perl @@ -200,14 +200,28 @@ "following_timeline()" is DEPRECATED, see note below. - "replies([$page])" + "replies(...)" Returns the 20 most recent replies (status updates prefixed with @username posted by users who are friends with the user being replied to) to the authenticating user. - Accepts an optional argument for page to retrieve, which will the 20 - next most recent statuses from the authenticating user and that - user's friends, eg "page=3" + Accepts an option argument hashref: + + "page" + Page to retrieve, which will the 20 next most recent statuses + from the authenticating user and that user's friends, eg + "page=3" + + "since" + Narrows the returned results to just those statuses created + after the specified HTTP-formatted date. + + "since_id" + Narrows the returned results to just those statuses created + after the specified ID. + + Note that for backwards compatibility, if the argument passed is not + a hashref, it's assumed to be the page number. USER METHODS "following()" DEPRECATED
This has been resolved as of 1.20.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.