Net::Facebook::Oauth2 - a simple Perl wrapper around Facebook OAuth v2.0 protocol
Somewhere in your application's login process:
use Net::Facebook::Oauth2; my $fb = Net::Facebook::Oauth2->new( application_id => 'your_application_id', application_secret => 'your_application_secret', callback => 'http://yourdomain.com/facebook/callback' ); # get the authorization URL for your application my $url = $fb->get_authorization_url( scope => [ 'public_profile', 'email', 'user_posts', 'manage_pages' ], display => 'page' );
Now redirect the user to this $url.
$url
Once the user authorizes your application, Facebook will send him/her back to your application, on the callback link provided above.
callback
Inside that callback route, use the verifier code parameter that Facebook sends to get the access token:
# param() below is a bogus function. Use whatever your web framework # provides (e.g. $c->req->param('code'), $cgi->param('code'), etc) my $code = param('code'); my $access_token = $fb->get_access_token(code => $code);
If you got so far, your user is logged! Save this access token in your database or session.
Later on you can use it to communicate with Facebook on behalf of this user:
my $fb = Net::Facebook::Oauth2->new( access_token => $access_token ); my $info = $fb->get( 'https://graph.facebook.com/v2.8/me' # Facebook API URL ); print $info->as_json;
Net::Facebook::Oauth2 gives you a way to simply access FaceBook Oauth 2.0 protocol
For more information please see example folder shipped with this Module, or refer to the full documentation.
cpanm Net::Facebook::Oauth2
Or the old-fashioned manual way:
perl Makefile.PL make make test make install
Mahmoud A. Mehyar, <mamod.mehyar@gmail.com>
Big Thanks To
Takatsugu Shigeta @comewalk
Breno G. de Oliveira @garu
squinker @squinker
Valcho Nedelchev @valchonedelchev
Copyright (C) 2012-2016 by Mahmoud A. Mehyar
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.
To install Net::Facebook::Oauth2, copy and paste the appropriate command in to your terminal.
cpanm
CPAN shell
perl -MCPAN -e shell install Net::Facebook::Oauth2
For more information on module installation, please visit the detailed CPAN module installation guide.