data/PVE/AtomicFile.pm

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