src/PVE/AtomicFile.pm

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