view release on metacpan or  search on metacpan

lib/MojoX/Session/Store/File.pm  view on Meta::CPAN

    my $self = shift;

    my($sid, $expires, $data) = @_;

    my $file = $self->_get_file_name($sid);
    return if -e $file;

    return $self->_driver_instance->freeze($file, [$expires, $data]);
}

sub update {
    my $self = shift;

    my($sid, $expires, $data) = @_;

    my $file = $self->_get_file_name($sid);
    return if not -e $file or not -w _;

    $self->_driver_instance->freeze($file, [$expires, $data]);
}