File Coverage

blib/lib/Grapheme/Ngram.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	10	10	100.0
condition	5	6	100.0
subroutine	6	6	100.0
pod	3	3	100.0
total	45	46	100.0

package Grapheme::Ngram;

use strict;
use warnings;


our $VERSION = '0.005';

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

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

  return [] unless (length($word));

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

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

  $width = 1 unless ($width && $width =~ m/^[1-9][0-9]*$/x);

  return [join('',@$tokens)] unless ($width <= scalar @$tokens);

  my @ngrams;

  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__