r54178 - in /trunk/libnet-twitter-perl: ./ debian/ 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
Fri Mar 12 12:43:10 UTC 2010
Author: jawnsy-guest
Date: Fri Mar 12 12:43:04 2010
New Revision: 54178
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54178
Log:
New upstream release
Added:
trunk/libnet-twitter-perl/t/lookup_users.t
- copied unchanged from r54172, branches/upstream/libnet-twitter-perl/current/t/lookup_users.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/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/REST.pm
trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm
trunk/libnet-twitter-perl/src/build.pl
trunk/libnet-twitter-perl/t/02_fails.t
trunk/libnet-twitter-perl/t/15_subclass.t
Modified: trunk/libnet-twitter-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/Changes?rev=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/Changes (original)
+++ trunk/libnet-twitter-perl/Changes Fri Mar 12 12:43:04 2010
@@ -1,3 +1,9 @@
+3.11011 2010-03-11
+ - fixed documentation to include lookup_users
+
+3.11010 2010-03-11
+ - Added lookup_users API method
+
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)
Modified: trunk/libnet-twitter-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/MANIFEST?rev=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/MANIFEST (original)
+++ trunk/libnet-twitter-perl/MANIFEST Fri Mar 12 12:43:04 2010
@@ -64,5 +64,6 @@
t/99-pod_syntax.t
t/geo.t
t/lib/TestUA.pm
+t/lookup_users.t
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=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/META.yml (original)
+++ trunk/libnet-twitter-perl/META.yml Fri Mar 12 12:43:04 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.11009
+version: 3.11011
Modified: trunk/libnet-twitter-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/README?rev=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/README (original)
+++ trunk/libnet-twitter-perl/README Fri Mar 12 12:43:04 2010
@@ -2,7 +2,7 @@
Net::Twitter - A perl interface to the Twitter API
VERSION
- This document describes Net::Twitter version 3.11009
+ This document describes Net::Twitter version 3.11011
SYNOPSIS
use Net::Twitter;
@@ -808,6 +808,34 @@
Returns: ArrayRef[Status]
+ lookup_users
+
+ Parameters: user_id, screen_name
+ Required: *none*
+
+ Return up to 20 users worth of extended information, specified by
+ either ID, screen name, or combination of the two. The author's most
+ recent status (if the authenticating user has permission) will be
+ returned inline. This method is rate limited to 1000 calls per hour.
+
+ This method will accept user IDs or screen names as either a comma
+ delimited string, or as an ARRAY ref. It will also accept arguments
+ in the normal HASHREF form or as a simple list of named arguments.
+ I.e., any of the following forms are acceptable:
+
+ $nt->lookup_users({ user_id => '1234,6543,3333' });
+ $nt->lookup_users(user_id => '1234,6543,3333');
+ $nt->lookup_users({ user_id => [ 1234, 6543, 3333 ] });
+ $nt->lookup_users({ screen_name => 'fred,barney,wilma' });
+ $nt->lookup_users(screen_name => ['fred', 'barney', 'wilma']);
+
+ $nt->lookup_users(
+ screen_name => ['fred', 'barney' ],
+ user_id => '4321,6789',
+ );
+
+ Returns: ArrayRef[User]
+
mentions
alias: replies
Modified: trunk/libnet-twitter-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/debian/changelog?rev=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/debian/changelog (original)
+++ trunk/libnet-twitter-perl/debian/changelog Fri Mar 12 12:43:04 2010
@@ -1,3 +1,9 @@
+libnet-twitter-perl (3.11011-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Fri, 12 Mar 2010 07:54:52 -0500
+
libnet-twitter-perl (3.11009-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=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Identica.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Identica.pm Fri Mar 12 12:43:04 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.11009';
+our $VERSION = '3.11011';
$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=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter.pm Fri Mar 12 12:43:04 2010
@@ -11,7 +11,7 @@
);
# use *all* digits for fBSD ports
-our $VERSION = '3.11009';
+our $VERSION = '3.11011';
$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=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter.pod (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter.pod Fri Mar 12 12:43:04 2010
@@ -4,7 +4,7 @@
=head1 VERSION
-This document describes Net::Twitter version 3.11009
+This document describes Net::Twitter version 3.11011
=head1 SYNOPSIS
@@ -1073,6 +1073,43 @@
Returns: ArrayRef[Status]
+=item B<lookup_users>
+
+
+
+=over 4
+
+=item Parameters: user_id, screen_name
+
+=item Required: I<none>
+
+=back
+
+Return up to 20 users worth of extended information, specified by either ID,
+screen name, or combination of the two. The author's most recent status (if the
+authenticating user has permission) will be returned inline. This method is
+rate limited to 1000 calls per hour.
+
+This method will accept user IDs or screen names as either a comma delimited
+string, or as an ARRAY ref. It will also accept arguments in the normal
+HASHREF form or as a simple list of named arguments. I.e., any of the
+following forms are acceptable:
+
+ $nt->lookup_users({ user_id => '1234,6543,3333' });
+ $nt->lookup_users(user_id => '1234,6543,3333');
+ $nt->lookup_users({ user_id => [ 1234, 6543, 3333 ] });
+ $nt->lookup_users({ screen_name => 'fred,barney,wilma' });
+ $nt->lookup_users(screen_name => ['fred', 'barney', 'wilma']);
+
+ $nt->lookup_users(
+ screen_name => ['fred', 'barney' ],
+ user_id => '4321,6789',
+ );
+
+
+
+Returns: ArrayRef[User]
+
=item B<mentions>
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=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Core.pm Fri Mar 12 12:43:04 2010
@@ -17,7 +17,7 @@
use namespace::autoclean;
# use *all* digits for fBSD ports
-our $VERSION = '3.11009';
+our $VERSION = '3.11011';
$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=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/OAuth.pm Fri Mar 12 12:43:04 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.11009';
+our $VERSION = '3.11011';
$VERSION = eval $VERSION; # numify for warning-free dev releases
extends 'Net::Twitter::Core';
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=54178&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 Fri Mar 12 12:43:04 2010
@@ -967,6 +967,51 @@
EOT
);
+twitter_api_method lookup_users => (
+ path => 'users/lookup',
+ method => 'GET',
+ params => [qw/user_id screen_name/],
+ required => [],
+ returns => 'ArrayRef[User]',
+ description => <<'EOT'
+Return up to 20 users worth of extended information, specified by either ID,
+screen name, or combination of the two. The author's most recent status (if the
+authenticating user has permission) will be returned inline. This method is
+rate limited to 1000 calls per hour.
+
+This method will accept user IDs or screen names as either a comma delimited
+string, or as an ARRAY ref. It will also accept arguments in the normal
+HASHREF form or as a simple list of named arguments. I.e., any of the
+following forms are acceptable:
+
+ $nt->lookup_users({ user_id => '1234,6543,3333' });
+ $nt->lookup_users(user_id => '1234,6543,3333');
+ $nt->lookup_users({ user_id => [ 1234, 6543, 3333 ] });
+ $nt->lookup_users({ screen_name => 'fred,barney,wilma' });
+ $nt->lookup_users(screen_name => ['fred', 'barney', 'wilma']);
+
+ $nt->lookup_users(
+ screen_name => ['fred', 'barney' ],
+ user_id => '4321,6789',
+ );
+
+EOT
+);
+
+around lookup_users => sub {
+ my $orig = shift;
+ my $self = shift;
+
+ my $args = ref $_[-1] eq 'HASH' ? pop @_ : {};
+ $args = { %$args, @_ };
+
+ for ( qw/screen_name user_id/ ) {
+ $args->{$_} = join(',' => @{ $args->{$_} }) if ref $args->{$_} eq 'ARRAY';
+ }
+
+ return $orig->($self, $args);
+};
+
1;
__END__
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=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm (original)
+++ trunk/libnet-twitter-perl/lib/Net/Twitter/Search.pm Fri Mar 12 12:43:04 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.11009';
+our $VERSION = '3.11011';
$VERSION = eval $VERSION; # numify for warning-free dev releases
extends 'Net::Twitter::Core';
Modified: trunk/libnet-twitter-perl/src/build.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/src/build.pl?rev=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/src/build.pl (original)
+++ trunk/libnet-twitter-perl/src/build.pl Fri Mar 12 12:43:04 2010
@@ -23,7 +23,10 @@
return
sort { $a->name cmp $b->name }
grep {
- blessed $_ && $_->isa('Net::Twitter::Meta::Method')
+ $_->isa('Net::Twitter::Meta::Method')
+ }
+ map {
+ $_->isa('Class::MOP::Method::Wrapped') ? $_->get_original_method : $_
} $nt->meta->get_all_methods;
}
Modified: trunk/libnet-twitter-perl/t/02_fails.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/t/02_fails.t?rev=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/t/02_fails.t (original)
+++ trunk/libnet-twitter-perl/t/02_fails.t Fri Mar 12 12:43:04 2010
@@ -24,6 +24,5 @@
throws_ok {
Net::Twitter->new(useragent_class => 'NoSuchModule::Test7701')->verify_credentials
} qr/Can't locate NoSuchModule/, 'bad useragent_class';
- qr/must not be a reference/, 'extra args';
exit 0;
Modified: trunk/libnet-twitter-perl/t/15_subclass.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-twitter-perl/t/15_subclass.t?rev=54178&op=diff
==============================================================================
--- trunk/libnet-twitter-perl/t/15_subclass.t (original)
+++ trunk/libnet-twitter-perl/t/15_subclass.t Fri Mar 12 12:43:04 2010
@@ -51,7 +51,7 @@
has subclass_attribute => ( reader => 'subclass_method', default => 'attribute value' );
}
-diag 'subclass with new';
+#diag 'subclass with new';
my $nt1 = My::Subclass::WithNew->new(username => 'me', password => 'secret');
isa_ok $nt1, 'Net::Twitter';
isa_ok $nt1, 'Net::Twitter::Core';
@@ -60,7 +60,7 @@
is $nt1->subclass_method, 'attribute value', 'has subclass attribute value';
is $nt1->password, 'secret', 'has base class attribute value';
-diag 'subclass without new';
+#diag 'subclass without new';
my $nt2 = My::Subclass::WithoutNew->new(username => 'me', password => 'secret');
isa_ok $nt2, 'Net::Twitter';
isa_ok $nt2, 'Net::Twitter::Core';
@@ -71,7 +71,7 @@
TODO: {
local $TODO = 'Moose classes should subclass Core, not Net::Twitter';
-diag 'Moose subclass';
+#diag 'Moose subclass';
my $nt3 = My::Subclass::WithMoose->new(username => 'me', password => 'secret');
isa_ok $nt3, 'Net::Twitter';
isa_ok $nt3, 'Net::Twitter::Core';
@@ -81,7 +81,7 @@
is $nt3->password, 'secret', 'has base class attribute value';
}
-diag 'valid Moose subclass';
+#diag 'valid Moose subclass';
my $nt4 = My::Subclass::ValidMoose->new(username => 'me', password => 'secret');
ok !$nt4->isa('Net::Twitter'), 'not created by Net::Twitter';
isa_ok $nt4, 'Net::Twitter::Core';
@@ -90,7 +90,7 @@
is $nt4->subclass_method, 'attribute value', 'has subclass attribute value';
is $nt4->password, 'secret', 'has base class attribute value';
-diag 'class reuse';
+#diag 'class reuse';
is ref $nt1, ref My::Subclass::WithNew->new, 'reused anon class';
ok ref $nt1 ne ref $nt2, 'different subclasses have different anon classes';
ok ref $nt1 ne ref My::Subclass::WithNew->new(legacy => 0), 'different roles have different classes';
More information about the Pkg-perl-cvs-commits
mailing list