File Coverage

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

Criterion	Covered	Total	%
statement	39	39	100.0
branch	11	12	91.6
condition			n/a
subroutine	11	11	100.0
pod	9	9	100.0
total	70	71	98.5

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

use strict;
use warnings;

sub new { bless {}, shift }

sub normalize_syllabic_n_m {
  my ($self, $kana_ref) = @_;

  $$kana_ref =~ s/^n([cdfghjklnrstvwyz])/$1/;
  $$kana_ref =~ s/^m([bmp])/$1/;

  return 1;
}

sub normalize_syllabic_n {
  my ($self, $kana_ref) = @_;

  $$kana_ref =~ s/^n([bcdfghjklmnprstvwyz])/$1/;

  return 1;
}

sub normalize_syllabic_nn {
  my ($self, $kana_ref) = @_;

  $$kana_ref =~ s/^nn([bcdfghjklmnprstvwyz])/$1/;

  return 1;
}

sub normalize_syllabic_m {
  my ($self, $kana_ref) = @_;

  $$kana_ref =~ s/^m([bmp])/$1/;

  return 1;
}

sub normalize_geminate_tch {
  my ($self, $kana_ref) = @_;

  $$kana_ref =~ s/^([bdfghjklprstvz])\1/$1/;
  $$kana_ref =~ s/^tch/ch/;

  return 1;
}

sub normalize_geminate_cch {
  my ($self, $kana_ref) = @_;

  $$kana_ref =~ s/^tch/ch/;
  $$kana_ref =~ s/^([bcdfghjklprstvz])\1/$1/;

  return 1;
}

sub normalize_geminate {
  my ($self, $kana_ref) = @_;

  $$kana_ref =~ s/^([bcdfghjklprstvz])\1/$1/;

  return 1;
}

sub prohibit_foreign_kanas {
  my ($self, $kana_ref) = @_;

  return if $$kana_ref =~ /^v/;
  return if $$kana_ref =~ /^[kg]w/;
  return if $$kana_ref =~ /y[ie]$/;
  return if $$kana_ref =~ /w[^a]$/;
  return if $$kana_ref =~ /(?:f|ts)[^u]$/;
  return if $$kana_ref =~ /(?:j|ch|sh)e$/;

  return 1;
}

1;

__END__