r57833 - in /trunk/libnet-twitter-perl: ./ debian/ lib/Net/ lib/Net/Twitter/ lib/Net/Twitter/OAuth/ lib/Net/Twitter/Role/ lib/Net/Twitter/Role/API/ lib/Net/Twitter/Role/API/Search/ t/
antgel-guest at users.alioth.debian.org
antgel-guest at users.alioth.debian.org
Wed May 12 11:22:22 UTC 2010
Author: antgel-guest
Date: Wed May 12 11:22:15 2010
New Revision: 57833
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57833
Log:
New upstream release.
Added:
trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/Search/
- copied from r57831, branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/API/Search/
Removed:
trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth/
Modified:
trunk/libnet-twitter-perl/Changes
trunk/libnet-twitter-perl/MANIFEST
trunk/libnet-twitter-perl/META.yml
trunk/libnet-twitter-perl/Makefile.PL
trunk/libnet-twitter-perl/README
trunk/libnet-twitter-perl/debian/changelog
trunk/libnet-twitter-perl/lib/Net/Identica.pm
trunk/libnet-twitter-perl/lib/Net/Twitter.pm
trunk/libnet-twitter-perl/lib/Net/Twitter.pod
trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm
trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm
trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/Search.pm
trunk/libnet-twitter-perl/lib/Net/Twitter/Role/OAuth.pm
trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm
trunk/libnet-twitter-perl/t/13_search.t
Modified: trunk/libnet-twitter-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/Changes?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/Changes (original)
+++ trunk/libnet-twitter-perl/Changes Wed May 12 11:22:15 2010
@@ -1,3 +1,9 @@
+3.13001 2010-11
+ - use POST with Authorization header for XAuth (per Twitter documentation)
+ - replace homegrown XAuth support with Net::OAuth's native support
+ - accommodate 2 base URLs for API::Search (search and trends* methods use different base URLs)
+ - enable SSL support for API::Search
+
3.13000 2010-05-09
- added support and documentation for optional timeline parameter skip_user
- fixed tests: plan was called twice when LWP was too old
Modified: trunk/libnet-twitter-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/MANIFEST?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/MANIFEST (original)
+++ trunk/libnet-twitter-perl/MANIFEST Wed May 12 11:22:15 2010
@@ -21,10 +21,10 @@
lib/Net/Twitter/Core.pm
lib/Net/Twitter/Error.pm
lib/Net/Twitter/OAuth.pm
-lib/Net/Twitter/OAuth/XAuthRequest.pm
lib/Net/Twitter/Role/API/Lists.pm
lib/Net/Twitter/Role/API/REST.pm
lib/Net/Twitter/Role/API/Search.pm
+lib/Net/Twitter/Role/API/Search/Trends.pm
lib/Net/Twitter/Role/API/TwitterVision.pm
lib/Net/Twitter/Role/InflateObjects.pm
lib/Net/Twitter/Role/Legacy.pm
Modified: trunk/libnet-twitter-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/META.yml?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/META.yml (original)
+++ trunk/libnet-twitter-perl/META.yml Wed May 12 11:22:15 2010
@@ -38,7 +38,7 @@
Moose::Role: 0
MooseX::MultiInitArg: 0
Net::Netrc: 0
- Net::OAuth: 0.2
+ Net::OAuth: 0.25
Scalar::Util: 0
Try::Tiny: 0
URI: 1.4
@@ -50,4 +50,4 @@
homepage: http://github.com/semifor/Net-Twitter
license: http://dev.perl.org/licenses/
repository: git://github.com/semifor/Net-Twitter.git
-version: 3.13000
+version: 3.13001
Modified: trunk/libnet-twitter-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/Makefile.PL?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/Makefile.PL (original)
+++ trunk/libnet-twitter-perl/Makefile.PL Wed May 12 11:22:15 2010
@@ -32,7 +32,7 @@
requires 'Moose::Role';
requires 'MooseX::MultiInitArg';
requires 'namespace::autoclean' => 0.09;
-requires 'Net::OAuth' => 0.20;
+requires 'Net::OAuth' => 0.25;
requires 'URI' => 1.40;
requires 'URI::Escape';
requires 'Try::Tiny';
Modified: trunk/libnet-twitter-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/README?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/README (original)
+++ trunk/libnet-twitter-perl/README Wed May 12 11:22:15 2010
@@ -2,7 +2,7 @@
Net::Twitter - A perl interface to the Twitter API
VERSION
- This document describes Net::Twitter version 3.13000
+ This document describes Net::Twitter version 3.13001
SYNOPSIS
use Net::Twitter;
Modified: trunk/libnet-twitter-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/debian/changelog?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/debian/changelog (original)
+++ trunk/libnet-twitter-perl/debian/changelog Wed May 12 11:22:15 2010
@@ -1,3 +1,9 @@
+libnet-twitter-perl (3.13001-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Antony Gelberg <antony.gelberg at wayforth.com> Wed, 12 May 2010 14:19:12 +0300
+
libnet-twitter-perl (3.13000-1) unstable; urgency=low
* New upstream release
Modified: trunk/libnet-twitter-perl/lib/Net/Identica.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Identica.pm?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Identica.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Identica.pm Wed May 12 11:22:15 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.13000';
+our $VERSION = '3.13001';
$VERSION = eval $VERSION; # numify for warning-free dev releases
extends 'Net::Twitter::Core';
Modified: trunk/libnet-twitter-perl/lib/Net/Twitter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter.pm?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter.pm Wed May 12 11:22:15 2010
@@ -11,7 +11,7 @@
);
# use *all* digits for fBSD ports
-our $VERSION = '3.13000';
+our $VERSION = '3.13001';
$VERSION = eval $VERSION; # numify for warning-free dev releases
Modified: trunk/libnet-twitter-perl/lib/Net/Twitter.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter.pod?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter.pod (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter.pod Wed May 12 11:22:15 2010
@@ -4,7 +4,7 @@
=head1 VERSION
-This document describes Net::Twitter version 3.13000
+This document describes Net::Twitter version 3.13001
=head1 SYNOPSIS
Modified: trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm Wed May 12 11:22:15 2010
@@ -17,7 +17,7 @@
use namespace::autoclean;
# use *all* digits for fBSD ports
-our $VERSION = '3.13000';
+our $VERSION = '3.13001';
$VERSION = eval $VERSION; # numify for warning-free dev releases
Modified: trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm Wed May 12 11:22:15 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.13000';
+our $VERSION = '3.13001';
$VERSION = eval $VERSION; # numify for warning-free dev releases
extends 'Net::Twitter::Core';
Modified: trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/Search.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/Search.pm?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/Search.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/Search.pm Wed May 12 11:22:15 2010
@@ -4,7 +4,15 @@
use Net::Twitter::API;
use DateTime::Format::Strptime;
-has searchapiurl => ( isa => 'Str', is => 'rw', default => 'http://api.twitter.com/1' );
+with 'Net::Twitter::Role::API::Search::Trends';
+
+has searchapiurl => ( isa => 'Str', is => 'rw', default => 'http://search.twitter.com' );
+
+after BUILD => sub {
+ my $self = shift;
+
+ $self->{searchapiurl} =~ s/^http:/https:/ if $self->ssl;
+};
base_url 'searchapiurl';
authenticate 0;
@@ -28,54 +36,6 @@
method => 'GET',
params => [qw/q callback lang rpp page since_id geocode show_user/],
required => [qw/q/],
- returns => 'HashRef',
-);
-
-twitter_api_method trends => (
- description => <<'',
-Returns the top ten queries that are currently trending on Twitter. The
-response includes the time of the request, the name of each trending topic, and
-the url to the Twitter Search results page for that topic.
-
- path => 'trends',
- method => 'GET',
- params => [qw//],
- required => [qw//],
- returns => 'ArrayRef[Query]',
-);
-
-twitter_api_method trends_current => (
- description => <<'',
-Returns the current top ten trending topics on Twitter. The response includes
-the time of the request, the name of each trending topic, and query used on
-Twitter Search results page for that topic.
-
- path => 'trends/current',
- method => 'GET',
- params => [qw/exclude/],
- required => [qw//],
- returns => 'HashRef',
-);
-
-twitter_api_method trends_daily => (
- description => <<'',
-Returns the top 20 trending topics for each hour in a given day.
-
- path => 'trends/daily',
- method => 'GET',
- params => [qw/date exclude/],
- required => [qw//],
- returns => 'HashRef',
-);
-
-twitter_api_method trends_weekly => (
- description => <<'',
-Returns the top 30 trending topics for each day in a given week.
-
- path => 'trends/weekly',
- method => 'GET',
- params => [qw/date exclude/],
- required => [qw//],
returns => 'HashRef',
);
Modified: trunk/libnet-twitter-perl/lib/Net/Twitter/Role/OAuth.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter/Role/OAuth.pm?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Role/OAuth.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Role/OAuth.pm Wed May 12 11:22:15 2010
@@ -209,18 +209,23 @@
sub xauth {
my ( $self, $username, $password ) = @_;
- require Net::Twitter::OAuth::XAuthRequest;
- my $uri = $self->xauth_url;
- my $request = $self->_make_oauth_request(
- '+Net::Twitter::OAuth::XAuthRequest',
- request_url => $uri,
+ my @args = (
x_auth_username => $username,
x_auth_password => $password,
x_auth_mode => 'client_auth',
);
- my $res = $self->ua->get($request->to_url);
- die "GET $uri failed: ".$res->status_line
+ my $uri = $self->xauth_url;
+ my $request = $self->_make_oauth_request(
+ 'XauthAccessToken',
+ request_url => $uri,
+ request_method => 'POST',
+ @args,
+ );
+
+ my $res = $self->ua->request(
+ POST $uri, \@args, Authorization => $request->to_authorization_header);
+ die "POST $uri failed: ".$res->status_line
unless $res->is_success;
# reuse $uri to extract parameters from content
Modified: trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm Wed May 12 11:22:15 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.13000';
+our $VERSION = '3.13001';
$VERSION = eval $VERSION; # numify for warning-free dev releases
extends 'Net::Twitter::Core';
Modified: trunk/libnet-twitter-perl/t/13_search.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/t/13_search.t?rev=57833&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/t/13_search.t (original)
+++ trunk/libnet-twitter-perl/t/13_search.t Wed May 12 11:22:15 2010
@@ -7,7 +7,7 @@
eval 'use TestUA';
plan skip_all => 'LWP::UserAgent 5.819 required' if $@;
-plan tests => 3;
+plan tests => 5;
use Net::Twitter;
@@ -35,3 +35,8 @@
# additional args in a HASH ref
$r = $nt->search($search_term, { page => 2 });
is $args{page}, 2, "page parameter set";
+
+like $request->uri, qr(/search.twitter.com/), 'search endpoint';
+
+$nt->trends;
+like $request->uri, qr(/api.twitter.com/1/), 'trends endpoint';
More information about the Pkg-perl-cvs-commits
mailing list