Yet Another CPAN Grep

WWW-Facebook-FQL-Simple ( A/AJ/AJCT/WWW-Facebook-FQL-Simple-0.03.tar.gz, AJCT, 2012; MetaCPAN )

WWW-Facebook-FQL-Simple/lib/WWW/Facebook/FQL/Simple.pm ( view source; MetaCPAN )

trict;
use warnings;

use JSON;
use LWP::UserAgent;
use URI::Encode qw( uri_encode );
use Carp qw/croak/;

my $API_BASE = 'http://api.facebook.com/method/fql.query?format=json&query=';


sub query {

encode( $API_BASE . $args->{query} ) );

    if ( $response->is_success ) {
        return decode_json $response->content;
    }
    else {
        croak $response->status_line;
    }

}


1;

__END__

ike_count FROM link_stat WHERE url="http://twitter.com"'
    });

Returns a hash reference of the JSON returned from the API.

=head1 SEE ALSO

L<Facebook>, L<WWW::Facebook::API>, L<WWW::Facebook::FQL