File Coverage

blib/lib/Pod/Spelling/CommonMistakes.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	33	34	97.0

#
# This file is part of Pod-Spelling-CommonMistakes
#
# This software is copyright (c) 2014 by Apocalypse.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use strict; use warnings;
package Pod::Spelling::CommonMistakes;
# git description: 7e441d7
$Pod::Spelling::CommonMistakes::VERSION = '2.001';
our $AUTHORITY = 'cpan:APOCAL';

# ABSTRACT: Adaptor for Pod::Spelling to use CommonMistakes as a checker

use parent 'Pod::Spelling'; # Thanks :)

use Pod::Spell::CommonMistakes::WordList qw( _check_common _check_case );

# We override our base...
no warnings 'redefine';

sub _init {
	shift if not ref $_[0];
	my $self = shift;

	# Nothing magical to do :)

	return $self;
}

# Accepts one or more lines of text, returns a list mispelt words.
sub _spell_check_callback {
        my $self = shift;
	my @lines = grep { length $_ } split /\s+/, join( ' ', @_ );
	my $err = _check_common( \@lines );
	$err = { %$err, %{ _check_case( \@lines ) } };

        return keys %$err;
}

1;

__END__