view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    And then in your Controller:

     sub login : Local {
        my ($self, $c) = @_;
       
        if (my $user = $c->authenticate(undef,'facebook')) {
                    # user is logged in - redirect or do something
            }
            else {
                    # user has no account in your system
                    # detect Facebook credentials and create an account
                    # or do comething else
            } 
     }

DESCRIPTION
    This module handles Facebook Platform authentication in a Catalyst
    application.

METHODS
    As per guidelines of Catalyst::Plugin::Authentication, there are two

lib/Catalyst/Authentication/Credential/Facebook.pm  view on Meta::CPAN

And then in your Controller:

 sub login : Local {
    my ($self, $c) = @_;
   
	if (my $user = $c->authenticate(undef,'facebook')) {
		# user is logged in - redirect or do something
	}
	else {
		# user has no account in your system
		# detect Facebook credentials and create an account
		# or do comething else
	} 
 }

=head1 DESCRIPTION

This module handles Facebook Platform authentication in a Catalyst application.

=head1 METHODS