[Catalyst-commits] r12181 - trunk/examples/CatalystAdvent/root/2009
zamolxes at dev.catalyst.perl.org
zamolxes at dev.catalyst.perl.org
Fri Dec 4 00:02:28 GMT 2009
Author: zamolxes
Date: 2009-12-04 00:02:28 +0000 (Fri, 04 Dec 2009)
New Revision: 12181
Modified:
trunk/examples/CatalystAdvent/root/2009/4.pod
Log:
removed some whitespace
Modified: trunk/examples/CatalystAdvent/root/2009/4.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2009/4.pod 2009-12-03 23:56:20 UTC (rev 12180)
+++ trunk/examples/CatalystAdvent/root/2009/4.pod 2009-12-04 00:02:28 UTC (rev 12181)
@@ -75,7 +75,6 @@
}
} );
-
The user table should have some columns for holding the external credential
info, if you want to associate the two. We're using C<credential_identifier>
to hold the Facebook uid. If you're using multiple external authentication
@@ -115,10 +114,8 @@
);
__PACKAGE__->set_primary_key( 'user_id' );
-
__PACKAGE__->add_unique_constraint( [ qw/ credential_identifier credential_source / ] );
-
1;
=head2 The login action
@@ -137,7 +134,6 @@
that we'll just use the familiar API to reauthenticate the user in the
C<dbic> realm.
-
sub login : Path('/login/facebook') {
my ($self, $c) = @_;
@@ -154,11 +150,9 @@
}
}
-
=head2 Connect an existing user
You can also assign a Facebook account to an already existing account:
-
sub assign : Path('/assign/facebook') {
my ($self, $c) = @_;
@@ -178,7 +172,6 @@
}
-
=head2 Use the Facebook API
All the work above gets you the uid from Facebook. This can be used
@@ -203,8 +196,6 @@
uid => $c->user->credential_identifier
);
-
-
More about this can be found in the L<WWW::Facebook::API> docs, enjoy :)
=head1 AUTHOR
More information about the Catalyst-commits
mailing list