File Coverage

lib/Lingua/JA/Romaji/Valid/Filter/Word.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod	8	8	100.0
total	48	48	100.0

package Lingua::JA::Romaji::Valid::Filter::Word;

use strict;
use warnings;

sub new { bless {}, shift }

sub normalize_n_with_apostrophe {
  my ($self, $word_ref) = @_;

  $$word_ref =~ s/n\\?'([aeiouy])/n$1/g;

  return 1;
}

sub normalize_n_with_hyphen {
  my ($self, $word_ref) = @_;

  $$word_ref =~ s/n\\?[\-]([aeiouy])/n$1/g;

  return 1;
}

sub normalize_oh {
  my ($self, $word_ref) = @_;

  # strictly speaking, this may be wrong (eg. o-hira, not oh-ira)
  # but both cases should be valid in the end.
  $$word_ref =~ s/oh/o/g;

  return 1;
}

sub normalize_long_vowel_with_h {
  my ($self, $word_ref) = @_;

  # strictly speaking, this may be wrong (eg. o-hira, not oh-ira)
  # but both cases should be valid in the end.
  $$word_ref =~ s/([aeiou])h/$1/g;

  return 1;
}

sub normalize_long_vowel_with_symbols {
  my ($self, $word_ref) = @_;

  # strictly speaking, this may be wrong (eg. o-hira, not oh-ira)
  # but both cases should be valid in the end.
  $$word_ref =~ s/([aeiou])\\?[_\-^]/$1/g;

  return 1;
}

sub prohibit_initial_n {
  my ($self, $word_ref) = @_;

  return ( $$word_ref =~ /^n(?:[^aeiouy])/ ) ? 0 : 1;
}

sub prohibit_initial_wo {
  my ($self, $word_ref) = @_;

  return ( $$word_ref =~ /^wo/ ) ? 0 : 1;
}

1;

__END__