Yet Another CPAN Grep

WWW-Lovefilm-API ( P/PM/PMOONEY/WWW-Lovefilm-API-0.13.tar.gz, PMOONEY, 2010; MetaCPAN )

WWW-Lovefilm-API/lib/WWW/Lovefilm/API.pm ( view source; MetaCPAN )

NOPSIS

  use WWW::Lovefilm::API;
  use XML::Simple;
  use Data::Dumper;
  use URI::Escape;
  use JSON;

  my %auth = Your::Custom::getAuthFromCache();

  my $lovefilm = WWW::Lovefilm::API->new({

 $auth{access_secret},
    user_id         => $auth{user_id},

    content_filter => sub { decode_json(shift) },  # optional
  });

  if( ! $auth{user_id} ){
    my %data = $lovefilm->RequestToken();