Constraint zip code

Constraint Zip Code

Japanese Zip Code

Check if value is Japanese Zip Code.

my $data = {zip_code => '166-0002'};
my $rule = $vc->create_rule;
$rule->require('zip_code')->check('zip_code_japanese');

Constraint

zip_code_japanese => sub { $_[0] =~ /^/d{3}-?/d{4}$/ },