use Exporter 'import';
our (@EXPORT_OK, %EXPORT_TAGS);
BEGIN {
my @file = qw{read_from_file write_to_file};
my @fh = qw{read_from_filehandle write_to_filehandle};
my @io = (@file, @fh);
my @json = qw{perl2json json2perl};
my @yaml = qw{perl2yaml yaml2perl};
my @dump = qw{perl2dump dump2perl};
my @all = (@io, @json, @yaml, @dump);
@EXPORT_OK = @all;
%EXPORT_TAGS = (
file => [@file],
fh => [@fh],
io => [@io],
json => [@json],
yaml => [@yaml],
dump => [@dump],
all => [@all],
);
}
####
if( ! _write_to_filehandle($FH, $contents) ){ warn "error, call to ".'_write_to_filehandle()'." has failed"; close $FH; return undef }
##
##
if( ! _write_to_filehandle($FH, $contents) ) {
warn "error, call to ".'_write_to_filehandle()'." has failed";
close $FH;
return undef;
}