続・FormValidator::Lite でBETWEEN

前回ノリで書いたのをちゃんと書くとこんな感じですか。

package FormValidator::Lite::Constraint::Between;
use FormValidator::Lite::Constraint;
use Scalar::Util qw/looks_like_number/;

rule 'BETWEEN' => sub {
    for ($_, $_[0], $_[1]) {
        die 'invalid args.' unless looks_like_number $_;
    }

    ($_[0] <= $_ && $_ <= $_[1]) ? 1 : 0;
};

1;

小数も負数もおｋ。

$_とか$_[0]とか何よってのは

% perldoc FormValidator::Lite

        http parameter comes from $_
        validator args comes from @_

ってわけなんだけど、「後で他人が見たら意味不明だろうな」と思って前回は($size, $min, $max)と丁寧に書いたんだけど、それを考えないとこれでいいや。