--- lib/PXElator/file.pm 2009/08/19 22:48:54 271 +++ lib/PXElator/file.pm 2009/08/20 19:00:13 277 @@ -56,5 +56,10 @@ } } +sub replace { + my ( $file, $content ) = @_; + mkpath $file; + write_file $file, $content; +} 1;