File Coverage

blib/lib/Grapheme/Ngram.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	5	8	62.5
condition	5	8	75.0
subroutine	6	6	100.0
pod	3	3	100.0
total	39	46	86.9

package Grapheme::Ngram;

use strict;
use warnings;


our $VERSION = '0.004';

sub new {
  my $class = shift;
  # uncoverable condition false
  bless @_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {}, ref $class || $class;
}

sub ngram {
  my ($self, $word, $width) = @_;

  $word ||= '';

  return $self->from_tokens(
    [$self->_tokenize($word)],
    $width
  );
}

sub from_tokens {
  my ($self, $tokens, $width) = @_;

  $width = 1 unless defined $width;

  my @ngrams;
  return @ngrams
    unless ($width =~ m/^[1-9][0-9]*$/x && $width <= scalar(@$tokens));

  for my $i (0..scalar(@$tokens)-$width) {
    my $ngram = join('',@$tokens[$i..$i+$width-1]);
    push @ngrams,$ngram;
  }

  return @ngrams;

}

sub _tokenize { ($_[1] =~ m/(\X)/g) }

1;


__END__