http://d.hatena.ne.jp/tomyhero/20070803/1186106207上記の実装を以下に修正 required_only_oneの場合、missing にするのではなく、最初の一つ目だけを取るように修正 if ( ref $valid{$field} eq 'ARRAY' ) { if ( exists $required_only_one{$field} or e…