Select Code to Download

sub validate_data($$)
{
...

    return (\%data, \%invalid);
}

sub is_string
{
...
        $_[0] eq $v ? 1 : 0;
    }
}

my %fields = (
  name => is_required(is_string()),
  email => is_required(is_email()),
  phone => is_optional(is_phone()),
);