[Catalyst-commits] r11406 -
Catalyst-Authentication-Credential-OAuth/trunk/lib/Catalyst/Authentication/Credential
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Fri Sep 25 09:27:34 GMT 2009
Author: t0m
Date: 2009-09-25 09:27:33 +0000 (Fri, 25 Sep 2009)
New Revision: 11406
Modified:
Catalyst-Authentication-Credential-OAuth/trunk/lib/Catalyst/Authentication/Credential/OAuth.pm
Log:
Chomp training space
Modified: Catalyst-Authentication-Credential-OAuth/trunk/lib/Catalyst/Authentication/Credential/OAuth.pm
===================================================================
--- Catalyst-Authentication-Credential-OAuth/trunk/lib/Catalyst/Authentication/Credential/OAuth.pm 2009-09-24 22:46:56 UTC (rev 11405)
+++ Catalyst-Authentication-Credential-OAuth/trunk/lib/Catalyst/Authentication/Credential/OAuth.pm 2009-09-25 09:27:33 UTC (rev 11406)
@@ -27,8 +27,8 @@
sub _build_ua {
my $self = shift;
-
- LWP::UserAgent->new;
+
+ LWP::UserAgent->new;
}
sub authenticate {
@@ -79,7 +79,7 @@
$response = Net::OAuth->response( 'access token' )->from_post_body( $ua_response->content );
- my $user = +{
+ my $user = +{
token => $response->token,
token_secret => $response->token_secret,
extra_params => $response->extra_params
@@ -208,7 +208,7 @@
=head1 COPYRIGHT
-Copyright (c) 2009 Sinapticode. All rights reserved
+Copyright (c) 2009 Sinapticode. All rights reserved
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
More information about the Catalyst-commits
mailing list