Yes, basically I want to generate a Perl code (as string) where an input Regexp object needs to be a literal in the generated code.
BTW, the project is Data::Sah and here's an example of the code generation in action:
$ 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
In reply to Re^2: Putting the stringified Regexp object into code
by sedusedan
in thread Putting the stringified Regexp object into code
by sedusedan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |