NAME

LibreCat::FileStore::BagIt - A BagIt implementation of a file storage

SYNOPSIS

    use LibreCat::FileStore::BagIt;

    my $filestore =>LibreCat::FileStore::BagIt->new(root => '/data2/librecat/bag_uploads');

    my $generator = $filestore->list;

    while (my $key = $generator->()) {
        my $container = $filestore->get($key);

        for my $file ($container->list) {
            my $filename = $file->key;
            my $size     = $file->size;
            my $checksum = $file->md5;
            my $created  = $file->created;
            my $modified = $file->modified;
            my $io       = $file->data;
        }
    }

    my $container = $filestore->get('1234');

    if ($filestore->exists('1234')) {
        ...
    }

    my $container = $filestore->add('1235');

    $filestore->delete('1234');

SEE ALSO

LibreCat::FileStore