NAME
Catmandu::Store::File::Multi::Bag - Index of all "files" in a Catmandu::Store::File::Multi "folder"
SYNOPSIS
use
Catmandu;
my
$store
= Catmandu->store(
'File::Multi'
, stores [
Catmandu->store(
'File::Simple'
,
root
=>
'/data1/files'
) ,
Catmandu->store(
'File::Simple'
,
root
=>
'/data1/files_copy'
) ,
]);
my
$index
=
$store
->
index
;
# List all containers
$index
->
each
(
sub
{
my
$container
=
shift
;
"%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"
);
INHERITED METHODS
This Catmandu::Bag implements: