#!/usr/bin/perl
use
strict;
use
warnings;
use
WWW::Lovefilm::API;
use
XML::Simple;
my
$lovefilm
= WWW::Lovefilm::API->new({
do
(
'vars.inc'
),
content_filter
=>
sub
{ XMLin(
@_
) },
});
$lovefilm
->REST->Users;
$lovefilm
->Get;
if
(
$lovefilm
->content) {
printf
"%s %s\n"
, @{
$lovefilm
->content }{
qw/ first_name last_name /
};
}
else
{
"no content\n"
;
}