register_import_export_handlers
(
txt =>
{
IMPORT => undef ,
EXPORT => \&export_ascii,
},
) ;
use File::Slurp ;
sub export_ascii
{
my ($self, $elements_to_save, $file) = @_ ;
if($self->{CREATE_BACKUP} && -e $file)
{
use File::Copy;
copy($file,"$file.bak") or die "export_pod: Copy failed while making backup copy: $!";
}
write_file($file, $self->transform_elements_to_ascii_buffer()) ;
#~ open FH, ">:encoding(utf8)", $file_name;
#~ print FH $self->transform_elements_to_ascii_buffer() ;
#~ close FH ;
return ;
}