Help for this page

Select Code to Download


  1. or download this
    sub match_RE_net_IPv4 {
                my $val = shift;
...
                return ($val =~ $re) ? $1 : undef;
            };
  2. or download this
    package Data::FormValidator::Constraints::Common;

...


1;
  3. or download this
    # Integration with Regexp::Common;

...
ok($results->('valid')->{good_ip}, 'good ip');
ok($results->('invalid')->{bad_ip}, 'bad ip');