use Test::More; use Test::Spelling; $ENV{LANG} = 'C'; $ENV{TEST_SPELLING} or plan skip_all => "no test for spelling. you must set TEST_SPELLING env for activate this test"; my $spell_cmd; foreach my $path (split(/:/, $ENV{PATH})) { -x "$path/spell" and $spell_cmd="spell", last; -x "$path/ispell" and $spell_cmd="ispell -l", last; -x "$path/aspell" and $spell_cmd="aspell list", last; } $ENV{SPELL_CMD} and $spell_cmd = $ENV{SPELL_CMD}; $spell_cmd or plan skip_all => "no spell/ispell/aspell"; set_spell_cmd($spell_cmd); add_stopwords(); all_pod_files_spelling_ok(); __END__ Teranishi Tomohiro dir yml MYAPP cli jobqueue myapp yaml vkgtaro