/usr/share/perl5/Mango/GridFS.pm is in libmango-perl 1.29-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 | package Mango::GridFS;
use Mojo::Base -base;
use Mango::GridFS::Reader;
use Mango::GridFS::Writer;
has chunks => sub { $_[0]->db->collection($_[0]->prefix . '.chunks') };
has 'db';
has files => sub { $_[0]->db->collection($_[0]->prefix . '.files') };
has prefix => 'fs';
sub delete {
my ($self, $oid, $cb) = @_;
# Non-blocking
return Mojo::IOLoop->delay(
sub {
my $delay = shift;
$self->files->remove({_id => $oid} => $delay->begin);
$self->chunks->remove({files_id => $oid} => $delay->begin);
},
sub { $self->$cb($_[1] || $_[3]) }
) if $cb;
# Blocking
$self->files->remove({_id => $oid});
$self->chunks->remove({files_id => $oid});
}
sub find_version {
my ($self, $name, $version, $cb) = @_;
# Positive numbers are absolute and negative ones relative
my $cursor = $self->files->find({filename => $name}, {_id => 1})->limit(-1);
$cursor->sort({uploadDate => $version < 0 ? -1 : 1})
->skip($version < 0 ? abs($version) - 1 : $version);
# Non-blocking
return $cursor->next(
sub { shift; $self->$cb(shift, $_[0] ? $_[0]{_id} : undef) })
if $cb;
# Blocking
my $doc = $cursor->next;
return $doc ? $doc->{_id} : undef;
}
sub list {
my ($self, $cb) = @_;
# Blocking
return $self->files->find->distinct('filename') unless $cb;
# Non-blocking
$self->files->find->distinct('filename' => sub { shift; $self->$cb(@_) });
}
sub reader { Mango::GridFS::Reader->new(gridfs => shift) }
sub writer { Mango::GridFS::Writer->new(gridfs => shift) }
1;
=encoding utf8
=head1 NAME
Mango::GridFS - GridFS
=head1 SYNOPSIS
use Mango::GridFS;
my $gridfs = Mango::GridFS->new(db => $db);
my $reader = $gridfs->reader;
my $writer = $gridfs->writer;
=head1 DESCRIPTION
L<Mango::GridFS> is an interface for MongoDB GridFS access.
=head1 ATTRIBUTES
L<Mango::GridFS> implements the following attributes.
=head2 chunks
my $chunks = $gridfs->chunks;
$gridfs = $gridfs->chunks(Mango::Collection->new);
L<Mango::Collection> object for C<chunks> collection, defaults to one based on
L</"prefix">.
=head2 db
my $db = $gridfs->db;
$gridfs = $gridfs->db(Mango::Database->new);
L<Mango::Database> object GridFS belongs to.
=head2 files
my $files = $gridfs->files;
$gridfs = $gridfs->files(Mango::Collection->new);
L<Mango::Collection> object for C<files> collection, defaults to one based on
L</"prefix">.
=head2 prefix
my $prefix = $gridfs->prefix;
$gridfs = $gridfs->prefix('foo');
Prefix for GridFS collections, defaults to C<fs>.
=head1 METHODS
L<Mango::GridFS> inherits all methods from L<Mojo::Base> and implements the
following new ones.
=head2 delete
$gridfs->delete($oid);
Delete file. You can also append a callback to perform operation non-blocking.
$gridfs->delete($oid => sub {
my ($gridfs, $err) = @_;
...
});
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
=head2 find_version
my $oid = $gridfs->find_version('test.txt', 1);
Find versions of files, positive numbers from C<0> and upwards always point to
a specific version, negative ones start with C<-1> for the most recently added
version. You can also append a callback to perform operation non-blocking.
$gridfs->find_version(('test.txt', 1) => sub {
my ($gridfs, $err, $oid) = @_;
...
});
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
=head2 list
my $names = $gridfs->list;
List files. You can also append a callback to perform operation non-blocking.
$gridfs->list(sub {
my ($gridfs, $err, $names) = @_;
...
});
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
=head2 reader
my $reader = $gridfs->reader;
Build L<Mango::GridFS::Reader> object.
# Read all data at once from newest version of file
my $oid = $gridfs->find_version('test.txt', -1);
my $data = $gridfs->reader->open($oid)->slurp;
# Read all data in chunks from file
my $reader = $gridfs->reader->open($oid);
while (defined(my $chunk = $reader->read)) { say "Chunk: $chunk" }
=head2 writer
my $writer = $gridfs->writer;
Build L<Mango::GridFS::Writer> object.
# Write all data at once to file with name
my $oid = $gridfs->writer->filename('test.txt')->write('Hello!')->close;
# Write data in chunks to file
my $writer = $gridfs->writer;
$writer->write($_) for 1 .. 100;
my $oid = $writer->close;
=head1 SEE ALSO
L<Mango>, L<Mojolicious::Guides>, L<http://mojolicio.us>.
=cut
|