r54073 - in /trunk/libnet-twitter-perl: ./ debian/ lib/Net/ lib/Net/Twitter/ lib/Net/Twitter/Role/ lib/Net/Twitter/Role/API/ src/ t/

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Thu Mar 11 02:32:58 UTC 2010 

Author: jawnsy-guest
Date: Thu Mar 11 02:32:53 2010
New Revision: 54073

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54073
Log:
* New upstream release
* Update copyright information

Added:
    trunk/libnet-twitter-perl/lib/Net/Twitter/Role/RetryOnError.pm
      - copied unchanged from r54069, branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/RetryOnError.pm
    trunk/libnet-twitter-perl/lib/Net/Twitter/Role/SimulateCursors.pm
      - copied unchanged from r54069, branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/SimulateCursors.pm
    trunk/libnet-twitter-perl/t/retry.t
      - copied unchanged from r54069, branches/upstream/libnet-twitter-perl/current/t/retry.t
Modified:
    trunk/libnet-twitter-perl/Changes
    trunk/libnet-twitter-perl/MANIFEST
    trunk/libnet-twitter-perl/META.yml
    trunk/libnet-twitter-perl/README
    trunk/libnet-twitter-perl/debian/changelog
    trunk/libnet-twitter-perl/debian/copyright
    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/API.pm
    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/Lists.pm
    trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/REST.pm
    trunk/libnet-twitter-perl/lib/Net/Twitter/Role/OAuth.pm
    trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm
    trunk/libnet-twitter-perl/src/net-twitter-pod.tt2

