r57755 - in /branches/upstream/libnet-twitter-perl/current: ./ lib/Net/ lib/Net/Twitter/ lib/Net/Twitter/Role/API/ src/ t/

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Sun May 9 20:42:13 UTC 2010


Author: jawnsy-guest
Date: Sun May  9 20:42:05 2010
New Revision: 57755

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57755
Log:
[svn-upgrade] Integrating new upstream version, libnet-twitter-perl (3.13000)

Modified:
    branches/upstream/libnet-twitter-perl/current/Changes
    branches/upstream/libnet-twitter-perl/current/META.yml
    branches/upstream/libnet-twitter-perl/current/README
    branches/upstream/libnet-twitter-perl/current/lib/Net/Identica.pm
    branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pm
    branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pod
    branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/API.pm
    branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Core.pm
    branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/OAuth.pm
    branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/API/REST.pm
    branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Search.pm
    branches/upstream/libnet-twitter-perl/current/src/net-twitter-pod.tt2
    branches/upstream/libnet-twitter-perl/current/t/20_generated.t
    branches/upstream/libnet-twitter-perl/current/t/51_since.t
    branches/upstream/libnet-twitter-perl/current/t/geo.t
    branches/upstream/libnet-twitter-perl/current/t/retry.t
    branches/upstream/libnet-twitter-perl/current/t/unicode.t

Modified: branches/upstream/libnet-twitter-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/Changes?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/Changes (original)
+++ branches/upstream/libnet-twitter-perl/current/Changes Sun May  9 20:42:05 2010
@@ -1,3 +1,8 @@
+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
+    - added friends_incoming and friendships_outgoing methods
+
 3.12000 2010-03-19
     - added new API methods: retweeted_by and retweeted_by_ids
     - fixed: t/51_since.t was actually connecting to twitter

Modified: branches/upstream/libnet-twitter-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/META.yml?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/META.yml (original)
+++ branches/upstream/libnet-twitter-perl/current/META.yml Sun May  9 20:42:05 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.12000
+version: 3.13000

Modified: branches/upstream/libnet-twitter-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/README?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/README (original)
+++ branches/upstream/libnet-twitter-perl/current/README Sun May  9 20:42:05 2010
@@ -2,7 +2,7 @@
     Net::Twitter - A perl interface to the Twitter API
 
 VERSION
-    This document describes Net::Twitter version 3.12000
+    This document describes Net::Twitter version 3.13000
 
 SYNOPSIS
       use Net::Twitter;
@@ -443,27 +443,38 @@
     These methods are provided when trait "API::REST" is included in the
     "traits" option to "new".
 
-    Several of these methods accept a user ID as the "id" parameter. The
-    user ID can be either a screen name, or the users numeric ID. To
-    disambiguate, use the "screen_name" or "user_id" parameters, instead.
-
-    For example, These calls are equivalent:
-
-        $nt->create_friend('perl_api');    # screen name
-        $nt->create_friend(1564061);       # numeric ID
-        $nt->create_friend({ id => 'perl_api' });
-        $nt->create_friend({ screen_name => 'perl_api' });
-        $nt->create_friend({ user_id     => 1564061 });
-
-    However user_id 911 and screen_name 911 are separate Twitter accounts.
-    These calls are NOT equivalent:
-
-        $nt->create_friend(911); # interpreted as screen name
-        $nt->create_friend({ user_id => 911 }); # screen name: richellis
-
-    Whenever the "id" parameter is required and "user_id" and "screen_name"
-    are also parameters, using any one of them satisfies the requirement.
-
+  Common Parameters
+    id  Several of these methods accept a user ID as the "id" parameter. The
+        user ID can be either a screen name, or the users numeric ID. To
+        disambiguate, use the "screen_name" or "user_id" parameters,
+        instead.
+
+        For example, These calls are equivalent:
+
+            $nt->create_friend('perl_api');    # screen name
+            $nt->create_friend(1564061);       # numeric ID
+            $nt->create_friend({ id => 'perl_api' });
+            $nt->create_friend({ screen_name => 'perl_api' });
+            $nt->create_friend({ user_id     => 1564061 });
+
+        However user_id 911 and screen_name 911 are separate Twitter
+        accounts. These calls are NOT equivalent:
+
+            $nt->create_friend(911); # interpreted as screen name
+            $nt->create_friend({ user_id => 911 }); # screen name: richellis
+
+        Whenever the "id" parameter is required and "user_id" and
+        "screen_name" are also parameters, using any one of them satisfies
+        the requirement.
+
+    skip_user
+        The timeline methods all accept an optional "skip_user" parameter.
+        When set to a true value, the statuses returned in a timeline will
+        not contain an entire embedded user HASH. Instead, the user node
+        will contain only an "id" element to indicate the numerical ID of
+        the Twitter user that sent the status.
+
+  Methods
     block_exists
     block_exists(id)
 
