The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Catalyst-Plugin-Facebook-0.2
River stage one • 1 direct dependent • 1 total dependent
++
/ Catalyst::Plugin::Facebook

VERSION

version 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'.

INTERFACE

METHODS

facebook

This method, which will be available on your Catalyst context object, will return the full WWW::Facebook::API object.

fb

fb is just an alias for facebook.

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.

AUTHOR

  Nick Gerakines <nick@gerakines.net>

COPYRIGHT AND LICENSE

This software is copyright (c) 2009 by Nick Gerakines.

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