use Catalyst::Exception ();
use namespace::autoclean;
+our $VERSION = '0.02';
+
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' );
sub _build_ua {
my $self = shift;
-
- LWP::UserAgent->new;
+
+ LWP::UserAgent->new;
}
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
=head1 VERSION
-0.01
+0.02
=head1 SYNOPSIS
=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.