view release on metacpan or  search on metacpan

t/basics.t  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
use Test::More tests => 8;
use Test::Exception;
use File::Temp::Rename;

my $file = "t/foo";
my $file_tmp;

unlink $file if -e $file;

{