@@ -764,7 +775,7 @@
     friends_timeline
     alias: following_timeline
 
-        Parameters: since_id, max_id, count, page
+        Parameters: since_id, max_id, count, page, skip_user
         Required: *none*
 
         Returns the 20 most recent statuses posted by the authenticating
@@ -786,6 +797,30 @@
 
         Returns: Bool
 
+    friendships_incoming
+    friendships_incoming(cursor)
+
+        Parameters: cursor
+        Required: cursor
+
+        Returns an HASH ref with an array of numeric IDs in the "ids"
+        element for every user who has a pending request to follow the
+        authenticating user.
+
+        Returns: HashRef
+
+    friendships_outgoing
+    friendships_outgoing(cursor)
+
+        Parameters: cursor
+        Required: cursor
+
+        Returns an HASH ref with an array of numeric IDs in the "ids"
+        element for every protected user for whom the authenticating user
+        has a pending follow request.
+
+        Returns: HashRef
+
     geo_id
     geo_id(id)
 
@@ -799,7 +834,7 @@
 
     home_timeline
 
-        Parameters: since_id, max_id, count, page
+        Parameters: since_id, max_id, count, page, skip_user
         Required: *none*
 
         Returns the 20 most recent statuses, including retweets, posted by
@@ -862,8 +897,9 @@
         Returns: DirectMessage
 
     public_timeline
-
-        Parameters: *none*
+    public_timeline(skip_user)
+
+        Parameters: skip_user
         Required: *none*
 
         Returns the 20 most recent statuses from non-protected users who
@@ -1271,7 +1307,8 @@
 
     user_timeline
 
-        Parameters: id, user_id, screen_name, since_id, max_id, count, page
+        Parameters: id, user_id, screen_name, since_id, max_id, count, page,
+        skip_user
         Required: *none*
 
         Returns the 20 most recent statuses posted from the authenticating

Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Identica.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Identica.pm?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Identica.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Identica.pm Sun May  9 20:42:05 2010
@@ -2,7 +2,7 @@
 use Moose;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.12000';
+our $VERSION = '3.13000';
 $VERSION     = eval $VERSION; # numify for warning-free dev releases
 
 extends 'Net::Twitter::Core';

Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pm?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pm Sun May  9 20:42:05 2010
@@ -11,7 +11,7 @@
 );
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.12000';
+our $VERSION = '3.13000';
 
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 

Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pod?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pod (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pod Sun May  9 20:42:05 2010
@@ -4,7 +4,7 @@
 
 =head1 VERSION
 
-This document describes Net::Twitter version 3.12000
+This document describes Net::Twitter version 3.13000
 
 =head1 SYNOPSIS
 
@@ -452,7 +452,6 @@
         push @ids, @{ $r->{ids} };
     }
 
-
 =head2 Synthetic Arguments
 
 In addition to the arguments described in the Twitter API Documentation for
@@ -484,6 +483,12 @@
 These methods are provided when trait C<API::REST> is included in the C<traits>
 option to C<new>.
 
+=head2 Common Parameters
+
+=over 4
+
+=item id
+
 Several of these methods accept a user ID as the C<id> parameter.  The user ID
 can be either a screen name, or the users numeric ID.  To disambiguate, use
 the C<screen_name> or C<user_id> parameters, instead.
