File Coverage

blib/lib/Text/IQ/EN.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Text::IQ::EN;
use strict;
use warnings;
use base 'Text::IQ';
use Lingua::EN::Syllable;

our $VERSION = '0.005';

my %syllable_cache;

=head1 NAME

Text::IQ::EN - Text::IQ for English

=head1 SYNOPSIS

 # see Text::IQ

=head1 METHODS

This class extends L. Only new or overridden methods are documented here.

=cut

=head2 get_num_syllables

Returns number of syllables in the text.

=cut

sub get_num_syllables {
    return $syllable_cache{ $_[1] } if exists $syllable_cache{ $_[1] };
    $syllable_cache{ $_[1] } = syllable( $_[1] );
    return $syllable_cache{ $_[1] };
}

=head2 num_misspellings

Returns the number of misspelled words, according to L.

=cut

sub num_misspellings {
    my $self = shift;
    return $self->{num_misspelled} if defined $self->{num_misspelled};
    my $checker = Search::Tools::SpellCheck->new( lang => 'en_US', );
    my $aspell = $checker->aspell;
    my @errs;
    my %uniq;
    my $n = 0;
    while ( my $t = $self->{_tokens}->next ) {

        if ( $t->is_match ) {
            if ( !$aspell->check("$t") ) {
                push @errs, "$t";
                $uniq{"$t"}++;
                $n++;
            }
        }
    }
    $self->{misspelled}          = \@errs;
    $self->{num_uniq_misspelled} = scalar keys %uniq;
    $self->{num_misspelled}      = $n;
    $self->{_tokens}->reset;
    return $self->{num_misspelled};
}

=head2 num_uniq_misspellings

Returns the number of unique misspelled words.

=cut

sub num_uniq_misspellings {
    my $self = shift;
    $self->num_misspellings;
    return $self->{num_uniq_misspelled};
}

=head2 misspelled

Returns the list of misspelled words.

=cut

sub misspelled {
    my $self = shift;
    return $self->{misspelled} if defined $self->{misspelled};
}

1;

__END__