r54151 - in /trunk/libnet-oauth-perl: Changes MANIFEST META.yml debian/changelog demos/echo-provider/ lib/Net/OAuth.pm lib/Net/OAuth/Message.pm lib/Net/OAuth/Request.pm lib/Net/OAuth/XauthAccessTokenRequest.pm t/12-xauth.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Mar 12 00:16:28 UTC 2010
Author: jawnsy-guest
Date: Fri Mar 12 00:16:20 2010
New Revision: 54151
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54151
Log:
New upstream release
Added:
trunk/libnet-oauth-perl/demos/echo-provider/
- copied from r54150, branches/upstream/libnet-oauth-perl/current/demos/echo-provider/
trunk/libnet-oauth-perl/lib/Net/OAuth/XauthAccessTokenRequest.pm
- copied unchanged from r54150, branches/upstream/libnet-oauth-perl/current/lib/Net/OAuth/XauthAccessTokenRequest.pm
trunk/libnet-oauth-perl/t/12-xauth.t
- copied unchanged from r54150, branches/upstream/libnet-oauth-perl/current/t/12-xauth.t
Modified:
trunk/libnet-oauth-perl/Changes
trunk/libnet-oauth-perl/MANIFEST
trunk/libnet-oauth-perl/META.yml
trunk/libnet-oauth-perl/debian/changelog
trunk/libnet-oauth-perl/lib/Net/OAuth.pm
trunk/libnet-oauth-perl/lib/Net/OAuth/Message.pm
trunk/libnet-oauth-perl/lib/Net/OAuth/Request.pm
Modified: trunk/libnet-oauth-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/Changes?rev=54151&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/Changes (original)
+++ trunk/libnet-oauth-perl/Changes Fri Mar 12 00:16:20 2010
@@ -75,6 +75,12 @@
Fixed http://rt.cpan.org/Public/Bug/Display.html?id=48867 - error in synopsis - thanks Adam Taylor!
Removed UTF8 double-encoding warning. Now Net::OAuth::Message::encode() uses Encode::is_utf8() to determine if the input is already UTF-8 encoded. If so, it runs decode_utf8() on it before sending it to uri_escape_utf8(). Thanks Hector Garcia Alvarez!
Potentially fixed an issue found by Marc Mims, where HMAC_SHA1 was failing to load, breaking some CPAN tests. Build.PL now explicitly requires Digest::SHA1 and Encode. Hopefully that fixes it.
-
-
+
+0.21 Wed, 10 Mar 2010 22:20:49 UTC
+ Added xAuth support with xAuthAccessTokenRequest (thanks Masayoshi Sekimura and Simon Wistow)
+ Added performance patch to decrease stat() system calls when requiring modules (thanks Brad Whitaker)
+
+0.22 Thu, 11 Mar 2010 00:21:26 UTC
+ Renamed xAuthAccessTokenRequest to XauthAccessTokenRequest for CamelCaseConsistency
+ Added a couple tests for XauthAccessTokenRequest
Modified: trunk/libnet-oauth-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/MANIFEST?rev=54151&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/MANIFEST (original)
+++ trunk/libnet-oauth-perl/MANIFEST Fri Mar 12 00:16:20 2010
@@ -1,5 +1,7 @@
Build.PL
Changes
+demos/echo-provider/.htaccess
+demos/echo-provider/request-token.cgi
demos/google/.htaccess
demos/google/config.yml
demos/google/default.html
@@ -37,6 +39,7 @@
lib/Net/OAuth/V1_0A/RequestTokenRequest.pm
lib/Net/OAuth/V1_0A/RequestTokenResponse.pm
lib/Net/OAuth/V1_0A/UserAuthResponse.pm
+lib/Net/OAuth/XauthAccessTokenRequest.pm
Makefile.PL
MANIFEST This list of files
META.yml
@@ -51,5 +54,6 @@
t/09-encoding.t
t/10-misc.t
t/11-spec-1.0a.t
+t/12-xauth.t
t/rsakey
t/rsakey.pub
Modified: trunk/libnet-oauth-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/META.yml?rev=54151&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/META.yml (original)
+++ trunk/libnet-oauth-perl/META.yml Fri Mar 12 00:16:20 2010
@@ -1,6 +1,6 @@
---
name: Net-OAuth
-version: 0.20
+version: 0.22
author:
- 'Keith Grennan <kgrennan at cpan.org>'
abstract: An implementation of the OAuth protocol
@@ -21,7 +21,7 @@
provides:
Net::OAuth:
file: lib/Net/OAuth.pm
- version: 0.20
+ version: 0.22
Net::OAuth::AccessTokenRequest:
file: lib/Net/OAuth/AccessTokenRequest.pm
Net::OAuth::AccessTokenResponse:
@@ -34,7 +34,7 @@
file: lib/Net/OAuth/ProtectedResourceRequest.pm
Net::OAuth::Request:
file: lib/Net/OAuth/Request.pm
- version: 0.20
+ version: 0.22
Net::OAuth::RequestTokenRequest:
file: lib/Net/OAuth/RequestTokenRequest.pm
Net::OAuth::RequestTokenResponse:
@@ -59,6 +59,8 @@
file: lib/Net/OAuth/V1_0A/RequestTokenResponse.pm
Net::OAuth::V1_0A::UserAuthResponse:
file: lib/Net/OAuth/V1_0A/UserAuthResponse.pm
+ Net::OAuth::XauthAccessTokenRequest:
+ file: lib/Net/OAuth/XauthAccessTokenRequest.pm
generated_by: Module::Build version 0.35
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
Modified: trunk/libnet-oauth-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/debian/changelog?rev=54151&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/debian/changelog (original)
+++ trunk/libnet-oauth-perl/debian/changelog Fri Mar 12 00:16:20 2010
@@ -1,3 +1,9 @@
+libnet-oauth-perl (0.22-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Thu, 11 Mar 2010 19:31:21 -0500
+
libnet-oauth-perl (0.20-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libnet-oauth-perl/lib/Net/OAuth.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/lib/Net/OAuth.pm?rev=54151&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/lib/Net/OAuth.pm (original)
+++ trunk/libnet-oauth-perl/lib/Net/OAuth.pm Fri Mar 12 00:16:20 2010
@@ -8,7 +8,7 @@
sub OAUTH_VERSION() {'1.0'}
-our $VERSION = '0.20';
+our $VERSION = '0.22';
our $SKIP_UTF8_DOUBLE_ENCODE_CHECK = 0; # this is not actually used any more
our $PROTOCOL_VERSION = PROTOCOL_VERSION_1_0;
@@ -29,7 +29,7 @@
my $base_class = ref $self || $self;
my $type = camel(shift);
my $class = $base_class . '::' . $type;
- $class->require;
+ smart_require($class);
return $class;
}
@@ -42,6 +42,16 @@
}
}
my $name = join('', map("\u$_", @words));
+}
+
+our %ALREADY_REQUIRED = (); # class_name => rv of ->require
+
+sub smart_require {
+ my $required_class = shift;
+ unless (exists $ALREADY_REQUIRED{$required_class}) {
+ $ALREADY_REQUIRED{$required_class} = $required_class->require;
+ }
+ return $ALREADY_REQUIRED{$required_class};
}
=head1 NAME
Modified: trunk/libnet-oauth-perl/lib/Net/OAuth/Message.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/lib/Net/OAuth/Message.pm?rev=54151&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/lib/Net/OAuth/Message.pm (original)
+++ trunk/libnet-oauth-perl/lib/Net/OAuth/Message.pm Fri Mar 12 00:16:20 2010
@@ -3,7 +3,6 @@
use strict;
use base qw/Class::Data::Inheritable Class::Accessor/;
use URI::Escape;
-use UNIVERSAL::require;
use Net::OAuth;
use URI;
use URI::QueryParam;
@@ -65,9 +64,7 @@
my $protocol_version = $params->{protocol_version} || $Net::OAuth::PROTOCOL_VERSION;
if (defined $protocol_version and $protocol_version == Net::OAuth::PROTOCOL_VERSION_1_0A and $class !~ /\::V1_0A\::/) {
(my $versioned_class = $class) =~ s/::(\w+)$/::V1_0A::$1/;
- if ($versioned_class->require) {
- return $versioned_class;
- }
+ return $versioned_class if Net::OAuth::smart_require($versioned_class);
}
return $class;
}
@@ -104,7 +101,7 @@
my $str = shift;
$str = "" unless defined $str;
if ($str =~ /[\x80-\xFF]/) {
- Encode->require;
+ Net::OAuth::smart_require('Encode');
no strict 'subs';
if (Encode::is_utf8($str)) {
# Avoid double-encoding UTF-8.
@@ -184,9 +181,9 @@
sub _signature_method_class {
my $self = shift;
(my $signature_method = $self->signature_method) =~ s/\W+/_/g;
- my $klass = 'Net::OAuth::SignatureMethod::' . $signature_method;
- $klass->require or die "Unable to load $signature_method plugin";
- return $klass;
+ my $sm_class = 'Net::OAuth::SignatureMethod::' . $signature_method;
+ die "Unable to load $signature_method plugin" unless Net::OAuth::smart_require($sm_class);
+ return $sm_class;
}
sub to_authorization_header {
Modified: trunk/libnet-oauth-perl/lib/Net/OAuth/Request.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/lib/Net/OAuth/Request.pm?rev=54151&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/lib/Net/OAuth/Request.pm (original)
+++ trunk/libnet-oauth-perl/lib/Net/OAuth/Request.pm Fri Mar 12 00:16:20 2010
@@ -5,7 +5,7 @@
use URI;
use URI::QueryParam;
-our $VERSION = '0.20';
+our $VERSION = '0.22';
__PACKAGE__->mk_classdata(required_message_params => [qw/
consumer_key
More information about the Pkg-perl-cvs-commits
mailing list