$ TRACE=1 LOG_SAH_VALIDATOR_CODE=1 perl \
  -MLog::Any::App -MData::Sah=gen_validator \
  -E'$v = gen_validator([str => {match=>qr!/!}]);
    for ("a", "a/") { say "$_: ", $v->($_) }'
...
[98] validator code:
   1|sub {
   2|    my ($data) = @_;
   3|    my $res = 
   4|    # skip if undef
   5|    (!defined($data) ? 1 : 
   6|        (# check type 'str'
   7|        (!ref($data))
   8|          &&
   9|            (# clause: match
  10|        ($data =~ qr/(?^u:\/)/))));
  11|    return $res;
  12|}
a: 
a/: 1