Data::Validatorは1.04を使おう。そうしよう。

use 5.10.1;
use strict;
use warnings;
use Data::Validator;

my %HOGE = (
    hoge => {isa => "Int", optional => 1},
);
 
sub hoge {
    state $v = Data::Validator->new(%HOGE);
}
 
sub fuga {
    state $v = Data::Validator->new(%HOGE);
}
 
 
hoge(hoge => 1);
fuga(hoge => 1);
__END__
Wrong definition for 'hoge': Unknown attributes: 'name' and 'type' at t.pl line 17.

一瞬、?!?!ってなったけど、Changes見たら1.04で直ってたみたいなのでcpanmした。