The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
NAME

    Catmandu::MediaHaven - Tools to communicate with the Zeticon MediaHaven
    server

SYNOPSIS

        use Catmandu::MediaHaven;
    
        my $mh = Catmandu::MediaHaven->new(
                        url      => '...' ,
                        username => '...' ,
                        password => '...');
    
        my $result = $mh->search('nature', start => 0 , num => 100);
    
        die "search failed" unless defined($result);
    
        for my $res (@{$result->{mediaDataList}}) {
            my $id = $res->{fragmentId};
            my $date = $res->{data};
    
            print "$id $date\n";
        }
    
        my $record = $mh->record('q2136s817');
        my $date   = $record->{date};
    
        print "q2136s817 $date\n";
    
        $mh->export($id, sub {
           my $data = shift;
           print $data;
        });

DESCRIPTION

    The Catmandu::MediaHaven module is a low end interface to the
    MediaHaven REST api. See also:
    https://archief.viaa.be/mediahaven-rest-api

METHODS

 new(url => ... , username => ... , password => ...)

    Create a new connection to the MediaHaven server.

 search($query, start => ... , num => ...)

    Execute a search query against the MediaHaven server and return the
    result_list as a HASH

 record($id)

    Retrieve one record from the MediaHaven server based on an identifier.
    Returns a HASH of results.

 edit($id,$field,@values)

    Edit the metadata of a record

 export($id, $callback)

    Export the binary content of a record from the MediaHaven server. The
    callback will retrieve a stream of data when the download is available,

MODULES

    Catmandu::Importer::MediaHaven

    Catmandu::Store::File::MediaHaven

    Catmandu::Store::File::MediaHaven::Bag

    Catmandu::Store::File::MediaHaven::Index

AUTHOR

      * Patrick Hochstenbach, <patrick.hochstenbach at ugent.be>

LICENSE AND COPYRIGHT

    This program is free software; you can redistribute it and/or modify it
    under the terms of either: the GNU General Public License as published
    by the Free Software Foundation; or the Artistic License.

    See http://dev.perl.org/licenses/ for more information.