view release on metacpan or  search on metacpan

t/psort.t  view on Meta::CPAN

BEGIN {
    if (!eval q{
	use Test::More;
	1;
    }) {
	print "1..0 # skip no Test::More module\n";
	exit;
    }

    *eq_or_diff = eval { require Test::Differences; \&Test::Differences::eq_or_diff } || \&Test::More::is;
}

my $use_blib = 1;
my $psort = "$FindBin::RealBin/../blib/script/psort";
unless (-f $psort) {
    # blib version not available, use ../bin source version
    $psort = "$FindBin::RealBin/../bin/psort";
    $use_blib = 0;
}