PMG/AtomicFile.pm

   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;