view release on metacpan or  search on metacpan

lib/Apache/Auth/UserDB/File.pm  view on Meta::CPAN

# When writing user DB files ...
use constant file_write_mode_write_rename   => 0;  # write new file, then rename over old one.
use constant file_write_mode_overwrite      => 1;  # overwrite old file in-place.

# Implementation:
##############################################################################

sub new {
    my ($class, %options) = @_;
    my $self = $class->SUPER::new(%options);
    $self->{file_write_mode} ||= $self->file_write_mode_write_rename;
    return $self;
}

sub open {
    my ($class, %options) = @_;
    
    my $self = $class->new(%options);
    if (defined($self) and $self->_read()) {
        return $self;