[pmg-api.git] / PMG / AtomicFile.pm

package PMG::AtomicFile;

use strict;
use IO::AtomicFile;

use base qw(IO::AtomicFile);

sub new {
    my $class = shift;
    
    my $self = $class->SUPER::new(@_);
    
    return $self;
}

sub DESTROY {
    # dont close atomatically (explicit close required to commit changes)
}

1;
Commit	Line	Data
6b5e9594 DM	1	package PMG::AtomicFile;
	2
	3	use strict;
	4	use IO::AtomicFile;
	5
	6	use base qw(IO::AtomicFile);
	7
	8	sub new {
	9	my $class = shift;
	10
	11	my $self = $class->SUPER::new(@_);
	12
	13	return $self;
	14	}
	15
	16	sub DESTROY {
	17	# dont close atomatically (explicit close required to commit changes)
	18	}
	19
	20	1;