MediaMosa - Low level Perl connector for the MediaMosa REST API
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}; });
Catmandu
Nicolas Franck , <nicolas.franck at ugent.be>
<nicolas.franck at ugent.be>
To install Catmandu::MediaMosa, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Catmandu::MediaMosa
CPAN shell
perl -MCPAN -e shell install Catmandu::MediaMosa
For more information on module installation, please visit the detailed CPAN module installation guide.