table of contents
Catmandu::Store::File::Memory::Bag(3pm) | User Contributed Perl Documentation | Catmandu::Store::File::Memory::Bag(3pm) |
NAME¶
Catmandu::Store::File::Memory::Bag - Index of all "files" in a Catmandu::Store::File::Memory "folder"
SYNOPSIS¶
use Catmandu; my $store = Catmandu->store('File::Memory'); my $index = $store->index; # List all containers $index->each(sub { my $container = shift; print "%s\n" , $container->{_id}; }); # Add a new folder $index->add({_id => '1234'}); # Delete a folder $index->delete(1234); # Get a folder my $folder = $index->get(1234); # Get the files in an folder my $files = $index->files(1234); $files->each(sub { my $file = shift; my $name = $file->{_id}; my $size = $file->{size}; my $content_type = $file->{content_type}; my $created = $file->{created}; my $modified = $file->{modified}; $file->stream(IO::File->new(">/tmp/$name"), file); }); # Add a file $files->upload(IO::File->new("<data.dat"),"data.dat"); # Retrieve a file my $file = $files->get("data.dat"); # Stream a file to an IO::Handle $files->stream(IO::File->new(">data.dat"),$file); # Delete a file $files->delete("data.dat"); # Delete a folders $index->delete("1234");
DESCRIPTION¶
A Catmandu::Store::File::Memory::Bag contains all "files" available in a Catmandu::Store::File::Memory FileStore "folder". All methods of Catmandu::Bag, Catmandu::FileBag::Index and Catmandu::Droppable are implemented.
Every Catmandu::Bag is also an Catmandu::Iterable.
FOLDERS¶
All files in a Catmandu::Store::File::Memory are organized in "folders". To add a "folder" a new record needs to be added to the Catmandu::Store::File::Memory::Index :
$index->add({_id => '1234'});
The "_id" field is the only metadata available in Memory stores. To add more metadata fields to a Memory store a Catmandu::Plugin::SideCar is required.
FILES¶
Files can be accessed via the "folder" identifier:
my $files = $index->files('1234');
Use the "upload" method to add new files to a "folder". Use the "download" method to retrieve files from a "folder".
$files->upload(IO::File->new("</tmp/data.txt"),'data.txt'); my $file = $files->get('data.txt'); $files->download(IO::File->new(">/tmp/data.txt"),$file);
INHERITED METHODS¶
This Catmandu::Bag implements:
2022-12-10 | perl v5.36.0 |