いつの間にかまたマッチ変数が使われるようになっていました。

Catalyst->setupでマッチ変数が使用されてしまう - ヒルズで働く@robarioの技ログの通りマッチ変数撲滅運動をしているのですが、今回はCatalyst::Plugin::FormValidator::Simpleを使おうとして見つけました。実際にはFormValidator::Simple系ではなく、Data::FormValidatorの方でした。とりあえず覚え書き。

$ grep '$&' `perldoc -ml Data::FormValidator::Results`
                my ($untainted) = ($&  =~ m/(.*)/s);
        my $return_code = ($untaint_this) ? '; return ($& =~ m/(.*)/s)[0] if defined($`);' : '';