Select Code to Download

    if ((temp = hv_fetch(spec, "regex", 5, 0))) {
        dSP;
...
            sv_catpv(buffer, " must be a string or qr// regex\n");
            FAIL(buffer, options);
        }

PV_TEST_PERL=1 perl script.pl

BEGIN { $ENV{PV_TEST_PERL} = 1; }