File Coverage

blib/lib/Text/Guess/Language.pm

Criterion	Covered	Total	%
statement	35	45	77.7
branch	6	6	100.0
condition	2	3	100.0
subroutine	8	9	88.8
pod	2	4	50.0
total	53	67	80.6

package Text::Guess::Language;

use strict;
use warnings;

our $VERSION = '0.05';

use Unicode::Normalize;
use Text::Guess::Language::Words;

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

sub guess {
  my ($self, $text) = @_;

  my $guesses = $self->guesses($text);

  return $guesses->[0]->[0];
}

sub guesses {
  my ($self, $text) = @_;

  my $text_NFC = NFC(lc($text));

  my @tokens = $text_NFC =~ m/([\p{Letter}\p{Mark}]+)/xmsg;

  my $words = Text::Guess::Language::Words->words();

  my $guesses = {};

  for my $token (@tokens) {
    if (exists $words->{$token}) {
      for my $lang (@{$words->{$token}}) {
        $guesses->{$lang}++;
      }
    }
  }

  my $result = [
  	map { [ $_, $guesses->{$_}/scalar(@tokens) ] }
    sort { $guesses->{$b} <=> $guesses->{$a} }
    keys(%$guesses)
  ];
  return $result;
}

sub languages {
  my ($self) = @_;

  my $languages = {};

  my $words = Text::Guess::Language::Words->words();

  for my $word (keys %{$words}) {
    map { $languages->{$_}++ }  @{$words->{$word}};
  }
  return (sort keys %{$languages});
}


1;

__END__