r54293 - in /trunk/libnet-twitter-perl: ./ debian/ examples/ lib/Net/ lib/Net/Twitter/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Mar 14 14:08:21 UTC 2010
Author: jawnsy-guest
Date: Sun Mar 14 14:08:06 2010
New Revision: 54293
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54293
Log:
No need to upload unless FTBFS, only changes for tests
IGNORE-VERSION: 3.11012-1
* New upstream release
Modified:
trunk/libnet-twitter-perl/Changes
trunk/libnet-twitter-perl/META.yml
trunk/libnet-twitter-perl/README
trunk/libnet-twitter-perl/debian/changelog
trunk/libnet-twitter-perl/examples/oauth_webapp.pl
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/Error.pm
trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm
trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm
Modified: trunk/libnet-twitter-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/Changes?rev=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/Changes (original)
+++ trunk/libnet-twitter-perl/Changes Sun Mar 14 14:08:06 2010
@@ -1,3 +1,6 @@
+3.11012 2010-03-13
+ - fixed: added fallback since Test::More 0.95_01 does not stringify in "is" (tokuhirom)
+
3.11011 2010-03-11
- fixed documentation to include lookup_users
Modified: trunk/libnet-twitter-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/META.yml?rev=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/META.yml (original)
+++ trunk/libnet-twitter-perl/META.yml Sun Mar 14 14:08:06 2010
@@ -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.11011
+version: 3.11012
Modified: trunk/libnet-twitter-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/README?rev=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/README (original)
+++ trunk/libnet-twitter-perl/README Sun Mar 14 14:08:06 2010
@@ -2,7 +2,7 @@
Net::Twitter - A perl interface to the Twitter API
VERSION
- This document describes Net::Twitter version 3.11011
+ This document describes Net::Twitter version 3.11012
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=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/debian/changelog (original)
+++ trunk/libnet-twitter-perl/debian/changelog Sun Mar 14 14:08:06 2010
@@ -1,3 +1,12 @@
+libnet-twitter-perl (3.11012-1) UNRELEASED; urgency=low
+
+ No need to upload unless FTBFS, only changes for tests
+ IGNORE-VERSION: 3.11012-1
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sun, 14 Mar 2010 10:36:00 -0400
+
libnet-twitter-perl (3.11011-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libnet-twitter-perl/examples/oauth_webapp.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/examples/oauth_webapp.pl?rev=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/examples/oauth_webapp.pl (original)
+++ trunk/libnet-twitter-perl/examples/oauth_webapp.pl Sun Mar 14 14:08:06 2010
@@ -45,7 +45,7 @@
# if the user is authorized, we'll get access tokens from a cookie
my %sess = $q->cookie('sess');
- unless ( %sess ) {
+ unless ( exists $sess{access_token_secret} ) {
warn "User has no access_tokens\n";
return $self->authorize($q);
}
@@ -85,16 +85,28 @@
my $auth_url = $self->twitter->get_authorization_url(callback => "$ENV{SERVER_URL}oauth_callback");
+ # we'll store the request tokens in a session cookie
+ my $cookie = $q->cookie(-name => 'sess', -value => {
+ request_token => $self->twitter->request_token,
+ request_token_secret => $self->twitter->request_token_secret,
+ });
+
warn "Sending user to: $auth_url\n";
- print $q->redirect(-nph => 1, -uri => $auth_url);
+ print $q->redirect(-nph => 1, -uri => $auth_url, -cookie => $cookie);
}
# Twitter returns the user here
sub oauth_callback {
my ($self, $q) = @_;
-
+
my $request_token = $q->param('oauth_token');
my $verifier = $q->param('oauth_verifier');
+
+ my %sess = $q->cookie(-name => 'sess');
+ die "Something is horribly wrong" unless $sess{request_token} eq $request_token;
+
+ $self->twitter->request_token($request_token);
+ $self->twitter->request_token_secret($sess{request_token_secret});
warn <<"";
User returned from Twitter with:
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=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Identica.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Identica.pm Sun Mar 14 14:08:06 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.11011';
+our $VERSION = '3.11012';
$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=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter.pm Sun Mar 14 14:08:06 2010
@@ -11,7 +11,7 @@
);
# use *all* digits for fBSD ports
-our $VERSION = '3.11011';
+our $VERSION = '3.11012';
$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=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter.pod (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter.pod Sun Mar 14 14:08:06 2010
@@ -4,7 +4,7 @@
=head1 VERSION
-This document describes Net::Twitter version 3.11011
+This document describes Net::Twitter version 3.11012
=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=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm Sun Mar 14 14:08:06 2010
@@ -17,7 +17,7 @@
use namespace::autoclean;
# use *all* digits for fBSD ports
-our $VERSION = '3.11011';
+our $VERSION = '3.11012';
$VERSION = eval $VERSION; # numify for warning-free dev releases
Modified: trunk/libnet-twitter-perl/lib/Net/Twitter/Error.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter/Error.pm?rev=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Error.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Error.pm Sun Mar 14 14:08:06 2010
@@ -1,7 +1,8 @@
package Net::Twitter::Error;
use Moose;
-use overload '""' => \&error;
+use overload '""' => \&error,,
+ 'fallback' => 1;
has twitter_error => ( isa => 'HashRef|Object', is => 'rw', predicate => 'has_twitter_error' );
has http_response => ( isa => 'HTTP::Response', is => 'rw', required => 1, handles => [qw/code message/] );
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=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm Sun Mar 14 14:08:06 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.11011';
+our $VERSION = '3.11012';
$VERSION = eval $VERSION; # numify for warning-free dev releases
extends 'Net::Twitter::Core';
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=54293&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm Sun Mar 14 14:08:06 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.11011';
+our $VERSION = '3.11012';
$VERSION = eval $VERSION; # numify for warning-free dev releases
extends 'Net::Twitter::Core';
More information about the Pkg-perl-cvs-commits
mailing list