LibreCat::FileStore::BagIt - A BagIt implementation of a file storage
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');