view release on metacpan or  search on metacpan

lib/File/FStore/File.pm  view on Meta::CPAN

    link($self->filename, $filename) or croak $!;
}


sub symlink_out {
    my ($self, $filename) = @_;
    symlink($self->filename, $filename) or croak $!;
}


sub update {
    my ($self, %opts) = @_;
    my File::FStore $store = $self->store;
    my $no_digests  = delete($opts{no_digests});
    my $on_pre_set  = delete($opts{on_pre_set});
    my $on_post_set = delete($opts{on_post_set});
    my $inode;
    my $properties;
    my $digests;

    croak 'Stray options passed' if scalar keys %opts;