[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