xt/pod-spell.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::Spelling;
   5
   6 my @stopwords;
   7 for (<DATA>) {
   8     chomp;
   9     push @stopwords, $_
  10         unless /\A (?: \# | \s* \z)/msx;    # skip comments, whitespace
  11 }
  12
  13 add_stopwords(@stopwords);
  14 set_spell_cmd('aspell list -l en');
  15 all_pod_files_spelling_ok;
  16
  17 __DATA__
  18 metaclass
  19 SIGNES