use Test::More; eval q{ use Test::Spelling }; plan skip_all => "Test::Spelling is not installed." if $@; 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"; add_stopwords(map { split /[\s\:\-]/ } ); $ENV{LANG} = 'C'; set_spell_cmd($spell_cmd); all_pod_files_spelling_ok('lib'); __DATA__ Kan Fushihara Nishibayashi Takuji kan@mfac.jp donburi fushihara gmail IRC