The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More ;

my $dir  = $ENV{PWD} =~ m#\/t$#  ? '../' : '';
##plan skip_all => "Spelling tests only for author" unless -d 'inc/.author';
my $filter = sub {
		my $_ = shift;
		! (/_ja.pod$/ || /_es.pad$/ )
};

use constant { BY_PASS => 1 };

eval 'use Test::Spelling' ;

SKIP: {        
		done_testing(1)                        if $@ || BY_PASS ;
        skip  'no Test::Spelling', scalar 1    if $@ || BY_PASS ;
		add_stopwords(<DATA>);
		set_pod_file_filter($filter) ;
		my @files = all_pod_files ( "${dir}blib"  );
		pod_file_spelling_ok( $_, ) for @files;
		done_testing( scalar @files );
};

__END__
#     INI
#     TODO
#     ini