view release on metacpan or  search on metacpan

t/todo.t  view on Meta::CPAN

#!perl
#!perl -T # TODO - figure out why File::Find won't pass taint checks

use strict;
use warnings;
use Test::More tests => 1;

use FindBin qw($Bin);
use File::Spec;
use Cwd;

( my $test_dir ) = ( $Bin =~ m:^(.*?/t)$: );