@@ -504,6 +509,17 @@
 
 Whenever the C<id> parameter is required and C<user_id> and C<screen_name> are
 also parameters, using any one of them satisfies the requirement.
+
+=item skip_user
+
+The timeline methods all accept an optional C<skip_user> parameter.  When set
+to a true value, the statuses returned in a timeline will not contain an entire
+embedded user HASH. Instead, the user node will contain only an C<id> element
+to indicate the numerical ID of the Twitter user that sent the status.
+
+=back
+
+=head2 Methods
 
 
 
@@ -999,7 +1015,7 @@
 
 =over 4
 
-=item Parameters: since_id, max_id, count, page
+=item Parameters: since_id, max_id, count, page, skip_user
 
 =item Required: I<none>
 
@@ -1035,6 +1051,47 @@
 
 Returns: Bool
 
+=item B<friendships_incoming>
+
+=item B<friendships_incoming(cursor)>
+
+
+
+=over 4
+
+=item Parameters: cursor
+
+=item Required: cursor
+
+=back
+
+Returns an HASH ref with an array of numeric IDs in the C<ids> element for
+every user who has a pending request to follow the authenticating user.
+
+
+Returns: HashRef
+
+=item B<friendships_outgoing>
+
+=item B<friendships_outgoing(cursor)>
+
+
+
+=over 4
+
+=item Parameters: cursor
+
+=item Required: cursor
+
+=back
+
+Returns an HASH ref with an array of numeric IDs in the C<ids> element for
+every protected user for whom the authenticating user has a pending follow
+request.
+
+
+Returns: HashRef
+
 =item B<geo_id>
 
 =item B<geo_id(id)>
@@ -1060,7 +1117,7 @@
 
 =over 4
 
-=item Parameters: since_id, max_id, count, page
+=item Parameters: since_id, max_id, count, page, skip_user
 
 =item Required: I<none>
 
@@ -1154,11 +1211,13 @@
 
 =item B<public_timeline>
 
-
-
-=over 4
-
-=item Parameters: I<none>
+=item B<public_timeline(skip_user)>
+
+
+
+=over 4
+
+=item Parameters: skip_user
 
 =item Required: I<none>
 
@@ -1790,7 +1849,7 @@
 
 =over 4
 
-=item Parameters: id, user_id, screen_name, since_id, max_id, count, page
+=item Parameters: id, user_id, screen_name, since_id, max_id, count, page, skip_user
 
 =item Required: I<none>
 

Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/API.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/API.pm?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/API.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/API.pm Sun May  9 20:42:05 2010
@@ -54,6 +54,7 @@
                          ? $synthetic_args->{authenticate}
                          : $options{authenticate}
                          ;
+
         # promote boolean parameters
         for my $boolean_arg ( @{ $options{booleans} } ) {
             if ( exists $args->{$boolean_arg} ) {
@@ -62,11 +63,15 @@
             }
         }
 
+        # Workaround Twitter bug: any value passed for skip_user is treated as true.
+        # The only way to get 'false' is to not pass the skip_user at all.
+        delete $args->{skip_user} if exists $args->{skip_user} && $args->{skip_user} eq 'false';
+
         # replace placeholder arguments
         my $local_path = $path;
         $local_path =~ s,/:id$,, unless exists $args->{id}; # remove optional trailing id
         $local_path =~ s/:(\w+)/delete $args->{$1} or croak "required arg '$1' missing"/eg;
-        
+
         my $uri = URI->new($caller->_base_url($self) . "/$local_path.json");
 
         return $self->_json_request(

Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Core.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Core.pm?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Core.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Core.pm Sun May  9 20:42:05 2010
@@ -17,7 +17,7 @@
 use namespace::autoclean;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.12000';
+our $VERSION = '3.13000';
 
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 

Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/OAuth.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/OAuth.pm?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/OAuth.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/OAuth.pm Sun May  9 20:42:05 2010
@@ -2,7 +2,7 @@
 use Moose;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.12000';
+our $VERSION = '3.13000';
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 
 extends  'Net::Twitter::Core';

Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/API/REST.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/API/REST.pm?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/API/REST.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/API/REST.pm Sun May  9 20:42:05 2010
@@ -65,7 +65,8 @@
     path     => 'statuses/public_timeline',
     method   => 'GET',
     returns  => 'ArrayRef[Status]',
-    params   => [],
+    params   => [qw/skip_user/],
+    booleans => [qw/skip_user/],
     required => [],
 );
 
