view release on metacpan or  search on metacpan

hax/optree-additions.c.inc  view on Meta::CPAN

  return (OP *)op;
}
#endif

#define newMETHOD_REDIR_OP(rclass, methname, flags)  S_newMETHOD_REDIR_OP(aTHX_ rclass, methname, flags)
static OP *S_newMETHOD_REDIR_OP(pTHX_ SV *rclass, SV *methname, I32 flags)
{
  OP *op = newMETHOP_named(OP_METHOD_REDIR, flags, methname);
#ifdef USE_ITHREADS
  {
    /* cargoculted from S_op_relocate_sv() */
    PADOFFSET ix = pad_alloc(OP_CONST, SVf_READONLY);
    PAD_SETSV(ix, rclass);
    cMETHOPx(op)->op_rclass_targ = ix;
  }
#else
  cMETHOPx(op)->op_rclass_sv = rclass;
#endif

  return op;
}