[Catalyst-commits] r10963 -
Catalyst-Authentication-Credential-FBConnect/branches/cleanup-moose/lib/Catalyst/Authentication/Credential
cosmincx at dev.catalyst.perl.org
cosmincx at dev.catalyst.perl.org
Thu Jul 23 13:51:39 GMT 2009
Author: cosmincx
Date: 2009-07-23 13:51:39 +0000 (Thu, 23 Jul 2009)
New Revision: 10963
Modified:
Catalyst-Authentication-Credential-FBConnect/branches/cleanup-moose/lib/Catalyst/Authentication/Credential/FBConnect.pm
Log:
s/key/api_key/, update pod
Modified: Catalyst-Authentication-Credential-FBConnect/branches/cleanup-moose/lib/Catalyst/Authentication/Credential/FBConnect.pm
===================================================================
--- Catalyst-Authentication-Credential-FBConnect/branches/cleanup-moose/lib/Catalyst/Authentication/Credential/FBConnect.pm 2009-07-23 09:32:08 UTC (rev 10962)
+++ Catalyst-Authentication-Credential-FBConnect/branches/cleanup-moose/lib/Catalyst/Authentication/Credential/FBConnect.pm 2009-07-23 13:51:39 UTC (rev 10963)
@@ -7,7 +7,7 @@
use namespace::autoclean;
has debug => ( is => 'ro', isa => Bool, );
-has key => ( is => 'ro', isa => NonEmptySimpleStr, required => 1 );
+has api_key => ( is => 'ro', isa => NonEmptySimpleStr, required => 1 );
has secret => ( is => 'ro', isa => NonEmptySimpleStr, required => 1 );
has app_name => ( is => 'ro', isa => NonEmptySimpleStr, required => 1 );
has fbconnect => ( is => 'ro', lazy_build => 1, init_arg => undef, isa => 'WWW::Facebook::API' );
@@ -25,6 +25,7 @@
sub _build_fbconnect {
my $self = shift;
+
WWW::Facebook::API->new(
desktop => 0,
map { $_ => $self->$_() } qw/ app_name api_key secret /
@@ -57,7 +58,6 @@
return;
}
else {
-
$c->res->redirect( $self->fbconnect->get_login_url( next => $c->uri_for( $c->action, $c->req->captures, @{ $c->req->args } ) ) );
}
@@ -89,19 +89,19 @@
In myapp.conf
- <Plugin::Authentication>
- default_realm facebook
- <realms>
- <facebook>
+ <Plugin::Authentication>
+ default_realm facebook
+ <realms>
+ <facebook>
<credential>
- class FBConnect
- </credential>
- key my_app_key
- secret my_app_secret
- app_name my_app_name
- </facebook>
- </realms>
-</Plugin::Authentication>
+ class FBConnect
+ api_key my_app_key
+ secret my_app_secret
+ app_name my_app_name
+ </credential>
+ </facebook>
+ </realms>
+ </Plugin::Authentication>
In controller code,
More information about the Catalyst-commits
mailing list