@@ -77,7 +78,8 @@
 
     path      => 'statuses/home_timeline',
     method    => 'GET',
-    params    => [qw/since_id max_id count page/],
+    params    => [qw/since_id max_id count page skip_user/],
+    booleans  => [qw/skip_user/],
     required  => [],
     returns   => 'ArrayRef[Status]',
 );
@@ -148,7 +150,8 @@
     aliases   => [qw/following_timeline/],
     path      => 'statuses/friends_timeline',
     method    => 'GET',
-    params    => [qw/since_id max_id count page/],
+    params    => [qw/since_id max_id count page skip_user/],
+    booleans  => [qw/skip_user/],
     required  => [],
     returns   => 'ArrayRef[Status]',
 );
@@ -160,11 +163,12 @@
 parameter. This is the equivalent of the Web /archive page for
 your own user, or the profile page for a third party.
 
-    path    => 'statuses/user_timeline/:id',
-    method  => 'GET',
-    params  => [qw/id user_id screen_name since_id max_id count page/],
+    path     => 'statuses/user_timeline/:id',
+    method   => 'GET',
+    params   => [qw/id user_id screen_name since_id max_id count page skip_user/],
+    booleans => [qw/skip_user/],
     required => [],
-    returns => 'ArrayRef[Status]',
+    returns  => 'ArrayRef[Status]',
 );
 
 # TODO: URL should be 'mentions', not 'replies', but the Laconica API doesn't
@@ -1020,6 +1024,32 @@
 
 );
 
+twitter_api_method friendships_incoming => (
+    path => 'friendships/incoming',
+    method => 'GET',
+    params => [qw/cursor/],
+    required => [qw/cursor/],
+    returns  => 'HashRef',
+    description => <<'',
+Returns an HASH ref with an array of numeric IDs in the C<ids> element for
+every user who has a pending request to follow the authenticating user.
+
+);
+
+twitter_api_method friendships_outgoing => (
+    path => 'friendships/outgoing',
+    method => 'GET',
+    params => [qw/cursor/],
+    required => [qw/cursor/],
+    returns  => 'HashRef',
+    description => <<'',
+Returns an HASH ref with an array of numeric IDs in the C<ids> element for
+every protected user for whom the authenticating user has a pending follow
+request.
+
+);
+
+
 around lookup_users => sub {
     my $orig = shift;
     my $self = shift;

Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Search.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Search.pm?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Search.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Search.pm Sun May  9 20:42:05 2010
@@ -2,7 +2,7 @@
 use Moose;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.12000';
+our $VERSION = '3.13000';
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 
 extends 'Net::Twitter::Core';

Modified: branches/upstream/libnet-twitter-perl/current/src/net-twitter-pod.tt2
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/src/net-twitter-pod.tt2?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/src/net-twitter-pod.tt2 (original)
+++ branches/upstream/libnet-twitter-perl/current/src/net-twitter-pod.tt2 Sun May  9 20:42:05 2010
@@ -452,7 +452,6 @@
         push @ids, @{ $r->{ids} };
     }
 
-
 =head2 Synthetic Arguments
 
 In addition to the arguments described in the Twitter API Documentation for
@@ -484,6 +483,12 @@
 These methods are provided when trait C<API::REST> is included in the C<traits>
 option to C<new>.
 
+=head2 Common Parameters
+
+=over 4
+
+=item id
+
 Several of these methods accept a user ID as the C<id> parameter.  The user ID
 can be either a screen name, or the users numeric ID.  To disambiguate, use
 the C<screen_name> or C<user_id> parameters, instead.
