#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use File::Spec;
use Cwd;
BEGIN {
chdir dirname(__FILE__) or die "$!";
chdir '..' or die "$!";
unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined $ENV{PERL5LIB} and ${^TAINT};
my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
unshift @INC, File::Spec->catdir($cwd, 'inc');
unshift @INC, File::Spec->catdir($cwd, 'lib');
}
use Test::Harness;
runtests( <t/*.t> );
> 1 } @ARGV;
$Test::Harness::verbose = 1 if $opts{-v};
$ENV{HARNESS_OPTIONS} = $opts{'--nocolor'} ? '' : 'c';
runtests( <t/*.t> );