package Mongoose::File; { $Mongoose::File::VERSION = '0.23'; } use Moose; extends 'MongoDB::GridFS::File'; sub delete { my $self = shift; my $id = $self->info->{ _id }; return $self->_grid->delete( $id ); } *drop = \&delete; =head1 NAME Mongoose::File - wrapper for MongoDB::GridFS::File =head1 VERSION version 0.23 =head1 DESCRIPTION This module is automatically used when your class has C type attributes. It extends L and adds a few convenience methods to it. =head1 METHODS =head2 delete Deletes the GridFS file entry. =head2 drop Same as delete =cut 1;