X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAuthentication%2FCredential%2FOAuth.pm;fp=lib%2FCatalyst%2FAuthentication%2FCredential%2FOAuth.pm;h=dd600d7409f3fd98893ec00035c00639d92fe032;hb=2cd406c8c934d030e8fa6ffaca9779cd93a925cf;hp=60a9108c0fbaf45bfd75c5b634e8653f550d15a4;hpb=52b9a465f07f3ea456449f92eab759118319d3b7;p=catagits%2FCatalyst-Authentication-Credential-OAuth.git diff --git a/lib/Catalyst/Authentication/Credential/OAuth.pm b/lib/Catalyst/Authentication/Credential/OAuth.pm index 60a9108..dd600d7 100644 --- a/lib/Catalyst/Authentication/Credential/OAuth.pm +++ b/lib/Catalyst/Authentication/Credential/OAuth.pm @@ -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.