Constraint Japanese

Hiragana

Check if value is Japanese hiragana.

my $data = {name => 'たなかたろう'};
my $rule = $vc->create_rule;
$rule->require('name')->check('hiragana');

Constraint

hiragana => sub { $_[0] =~ /^\p{InHiragana}+$/ },

Check if value is Japanese katakana.

my $data = {name => 'タナカタロウ'};
my $rule = $vc->create_rule;
$rule->require('name')->check('katakana');

Constraint

katakana => sub { $_[0] =~ /^\p{InKatakana}+$/ },