Chomp training space
[catagits/Catalyst-Authentication-Credential-OAuth.git] / lib / Catalyst / Authentication / Credential / OAuth.pm
index 60a9108..dd600d7 100644 (file)
@@ -27,8 +27,8 @@ sub BUILD {
 
 sub _build_ua {
     my $self = shift;
-    
-    LWP::UserAgent->new;    
+
+    LWP::UserAgent->new;
 }
 
 sub authenticate {
@@ -79,7 +79,7 @@ sub authenticate {
 
                $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 @@ Only tested with twitter
 
 =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.