NAME

MediaMosa - Low level Perl connector for the MediaMosa REST API

SYNOPSIS

my $mm = Catmandu::MediaMosa->new( base_url => 'http://localhost/mediamosa' , user => "foo",password => "mysecret" );

#login is handled automatically ;-), and only redone when the session cookie expires
#$mm->login;

#equivalent of /asset?offset=0&limit=100
my $vpcore = $mm->asset_list({ offset => 0,limit => 1000});

die($vpcore->header->request_result_description) if($vpcore->header->request_result eq "error");

say "total found:".$vpcore->header->item_count_total;
say "total fetched:".$vpcore->header->item_count;

#the result list 'items' is iterable!
$vpcore->items->each(sub{
    my $item = shift;
    say "asset_id:".$item->{asset_id};
});

SEE ALSO

Catmandu

AUTHOR

Nicolas Franck , <nicolas.franck at ugent.be>