FML::Utils::copy() is a wrapper, which uses IO::File::Atomic.

1 files changed, 18 insertions, 1 deletions

diff --git a/fml/lib/FML/Utils.pm b/fml/lib/FML/Utils.pm
index bb356b70..892942e7 100644
--- a/fml/lib/FML/Utils.pm
+++ b/fml/lib/FML/Utils.pm
@@ -16,7 +16,7 @@ use Carp;
 
 require Exporter;
 @ISA       = qw(Exporter);
-@EXPORT_OK = qw(mkdirhier touch search_program);
+@EXPORT_OK = qw(mkdirhier touch search_program copy);
 
 =head1 NAME
 
@@ -142,4 +142,21 @@ sub search_program
 }
 
 
+
+# wrappers for delegation :-)
+sub copy
+{
+    my ($src, $dst) = @_;
+    my $pkg = 'IO::File::Atomic';
+
+    eval qq{ require $pkg; $pkg->import();};
+    unless ($@) {
+	$pkg->new->copy($src, $dst);
+    }
+    else {
+	undef;
+    }
+}
+
+
 1;