/ 
Catalyst-Plugin-Facebook-0.1
River stage one • 1 direct dependent • 1 total dependent
/ Catalyst::Plugin::Facebook

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.