]>
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 { | |
1359baef | 17 | # don't close automatically (explicit close required to commit changes) |
6b5e9594 DM |
18 | } |
19 | ||
20 | 1; |