@@ -504,6 +509,17 @@
 
 Whenever the C<id> parameter is required and C<user_id> and C<screen_name> are
 also parameters, using any one of them satisfies the requirement.
+
+=item skip_user
+
+The timeline methods all accept an optional C<skip_user> parameter.  When set
+to a true value, the statuses returned in a timeline will not contain an entire
+embedded user HASH. Instead, the user node will contain only an C<id> element
+to indicate the numerical ID of the Twitter user that sent the status.
+
+=back
+
+=head2 Methods
 
 [% INCLUDE APIDOC class='API::REST' %]
 

Modified: branches/upstream/libnet-twitter-perl/current/t/20_generated.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/t/20_generated.t?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/t/20_generated.t (original)
+++ branches/upstream/libnet-twitter-perl/current/t/20_generated.t Sun May  9 20:42:05 2010
@@ -43,6 +43,14 @@
             my %expected;
             my @local_params = @params[0..$#{$pos_params}];
             @expected{@$pos_params} = @local_params;
+
+            # HACK! Expect "true" or "false" for boolean params
+            for my $bool_param ( @{ $entry->booleans || [] } ) {
+                if ( exists $expected{$bool_param} ) {
+                    $expected{$bool_param} = $expected{$bool_param} ? 'true' : 'false';
+                }
+            }
+
             $expected{source} = $nt->source if $entry->add_source;
 
             my $r = eval { $nt->$call(@local_params) };

Modified: branches/upstream/libnet-twitter-perl/current/t/51_since.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/t/51_since.t?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/t/51_since.t (original)
+++ branches/upstream/libnet-twitter-perl/current/t/51_since.t Sun May  9 20:42:05 2010
@@ -3,11 +3,13 @@
 use strict;
 use Try::Tiny;
 use Scalar::Util qw/blessed/;
-use Test::More tests => 8;
+use Test::More;
 use lib qw(t/lib);
 
 eval 'use TestUA';
 plan skip_all => 'LWP::UserAgent 5.819 required' if $@;
+
+plan tests => 8;
 
 use_ok 'Net::Twitter';
 

Modified: branches/upstream/libnet-twitter-perl/current/t/geo.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/t/geo.t?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/t/geo.t (original)
+++ branches/upstream/libnet-twitter-perl/current/t/geo.t Sun May  9 20:42:05 2010
@@ -2,11 +2,13 @@
 use warnings;
 use strict;
 use Try::Tiny;
-use Test::More tests => 2;
+use Test::More;
 use Net::Twitter;
 
 eval "use LWP::UserAgent 5.819";
 plan skip_all => 'LWP::UserAgent >= 5.819 required' if $@;
+
+plan tests => 2;
 
 my $req;
 my $ua = LWP::UserAgent->new;

Modified: branches/upstream/libnet-twitter-perl/current/t/retry.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/t/retry.t?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/t/retry.t (original)
+++ branches/upstream/libnet-twitter-perl/current/t/retry.t Sun May  9 20:42:05 2010
@@ -2,11 +2,13 @@
 use warnings;
 use strict;
 use Try::Tiny;
-use Test::More tests => 1;
+use Test::More;
 use Net::Twitter;
 
 eval "use LWP::UserAgent 5.819";
 plan skip_all => 'LWP::UserAgent >= 5.819 required' if $@;
+
+plan tests => 1;
 
 my $req;
 my $ua = LWP::UserAgent->new;

Modified: branches/upstream/libnet-twitter-perl/current/t/unicode.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/t/unicode.t?rev=57755&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/t/unicode.t (original)
+++ branches/upstream/libnet-twitter-perl/current/t/unicode.t Sun May  9 20:42:05 2010
@@ -2,12 +2,14 @@
 use warnings;
 use strict;
 use Try::Tiny;
-use Test::More tests => 9;
+use Test::More;
 use Encode qw/decode encode_utf8 decode_utf8/;
 use Net::Twitter;
 
 eval "use LWP::UserAgent 5.819";
 plan skip_all => 'LWP::UserAgent >= 5.819 required' if $@;
+
+plan tests => 9;
 
 my $req;
 my $ua = LWP::UserAgent->new;




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