Nicholas Gerakines > Catalyst-Plugin-Facebook-0.1 > Catalyst::Plugin::Facebook

Download:
Catalyst-Plugin-Facebook-0.1.tar.gz

Dependencies

Annotate this POD (1)

View/Report Bugs
Module Version: 0.1   Source   Latest Release: Catalyst-Plugin-Facebook-0.2

NAME ^

Catalyst::Plugin::Facebook - Build Facebook applications in Catalyst easier

SYNOPSIS ^

This module adds quick and easy access to WWW::Facebook::API within a Catalyst application.

  use Catalyst qw/Facebook/;
  __PACKAGE__->config(
    'facebook' => {
      'api_key' => 'api_key_xyz',
      'secret' => '12345ddd',
    }
  );
  
  sub auto : Private { 
      my ( $self, $c ) = @_;
      if (! $self->can_display($c)) {
          return;
      }
      return 1;
  }
  
  sub can_display {
      my ($self, $c) = @_;
      if (! $c->facebook->canvas->in_fb_canvas()) {
          $c->res->redirect('http://apps.facebook.com/iplaywow/');
          return 0;
      }
      if (! $c->facebook->canvas->get_fb_params->{'added'} ) {
          $c->res->redirect($c->facebook->get_add_url());
          return 0;
      }
      my $user = $c->facebook->canvas->get_fb_params->{'user'};
      if (! $user) {
          $c->res->redirect($c->facebook->get_login_url());
          return 0;
      }
      return 1;
  }

CONFIGURATION ^

This package uses the 'facebook' configuration namespace. See the WWW::Facebook::API module for all of the configuration options available.

The two required configuration options are 'api_key' and 'secret'.

EXPORT ^

This package exports the facebook method. The facebook method returns a full WWW::Facebook::API object.

BUGS ^

Please report any bugs or feature requests to bug-catalyst-plugin-facebook at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Catalyst-Plugin-Facebook. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT ^

You can find documentation for this module with the perldoc command.

    perldoc Catalyst::Plugin::Facebook

You can also look for information at:

COPYRIGHT & LICENSE ^

Copyright 2007 Nick Gerakines, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: