love_risuco.psgi

use strict;
use Plack::App::URLMap;
use Plack::Request;
use Facebook::Graph;
use URI;

my $app_id = "";
my $secret = "";

my $urlmap = Plack::App::URLMap->new;

my $fb = Facebook::Graph->new(
    postback    => 'http://xxx/facebook/postback',
    app_id      => $app_id,
    secret      => $secret,
);

my $connect = sub {
    my $env      = shift;
    my $request  = Plack::Request->new($env);
    my $response = $request->new_response;
    $response->redirect(
        $fb->authorize->extend_permissions(qw(publish_stream))
          ->uri_as_string );
    return $response->finalize;
};
$urlmap->map( "/facebook" => $connect );

my $postback = sub {
    my $env     = shift;
    my $request = Plack::Request->new($env);
    $fb->request_access_token( $request->param('code') );
    my $uri = URI->new('http://xxx/hello');
    $uri->query_form( access_token => $fb->access_token );
    my $response = $request->new_response;
    $response->redirect( $uri->as_string );
    return $response->finalize;
};
$urlmap->map( "/facebook/postback" => $postback );

my $hello = sub {
    my $env     = shift;
    my $request = Plack::Request->new($env);
    $fb->access_token( $request->param('access_token') );
    my $post_response = $fb->add_post
        ->set_message('I like risuco via API.')
            ->publish;
    my $response = $request->new_response;
    $response->status(200);
    $response->content_type('text/plain');
    $response->body( $post_response->as_string() );
    return $response->finalize;
};
$urlmap->map( "/hello" => $hello );

$urlmap->to_app;