[dbsrgits/DBM-Deep.git] / t / common.pm

package t::common;

use 5.6.0;

use strict;
use warnings;

our $VERSION = '0.01';

use base 'Exporter';
our @EXPORT_OK = qw(
    new_fh
);

use File::Spec ();
use File::Temp qw( tempfile tempdir );
use Fcntl qw( :flock );

my $parent = $ENV{WORK_DIR} || File::Spec->tmpdir;
my $dir = tempdir( CLEANUP => 1, DIR => $parent );

sub new_fh {
    my ($fh, $filename) = tempfile( 'tmpXXXX', DIR => $dir );

    # This is because tempfile() returns a flock'ed $fh on MacOSX.
    flock $fh, LOCK_UN;

    return ($fh, $filename);
}
#END{<>}
1;
__END__
Commit	Line	Data
fde3db1a	1	package t::common;
	2
	3	use 5.6.0;
	4
	5	use strict;
	6	use warnings;
	7
	8	our $VERSION = '0.01';
	9
	10	use base 'Exporter';
	11	our @EXPORT_OK = qw(
	12	new_fh
	13	);
	14
	15	use File::Spec ();
	16	use File::Temp qw( tempfile tempdir );
	17	use Fcntl qw( :flock );
	18
	19	my $parent = $ENV{WORK_DIR} \|\| File::Spec->tmpdir;
	20	my $dir = tempdir( CLEANUP => 1, DIR => $parent );
	21
	22	sub new_fh {
	23	my ($fh, $filename) = tempfile( 'tmpXXXX', DIR => $dir );
	24
	25	# This is because tempfile() returns a flock'ed $fh on MacOSX.
	26	flock $fh, LOCK_UN;
	27
	28	return ($fh, $filename);
	29	}
	30	#END{<>}
	31	1;
	32	__END__
	33