Modified: trunk/libnet-twitter-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/Changes?rev=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/Changes (original)
+++ trunk/libnet-twitter-perl/Changes Thu Mar 11 02:32:53 2010
@@ -1,3 +1,9 @@
+3.11009 2010-03-10
+    - Added RetryOnError trait (see perldoc Net::Twitter::Role::RetryOnError)
+    - Import Sclar::Util::blessed in the POD Synopsis to make it clear callers need to do so (RT#55283)
+    - Use newly documented "preferred" oauth endpoints: http://api.twitter.com/oauth/*
+    - Added SimulateCursors trait for Identi.ca compatibility
+
 3.11008 2010-03-02
     - Added support for new api methods: reverse_geocode, geo_id
     - Updated method "update" with new parameters: place_id, display_coordinates

Modified: trunk/libnet-twitter-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/MANIFEST?rev=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/MANIFEST (original)
+++ trunk/libnet-twitter-perl/MANIFEST Thu Mar 11 02:32:53 2010
@@ -30,6 +30,8 @@
 lib/Net/Twitter/Role/Legacy.pm
 lib/Net/Twitter/Role/OAuth.pm
 lib/Net/Twitter/Role/RateLimit.pm
+lib/Net/Twitter/Role/RetryOnError.pm
+lib/Net/Twitter/Role/SimulateCursors.pm
 lib/Net/Twitter/Role/WrapError.pm
 lib/Net/Twitter/Search.pm
 Makefile.PL
@@ -62,4 +64,5 @@
 t/99-pod_syntax.t
 t/geo.t
 t/lib/TestUA.pm
+t/retry.t
 t/unicode.t

Modified: trunk/libnet-twitter-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/META.yml?rev=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/META.yml (original)
+++ trunk/libnet-twitter-perl/META.yml Thu Mar 11 02:32:53 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.11008
+version: 3.11009

Modified: trunk/libnet-twitter-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/README?rev=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/README (original)
+++ trunk/libnet-twitter-perl/README Thu Mar 11 02:32:53 2010
@@ -2,10 +2,11 @@
     Net::Twitter - A perl interface to the Twitter API
 
 VERSION
-    This document describes Net::Twitter version 3.11008
+    This document describes Net::Twitter version 3.11009
 
 SYNOPSIS
       use Net::Twitter;
+      use Scalar::Util 'blessed';
 
       my $nt = Net::Twitter->new(
           traits   => [qw/API::REST/],

Modified: trunk/libnet-twitter-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/debian/changelog?rev=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/debian/changelog (original)
+++ trunk/libnet-twitter-perl/debian/changelog Thu Mar 11 02:32:53 2010
@@ -1,3 +1,10 @@
+libnet-twitter-perl (3.11009-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * Update copyright information
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Wed, 10 Mar 2010 21:59:09 -0500
+
 libnet-twitter-perl (3.11008-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libnet-twitter-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/debian/copyright?rev=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/debian/copyright (original)
+++ trunk/libnet-twitter-perl/debian/copyright Thu Mar 11 02:32:53 2010
@@ -9,16 +9,16 @@
 License: Artistic or GPL-1+
 
 Files: inc/Module/*
-Copyright: 2002-2009, Adam Kennedy <adamk at cpan.org>
- 2002-2009, Audrey Tang <autrijus at autrijus.org>
- 2002-2009, Brian Ingerson <ingy at cpan.org>
+Copyright: 2002-2010, Adam Kennedy <adamk at cpan.org>
+ 2002-2010, Audrey Tang <autrijus at autrijus.org>
+ 2002-2010, Brian Ingerson <ingy at cpan.org>
 License: Artistic or GPL-1+
 
 Files: debian/*
 Copyright: 2010, Jonathan Yu <jawnsy at cpan.org>
- 2009, Decklin Foster <decklin at red-bean.com>
  2010, gregor herrmann <gregoa at debian.org>
  2010, Franck Joncourt <franck at debian.org>
+ 2009, Decklin Foster <decklin at red-bean.com>
 License: Artistic or GPL-1+
 
 License: Artistic

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=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Identica.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Identica.pm Thu Mar 11 02:32:53 2010
@@ -2,7 +2,7 @@
 use Moose;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.11008';
+our $VERSION = '3.11009';
 $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=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter.pm Thu Mar 11 02:32:53 2010
@@ -11,7 +11,7 @@
 );
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.11008';
+our $VERSION = '3.11009';
 
 $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=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter.pod (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter.pod Thu Mar 11 02:32:53 2010
@@ -4,11 +4,12 @@
 
 =head1 VERSION
 
-This document describes Net::Twitter version 3.11008
+This document describes Net::Twitter version 3.11009
 
 =head1 SYNOPSIS
 
   use Net::Twitter;
+  use Scalar::Util 'blessed';
 
   my $nt = Net::Twitter->new(
       traits   => [qw/API::REST/],

Modified: trunk/libnet-twitter-perl/lib/Net/Twitter/API.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter/API.pm?rev=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/API.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/API.pm Thu Mar 11 02:32:53 2010
@@ -80,8 +80,11 @@
         
         my $uri = URI->new($caller->_base_url($self) . "/$local_path.json");
 
-        return $self->_parse_result(
-            $self->_authenticated_request($options{method}, $uri, $args, $authenticate),
+        return $self->_json_request(
+            $options{method},
+            $uri,
+            $args,
+            $authenticate,
             $synthetic_args,
             $options{datetime_parser},
         );

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=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm Thu Mar 11 02:32:53 2010
@@ -17,7 +17,7 @@
 use namespace::autoclean;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.11008';
+our $VERSION = '3.11009';
 
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 
@@ -113,6 +113,16 @@
     return { map { utf8::upgrade($_) unless ref($_); $_ } %$args };
 }
 
+sub _json_request { 
+    my ($self, $http_method, $uri, $args, $authenticate, $synthetic_args, $dt_parser) = @_;
+    
+    return $self->_parse_result(
+        $self->_authenticated_request($http_method, $uri, $args, $authenticate),
+        $synthetic_args,
+        $dt_parser,
+    );
+}
+
 # Basic Auth, overridden by Role::OAuth, if included
 sub _authenticated_request {
     my ($self, $http_method, $uri, $args, $authenticate) = @_;
@@ -142,8 +152,10 @@
     $msg->headers->authorization_basic($self->username, $self->password)
         if $authenticate && $self->has_username && $self->has_password;
 
-    return $self->ua->request($msg);
-}
+    return $self->_send_request($msg);
+}
+
+sub _send_request { shift->ua->request(shift) }
 
 # Twitter returns HTML encoded entities in the "text" field of status messages.
 # Decode them.

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=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm Thu Mar 11 02:32:53 2010
@@ -2,7 +2,7 @@
 use Moose;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.11008';
+our $VERSION = '3.11009';
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 
 extends  'Net::Twitter::Core';

Modified: trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/Lists.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/Lists.pm?rev=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/Lists.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/Lists.pm Thu Mar 11 02:32:53 2010
@@ -5,6 +5,8 @@
 use URI::Escape();
 use Try::Tiny;
 
+requires qw/_json_request/;
+
 =head1 NAME
 
 Net::Twitter::Role::API::Lists - Twitter Lists API support for Net::Twitter
@@ -173,9 +175,14 @@
 
     my $synthetic_args = $self->_extract_synthetic_args($args);
     my $authenticate = exists $synthetic_args->{authenticate} ? $synthetic_args->{authenticate} : 1;
-    my $res = $self->_authenticated_request($http_method, $uri, $args, $authenticate);
-
-    return $self->_parse_result($res, $synthetic_args, $self->_lists_dt_parser);
+    return $self->_json_request(
+        $http_method,
+        $uri,
+        $args,
+        $authenticate,
+        $synthetic_args,
+        $self->_lists_dt_parser,
+    );
 }
 
 sub _make_id_positional {

Modified: trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/REST.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/REST.pm?rev=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/REST.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Role/API/REST.pm Thu Mar 11 02:32:53 2010
@@ -23,7 +23,8 @@
 around BUILDARGS => sub {
     my $next    = shift;
     my $class   = shift;
-    my %options = @_;
+
+    my %options = @_ == 1 ? %{$_[0]} : @_;
 
     if ( delete $options{identica} ) {
         %options = (
@@ -33,7 +34,7 @@
         );
     }
 
-    return $next->($class, %options);
+    return $next->($class, \%options);
 };
 
 after credentials => sub {

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=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Role/OAuth.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Role/OAuth.pm Thu Mar 11 02:32:53 2010
@@ -20,11 +20,11 @@
 
     my $args = $class->$orig(@_);
     my $oauth_urls = delete $args->{oauth_urls} || {
-        request_token_url  => "http://twitter.com/oauth/request_token",
-        authentication_url => "http://twitter.com/oauth/authenticate",
-        authorization_url  => "http://twitter.com/oauth/authorize",
-        access_token_url   => "http://twitter.com/oauth/access_token",
-        xauth_url          => "https://twitter.com/oauth/access_token",
+        request_token_url  => "http://api.twitter.com/oauth/request_token",
+        authentication_url => "http://api.twitter.com/oauth/authenticate",
+        authorization_url  => "http://api.twitter.com/oauth/authorize",
+        access_token_url   => "http://api.twitter.com/oauth/access_token",
+        xauth_url          => "https://api.twitter.com/oauth/access_token",
     };
 
     return { %$oauth_urls, %$args };
@@ -203,7 +203,7 @@
         croak "unexpected http_method: $http_method";
     }
 
-    return $self->ua->request($msg);
+    return $self->_send_request($msg);
 };
 
 sub xauth {

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=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm Thu Mar 11 02:32:53 2010
@@ -2,7 +2,7 @@
 use Moose;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.11008';
+our $VERSION = '3.11009';
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 
 extends 'Net::Twitter::Core';

Modified: trunk/libnet-twitter-perl/src/net-twitter-pod.tt2
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/src/net-twitter-pod.tt2?rev=54073&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/src/net-twitter-pod.tt2 (original)
+++ trunk/libnet-twitter-perl/src/net-twitter-pod.tt2 Thu Mar 11 02:32:53 2010
@@ -9,6 +9,7 @@
 =head1 SYNOPSIS
 
   use Net::Twitter;
+  use Scalar::Util 'blessed';
 
   my $nt = Net::Twitter->new(
       traits   => [qw/API::REST/],

More information about the Pkg-perl-cvs-commits mailing list