Version 0.04
[catagits/Catalyst-Authentication-Credential-OAuth.git] / lib / Catalyst / Authentication / Credential / OAuth.pm
index dd600d7..ba846e3 100644 (file)
@@ -10,6 +10,8 @@ use String::Random qw/ random_string /;
 use Catalyst::Exception ();
 use namespace::autoclean;
 
+our $VERSION = '0.04';
+
 has debug => ( is => 'ro', isa => Bool );
 has providers => ( is => 'ro', isa => HashRef, required => 1 );
 has ua => ( is => 'ro', lazy_build => 1, init_arg => undef, isa => 'LWP::UserAgent' );
@@ -70,6 +72,7 @@ sub authenticate {
                        token => $response->token,
                        token_secret => '',
                        request_url => $provider->{access_token_endpoint},
+                       verifier => $c->req->params->{oauth_verifier},
                );
                $request->sign;
 
@@ -130,7 +133,7 @@ Catalyst::Authentication::Credential::OAuth - OAuth credential for Catalyst::Plu
 
 =head1 VERSION
 
-0.01
+0.02
 
 =head1 SYNOPSIS