view release on metacpan or  search on metacpan

t/app-boolfindgrep.t  view on Meta::CPAN

use Time::Piece;
use Time::Seconds;

my $basename = basename($0);
my $tmpdir = first { defined && -d $_ && -w $_ }
@ENV{qw[TMDIR TMP_DIR]},
    q(/tmp);

$tmpdir = catdir( $tmpdir, $basename );
if ( -d $tmpdir ) {
    chmod oct q(0770), $tmpdir;
    remove_tree $tmpdir or die $!;
}
mkdir $tmpdir, oct q(0770) or die $!;

my @tmpfile;
my $dt = Time::Piece->strptime( q(1970-01-01), q(%Y-%m-%d) );

my @day    = ( 0 .. 59 );
my @sep    = (qw[_ -]);
my @suffix = (qw[dat tmp txt]);