HTML-Spelling-Site

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  "requires" => {
    "Digest" => 0,
    "File::Find::Object" => 0,
    "HTML::Parser" => "3.00",
    "JSON::MaybeXS" => 0,
    "List::MoreUtils" => 0,
    "MooX" => 0,
    "MooX::late" => "0.010",
    "POSIX" => 0,
    "Path::Tiny" => "0.144",
    "Test::Differences" => 0,
    "Test::More" => "0.88",
    "autodie" => 0,
    "locale" => 0,
    "perl" => "5.014",
    "strict" => 0,
    "utf8" => 0,
    "warnings" => 0
  },
  "test_requires" => {
    "File::Spec" => 0,

META.json  view on Meta::CPAN

         "requires" : {
            "Digest" : "0",
            "File::Find::Object" : "0",
            "HTML::Parser" : "3.00",
            "JSON::MaybeXS" : "0",
            "List::MoreUtils" : "0",
            "MooX" : "0",
            "MooX::late" : "0.010",
            "POSIX" : "0",
            "Path::Tiny" : "0.144",
            "Test::Differences" : "0",
            "Test::More" : "0.88",
            "autodie" : "0",
            "locale" : "0",
            "perl" : "5.014",
            "strict" : "0",
            "utf8" : "0",
            "warnings" : "0"
         }
      },
      "test" : {

META.yml  view on Meta::CPAN

requires:
  Digest: '0'
  File::Find::Object: '0'
  HTML::Parser: '3.00'
  JSON::MaybeXS: '0'
  List::MoreUtils: '0'
  MooX: '0'
  MooX::late: '0.010'
  POSIX: '0'
  Path::Tiny: '0.144'
  Test::Differences: '0'
  Test::More: '0.88'
  autodie: '0'
  locale: '0'
  perl: '5.014'
  strict: '0'
  utf8: '0'
  warnings: '0'
resources:
  bugtracker: https://github.com/shlomif/html-spelling-site/issues
  homepage: http://metacpan.org/release/HTML-Spelling-Site

lib/HTML/Spelling/Site/Checker.pm  view on Meta::CPAN

            $output_text .= $self->_format_error($error) . "\n";
            if ( length($output_text) >= $MAXLEN )
            {
                $output_text = substr( $output_text, 0, $MAXLEN );
                last DIAGLOOP;
            }
        }
        Test::More::diag($output_text);
        return $ret;
    }
    require Test::Differences;
    my @arr = @{ $misspellings->{misspellings} };
    if ( @arr > $MAXSIZE )
    {
        $#arr = $MAXSIZE - 1;
    }
    return Test::Differences::eq_or_diff( ( \@arr ), [], $args->{blurb}, );
}
1;

__END__

=pod

=encoding UTF-8

=head1 NAME

lib/HTML/Spelling/Site/Checker.pm  view on Meta::CPAN

=head2 $bool = $finder->should_check({word=>$word_string})

Whether the word should be checked for being misspelled or not. Can be
overridden in subclasses. (Was added in version 0.4.0).

=head2 $finder->test_spelling({ files => [@files], blurb => $blurb, });

A spell check function compatible with L<Test::More> . Emits one assertion.

Since version 0.2.0, if a C<<< light => 1 >>> key is specified and is true, it
will not use L<Test::Differences>, which tends to consume a lot of RAM when
there are many messages.

Since version 0.10.0, C<'MAXLEN'> argument was added.

Since version 0.10.0, C<'MAXSIZE'> argument was added.

=head2 $finder->whitelist_parser()

For internal use.