NAME

MongoDBx::Tiny::GridFS - wrapper class of MongoDB::GridFS

SUBROUTINES/METHODS

new

  $gridfs = MongoDBx::Tiny::GridFS->new(
        $database->get_gridfs,$fields_name
  );

gridfs, fields

  # get Mongodb::GridFS
  $gridfs_raw = $gridfs->gridfs;

  # get fields name
  $gridfs_field_name = $gridfs->field;

put

  $gridfs->put('/tmp/foo.txt', {"filename" => 'foo.txt' });
  $gridfs->put('/tmp/bar.txt','bar.txt');
  
  $fh = IO::File->new('/tmp/baz.txt','r');
  $gridfs->put($fh,'baz.txt');

get

  # MongoDBx::Tiny::GridFS::File
  $gridfs_file = $gridfs->get({ filename => 'foo.txt' });
  $foo_txt = $gridfs_file->slurp;

  $bar_txt = $gridfs->get('bar.txt')->slurp;

remove

  $gridfs->remove({ filename => 'foo.txt' });
  $gridfs->remove('bar.txt');

exists_file

  $gridfs->exists_file({ filename => 'foo.txt' });
  $gridfs->exists_file('bar.txt');

MongoDBx::Tiny::GridFS::File

  wrapper class of MongoDB::GridFS::File

new

    $gf = MongoDBx::Tiny::GridFS::File->new( $gridfs->find_one($query), $self->field );

gridfs_file, gf

    # MongoDB::GridFS::File
    $gf_raw = $gf->gridfs_file;

print

  # MongoDB::GridFS::File::print
  $gf->print($fh,$length,$offset);

slurp

  # MongoDB::GridFS::File::slurp
  $all = $gf->slurp();
  $buf = $gf->slurp($length,$offset);

field

  field name. default is  "filename"

_id,chunk_size,upload_date,md5

  MongoDB::GridFS::File attributes

AUTHOR

Naoto ISHIKAWA, <toona at seesaa.co.jp>

LICENSE AND COPYRIGHT

Copyright 2013 Naoto ISHIKAWA.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

cpanm MongoDBx::Tiny

perl -MCPAN -e shell
install MongoDBx::Tiny