Yet Another CPAN Grep

WWW-Facebook-FQL ( S/SE/SEANO/WWW-Facebook-FQL-0.03.tar.gz, SEANO, 2007; MetaCPAN )

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

1 = $fb->{uid})");

  ## Get results in manageable form:
  use JSON::Syck; # or whatever...
  $fb->format = 'JSON';
  my $arrayref = JSON::Syck::Load $fb->query("...");

=head1 DESCRIPTION

WWW::Faceb

le with SQL, this may be a
more comfortable interface.  Results are currently returned in the raw
JSON or XML format, but more palatable options may be available in the
future.

=cut

use URI::Escape;

{secret} = $self->{private};
    my $resp = $self->_request_nofail('auth.createToken', format => 'JSON');
    $self->{auth_token} = eval $resp->decoded_content;
}

sub _get_session
{
    my $self = sh