Lines Matching refs:cop

1518 Perl_closest_cop(pTHX_ const COP *cop, const OP *o, const OP *curop,
1521     /* Look for curop starting from o.  cop is the last COP we've seen. */
1530         return cop;
1541                 cop = (const COP *)kid;
1545             new_cop = closest_cop(cop, kid, curop, opnext);
1623          * PL_curcop, but it might be a cop that has been optimised away.  We
1624          * can try to find such a cop by searching through the optree starting
1629             const COP *cop =
1631             if (!cop)
1632                 cop = PL_curcop;
1634             if (CopLINE(cop))
1636                                 OutCopFILE(cop), CopLINE(cop));