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