[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