Branch Coverage

pad.c
Criterion Covered Total %
branch 599 856 70.0


line true false branch
184 309 145512858 if ( (SvUTF8(sv) & SVf_UTF8 ) != (flags & SVf_UTF8) ) {
189 0 309 if (PL_encoding) {
191 0 0 if (SvUTF8(sv)) {
194 0 0 pv2 = SvPV_const(svrecode, cur2);
199 0 0 pv1 = SvPV_const(svrecode, cur1);
203 175 134 if (flags & SVf_UTF8)
214 145512858 0 || memEQ(SvPVX_const(sv), pv, pvlen));
101466557 44046301 || memEQ(SvPVX_const(sv), pv, pvlen));
250 11083445 12294 if (flags & padnew_SAVE) {
252 9504428 1579017 if (! (flags & padnew_CLONE)) {
259 7306980 2197448 if (flags & padnew_SAVESUB) {
272 1579017 9516722 if (flags & padnew_CLONE) {
306 9516722 1579017 if (! (flags & padnew_CLONE)) {
353 3500899 1066114 if (CvFILE(cv) && CvDYNFILE(cv)) {
799943 2700956 if (CvFILE(cv) && CvDYNFILE(cv)) {
359 3766772 800241 if (!CvISXSUB(cv) && CvROOT(cv)) {
2697130 1069642 if (!CvISXSUB(cv) && CvROOT(cv)) {
360 2696950 180 if (SvTYPE(cv) == SVt_PVCV && CvDEPTH(cv))
3 2696947 if (SvTYPE(cv) == SVt_PVCV && CvDEPTH(cv))
366 0 2697127 if (slabbed) OpslabREFCNT_dec_padok(OpSLAB(CvROOT(cv)));
0 0 if (slabbed) OpslabREFCNT_dec_padok(OpSLAB(CvROOT(cv)));
372 123949 1745934 else if (slabbed && CvSTART(cv)) {
123949 0 else if (slabbed && CvSTART(cv)) {
377 122626 1323 if (PL_parser)
389 111 4566899 if (CvNAMED(cv)) CvNAME_HEK_set(cv, NULL);
111 0 if (CvNAMED(cv)) CvNAME_HEK_set(cv, NULL);
395 3706777 860232 if (padlist) {
415 3706366 411 if (PL_phase != PERL_PHASE_DESTRUCT) { /* don't bother during global destruction */
422 5610524 3706366 for (ix = AvFILLp(comppad_name); ix > 0; ix--) {
424 5453229 157295 if (namesv && namesv != &PL_sv_undef
2061732 3391497 if (namesv && namesv != &PL_sv_undef
425 104132 1957600 && *SvPVX_const(namesv) == '&')
432 104132 0 if (SvREFCNT(comppad) < 2) { /* allow for /(?{ sub{} })/ */
439 34846 69286 if (inner_rc && (CvOUTSIDE(innercv) == cv)) {
14561 20285 if (inner_rc && (CvOUTSIDE(innercv) == cv)) {
442 14510 51 if (outercv && SvREFCNT(outercv)) {
14509 1 if (outercv && SvREFCNT(outercv)) {
457 3706823 3706777 while (ix > 0) {
459 3706823 0 if (sv) {
460 8167 3698656 if (sv == PL_comppad) {
469 8132 3698645 if (sv == PL_comppad_name && SvREFCNT(sv) == 1)
8132 0 if (sv == PL_comppad_name && SvREFCNT(sv) == 1)
473 3706777 0 if (PadlistARRAY(padlist)) Safefree(PadlistARRAY(padlist));
480 4562169 4840 if (!SvREFCNT(cv) && CvOUTSIDE(cv)) {
3347353 1214816 if (!SvREFCNT(cv) && CvOUTSIDE(cv)) {
481 3294090 53263 if (!CvWEAKOUTSIDE(cv))
485 799950 3767059 if (CvCONST(cv)) {
489 800241 3766768 if (CvISXSUB(cv) && CvXSUB(cv)) {
800241 0 if (CvISXSUB(cv) && CvXSUB(cv)) {
518 2177570 4 if (!slabbed) return;
522 137 2177433 if (CvROOT(cv)) slab = OpSLAB(CvROOT(cv));
523 2177433 0 else if (CvSTART(cv)) slab = (OPSLAB *)CvSTART(cv);
528 2177570 0 if (slab) {
532 0 2177570 OpslabREFCNT_dec(slab);
564 41 14471472 if (typestash) {
569 1146716 13324797 if (ourstash) {
574 129 13324668 else if (flags & padadd_STATE) {
615 0 12192692 if (flags & ~(padadd_OUR|padadd_STATE|padadd_NO_DUP_CHECK|padadd_UTF8_NAME))
619 11594275 598417 namesv = newSV_type((ourstash || typestash) ? SVt_PVMG : SVt_PVNV);
621 50443 12142249 if ((is_utf8 = ((flags & padadd_UTF8_NAME) != 0))) {
627 48423 12144269 if (is_utf8) {
634 12192692 0 if ((flags & padadd_NO_DUP_CHECK) == 0) {
649 9761755 2430933 if (!PL_min_intro_pending)
655 12192688 0 if (namelen != 0 && *namepv == '@')
994481 11198207 if (namelen != 0 && *namepv == '@')
657 11198207 0 else if (namelen != 0 && *namepv == '%')
468611 10729596 else if (namelen != 0 && *namepv == '%')
659 10729596 0 else if (namelen != 0 && *namepv == '&')
100 10729496 else if (namelen != 0 && *namepv == '&')
702 2 0 namepv = SvPV(name, namelen);
703 0 2 if (SvUTF8(name))
747 0 68298594 if (AvARRAY(PL_comppad) != PL_curpad)
750 15568233 52730361 if (PL_pad_reset_pending)
752 14986744 53311850 if (tmptype & SVs_PADMY) {
770 19651278 54189140 if (++PL_padix <= names_fill &&
14988442 4662836 if (++PL_padix <= names_fill &&
771 14943936 44506 (sv = names[PL_padix]) && sv != &PL_sv_undef)
774 5584632 53311850 if (!(SvFLAGS(sv) & (SVs_PADTMP | SVs_PADMY)) &&
778 78973 53232877 if (tmptype & SVf_READONLY) {
835 14 324621 if (SvTYPE(func) == SVt_PVCV || !CvOUTSIDE(func))
0 14 if (SvTYPE(func) == SVt_PVCV || !CvOUTSIDE(func))
847 288379 36256 if (CvOUTSIDE(func) && SvTYPE(func) == SVt_PVCV) {
288365 14 if (CvOUTSIDE(func) && SvTYPE(func) == SVt_PVCV) {
883 12192692 0 if (AvFILLp(PL_comppad_name) < 0 || !ckWARN(WARN_MISC))
5014147 7178545 if (AvFILLp(PL_comppad_name) < 0 || !ckWARN(WARN_MISC))
891 24085174 5013899 for (off = top; (I32)off > PL_comppad_name_floor; off--) {
893 12025628 12059546 if (sv
894 12018691 6937 && PadnameLEN(sv)
11981674 37017 && PadnameLEN(sv)
895 11320161 661513 && !SvFAKE(sv)
896 9655465 1664696 && ( COP_SEQ_RANGE_LOW(sv) == PERL_PADSEQ_INTRO
897 8759480 895985 || COP_SEQ_RANGE_HIGH(sv) == PERL_PADSEQ_INTRO)
898 248 10423928 && sv_eq(name, sv))
900 236 12 if (is_our && (SvPAD_OUR(sv)))
3 233 if (is_our && (SvPAD_OUR(sv)))
903 5 10 Perl_warner(aTHX_ packWARN(WARN_MISC),
13 2 Perl_warner(aTHX_ packWARN(WARN_MISC),
12 3 Perl_warner(aTHX_ packWARN(WARN_MISC),
905 1 11 (is_our ? "our" : PL_parser->in_my == KEY_my ? "my" : "state"),
915 362707 4651438 if (is_our) {
916 57271 362697 while (off > 0) {
918 11017 46254 if (sv
919 10924 93 && PadnameLEN(sv)
10921 3 && PadnameLEN(sv)
920 10921 0 && !SvFAKE(sv)
921 10886 35 && ( COP_SEQ_RANGE_LOW(sv) == PERL_PADSEQ_INTRO
922 4096 6790 || COP_SEQ_RANGE_HIGH(sv) == PERL_PADSEQ_INTRO)
923 3354 777 && SvOURSTASH(sv) == ourstash
1527 2604 && SvOURSTASH(sv) == ourstash
924 10 1517 && sv_eq(name, sv))
928 2 6 if ((I32)off <= PL_comppad_name_floor)
968 0 121242745 if (flags & ~padadd_UTF8_NAME)
972 651773 120590972 if (flags & padadd_UTF8_NAME) {
976 49153 602620 if (is_utf8)
984 43900736 77342009 if ((PADOFFSET)offset != NOT_IN_PAD)
993 1425727061 77339947 for (offset = AvFILLp(nameav); offset > 0; offset--) {
995 459933444 965793617 if (namesv && PadnameLEN(namesv) == namelen
458870062 1063382 if (namesv && PadnameLEN(namesv) == namelen
42343719 417589725 if (namesv && PadnameLEN(namesv) == namelen
997 2494159 39849560 && (SvPAD_OUR(namesv))
998 2417 2491742 && sv_eq_pvn_flags(aTHX_ namesv, namepv, namelen,
1000 2062 355 && COP_SEQ_RANGE_LOW(namesv) == PERL_PADSEQ_INTRO
1038 35 0 namepv = SvPV(name, namelen);
1039 11 24 if (SvUTF8(name))
1086 7 7 if (po == NOT_IN_PAD || SvPAD_OUR(namesv))
0 7 if (po == NOT_IN_PAD || SvPAD_OUR(namesv))
1087 7 0 return DEFSV;
1104 43 18 if (po == NOT_IN_PAD || SvPAD_OUR(namesv))
0 43 if (po == NOT_IN_PAD || SvPAD_OUR(namesv))
1105 18 0 return DEFSV;
1144 37 3 Perl_ck_warner(aTHX_ packWARN(WARN_CLOSURE),
1165 0 186152401 if (flags & ~(padadd_UTF8_NAME|padadd_STALEOK))
1179 186152400 1 if (padlist) { /* not an undef CV */
1184 3757547344 144039222 for (offset = PadnamelistMAXNAMED(nameav); offset > 0; offset--) {
1186 1277667886 2479879458 if (namesv && PadnameLEN(namesv) == namelen
1248373685 29294201 if (namesv && PadnameLEN(namesv) == namelen
143019008 1134648878 if (namesv && PadnameLEN(namesv) == namelen
1187 44043884 98975124 && sv_eq_pvn_flags(aTHX_ namesv, namepv, namelen,
1190 1787612 42256272 if (SvFAKE(namesv)) {
1197 6665 42249607 if (COP_SEQ_RANGE_LOW(namesv) == PERL_PADSEQ_INTRO)
1200 41655680 593927 if (COP_SEQ_RANGE_HIGH(namesv) == PERL_PADSEQ_INTRO) {
1202 0 41655680 if (
1203 41655680 0 (seq > COP_SEQ_RANGE_LOW(namesv))
1209 136429 457498 else if (
1210 0 593927 (COP_SEQ_RANGE_LOW(namesv) > COP_SEQ_RANGE_HIGH(namesv))
0 0 (COP_SEQ_RANGE_LOW(namesv) > COP_SEQ_RANGE_HIGH(namesv))
577530 16397 (COP_SEQ_RANGE_LOW(namesv) > COP_SEQ_RANGE_HIGH(namesv))
1213 0 0 || seq <= COP_SEQ_RANGE_HIGH(namesv))
1216 120032 457498 && seq <= COP_SEQ_RANGE_HIGH(namesv))
1222 43900790 142251610 if (offset > 0 || fake_offset > 0 ) { /* a match! */
1223 42113178 1787612 if (offset > 0) { /* not fake */
1235 41626077 487101 PAD_FAKELEX_ANON :
1236 294519 38146973 (!CvUNIQUE(cv) && ! CvCOMPILED(cv))
1237 38441492 3184585 ? PAD_FAKELEX_MULTI : 0;
1258 2088214 41812576 if (out_capture) {
1261 534056 1554158 if (SvPAD_OUR(*out_name_sv)) {
1267 296843 1257315 if (CvCOMPILED(cv)
38 296805 if (CvCOMPILED(cv)
22 1554136 if (CvCOMPILED(cv)
1268 3 35 ? CvANON(cv) && CvCLONE(cv) && !CvCLONED(cv)
0 3 ? CvANON(cv) && CvCLONE(cv) && !CvCLONED(cv)
1271 22 0 if (warn)
1283 1257296 296840 if (!CvCOMPILED(cv) && (*out_flags & PAD_FAKELEX_MULTI)
34 1257262 if (!CvCOMPILED(cv) && (*out_flags & PAD_FAKELEX_MULTI)
1285 29 5 && warn && ckWARN(WARN_CLOSURE)) {
23 6 && warn && ckWARN(WARN_CLOSURE)) {
1294 118 1554018 if (fake_offset && CvANON(cv)
13 105 if (fake_offset && CvANON(cv)
1295 4 9 && CvCLONE(cv) &&!CvCLONED(cv))
4 0 && CvCLONE(cv) &&!CvCLONED(cv))
1310 455058 1099074 *out_capture = AvARRAY(PadlistARRAY(padlist)[
1316 13 1554119 if (SvPADSTALE(*out_capture)
1317 7 6 && (!CvDEPTH(cv) || !staleok)
6 1 && (!CvDEPTH(cv) || !staleok)
1318 10 2 && !SvPAD_STATE(name_svp[offset]))
1327 32 1554122 if (!*out_capture) {
1328 32 0 if (namelen != 0 && *namepv == '@')
4 28 if (namelen != 0 && *namepv == '@')
1330 28 0 else if (namelen != 0 && *namepv == '%')
4 24 else if (namelen != 0 && *namepv == '%')
1332 24 0 else if (namelen != 0 && *namepv == '&')
2 22 else if (namelen != 0 && *namepv == '&')
1345 64909577 77342034 if (!CvOUTSIDE(cv))
1350 61150928 3758649 new_capturep = out_capture ? out_capture :
1351 59600476 1550452 CvLATE(cv) ? NULL : &new_capture;
59600382 94 CvLATE(cv) ? NULL : &new_capture;
188 59600194 CvLATE(cv) ? NULL : &new_capture;
1353 5309383 59600194 offset = pad_findlex(namepv, namelen,
1357 2278980 62630597 if ((PADOFFSET)offset == NOT_IN_PAD)
1364 2278825 155 if (CvCOMPILED(cv) || !padlist)
2278825 0 if (CvCOMPILED(cv) || !padlist)
1380 548337 1730488 = pad_alloc_name(new_namesv,
5 2278820 = pad_alloc_name(new_namesv,
2278804 21 = pad_alloc_name(new_namesv,
1395 1730488 548337 if (SvPAD_OUR(new_namesv)) {
1398 1555584 174904 else if (CvLATE(cv)) {
1555556 28 else if (CvLATE(cv)) {
47 1555509 else if (CvLATE(cv)) {
1417 2278825 0 PL_curpad = ocomppad ? AvARRAY(ocomppad) : NULL;
1496 14280575 7685248 if (full)
1498 0 21965823 if (PL_comppad_name_floor < 0)
1528 49758631 9761650 if (! PL_min_intro_pending)
1532 12246161 9761650 for (i = PL_min_intro_pending; i <= PL_max_intro_pending; i++) {
1535 12192585 53576 if (sv && PadnameLEN(sv) && !SvFAKE(sv)
12192585 0 if (sv && PadnameLEN(sv) && !SvFAKE(sv)
12192585 0 if (sv && PadnameLEN(sv) && !SvFAKE(sv)
12192585 0 if (sv && PadnameLEN(sv) && !SvFAKE(sv)
1536 12192583 2 && COP_SEQ_RANGE_LOW(sv) == PERL_PADSEQ_INTRO)
1550 0 9761650 if (PL_cop_seqmax == PERL_PADSEQ_INTRO) /* not a legal value */
1580 343947 21590062 if (PL_min_intro_pending && PL_comppad_name_fill < PL_min_intro_pending) {
0 343947 if (PL_min_intro_pending && PL_comppad_name_fill < PL_min_intro_pending) {
1581 0 0 for (off = PL_max_intro_pending; off >= PL_min_intro_pending; off--) {
1583 0 0 if (sv && PadnameLEN(sv) && !SvFAKE(sv))
0 0 if (sv && PadnameLEN(sv) && !SvFAKE(sv))
0 0 if (sv && PadnameLEN(sv) && !SvFAKE(sv))
0 0 if (sv && PadnameLEN(sv) && !SvFAKE(sv))
1590 105381393 21934009 for (off = AvFILLp(PL_comppad_name); off > PL_comppad_name_fill; off--) {
1592 28084789 77296604 if (sv && PadnameLEN(sv) && !SvFAKE(sv)
28036976 47813 if (sv && PadnameLEN(sv) && !SvFAKE(sv)
27807499 229477 if (sv && PadnameLEN(sv) && !SvFAKE(sv)
22386361 5421138 if (sv && PadnameLEN(sv) && !SvFAKE(sv)
1593 12191974 10194387 && COP_SEQ_RANGE_HIGH(sv) == PERL_PADSEQ_INTRO)
1602 12191866 108 if (!PadnameIsSTATE(sv) && !PadnameIsOUR(sv)
11594012 597854 if (!PadnameIsSTATE(sv) && !PadnameIsOUR(sv)
1603 11594012 0 && *PadnamePV(sv) == '&' && PadnameLEN(sv) > 1) {
54 11593958 && *PadnamePV(sv) == '&' && PadnameLEN(sv) > 1) {
54 0 && *PadnamePV(sv) == '&' && PadnameLEN(sv) > 1) {
54 0 && *PadnamePV(sv) == '&' && PadnameLEN(sv) > 1) {
1611 0 21934009 if (PL_cop_seqmax == PERL_PADSEQ_INTRO) /* not a legal value */
1632 2982630 0 if (!PL_curpad)
1634 0 2982630 if (AvARRAY(PL_comppad) != PL_curpad)
1637 2982630 0 if (!po || ((SSize_t)po) > AvFILLp(PL_comppad))
0 2982630 if (!po || ((SSize_t)po) > AvFILLp(PL_comppad))
1645 0 2982630 if (refadjust)
1657 2982630 0 if (PadnamelistMAX(PL_comppad_name) != -1
1658 11297 2971333 && (PADOFFSET)PadnamelistMAX(PL_comppad_name) >= po) {
1664 0 2982630 if ((I32)po < PL_padix)
1754 6915648 80096 if (PL_cv_has_eval || PL_perldb) {
2085006 4830642 if (PL_cv_has_eval || PL_perldb) {
1756 5597888 991177 for (cv = PL_compcv ;cv; cv = CvOUTSIDE(cv)) {
1757 3432786 2165102 if (cv != PL_compcv && CvCOMPILED(cv))
2258861 1173925 if (cv != PL_compcv && CvCOMPILED(cv))
1759 67379 4356584 if (CvANON(cv)) {
1769 6392974 602770 if (AvFILLp(PL_comppad_name) < AvFILLp(PL_comppad))
1772 137923 6857821 if (type == padtidy_SUBCLONE) {
1776 918105 137923 for (ix = AvFILLp(PL_comppad); ix > 0; ix--) {
1778 609856 308249 if (!namep[ix]) namep[ix] = &PL_sv_undef;
1785 890374 27731 if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])
0 0 if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])
0 0 if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])
0 0 if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])
0 0 if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])
1786 0 890374 || IS_PADGV(PL_curpad[ix]))
1789 308249 582125 if (!(PadnamePV(namesv) &&
308249 0 if (!(PadnamePV(namesv) &&
308249 0 if (!(PadnamePV(namesv) &&
1790 307633 616 (!PadnameLEN(namesv) || *SvPVX_const(namesv) == '&')))
299554 8079 (!PadnameLEN(namesv) || *SvPVX_const(namesv) == '&')))
1797 6857684 137 else if (type == padtidy_SUB) {
1804 6857821 137923 if (type == padtidy_SUB || type == padtidy_FORMAT) {
1807 59786880 6857821 for (ix = AvFILLp(PL_comppad); ix > 0; ix--) {
1808 47303480 12483400 if (!namep[ix]) namep[ix] = &PL_sv_undef;
1809 58504469 1282411 if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])
0 0 if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])
0 0 if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])
0 0 if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])
0 0 if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])
1810 0 58504469 || IS_PADGV(PL_curpad[ix]) || IS_PADCONST(PL_curpad[ix]))
1812 45926433 12578036 if (!SvPADMY(PL_curpad[ix])) {
1814 10932027 1646009 } else if (!SvFAKE(namep[ix])) {
1853 12758231 2053876 if (!PL_curpad)
1855 0 12758231 if (AvARRAY(PL_comppad) != PL_curpad)
1858 0 12758231 if (!po)
1868 9775601 2982630 if (sv && sv != &PL_sv_undef && !SvPADMY(sv))
9775601 0 if (sv && sv != &PL_sv_undef && !SvPADMY(sv))
6277894 3497707 if (sv && sv != &PL_sv_undef && !SvPADMY(sv))
1871 1802539 10955692 if ((I32)po < PL_padix)
1895 0 0 if (!padlist) {
1907 0 0 for (ix = 1; ix <= AvFILLp(pad_name); ix++) {
1909 0 0 if (namesv && !PadnameLEN(namesv)) {
0 0 if (namesv && !PadnameLEN(namesv)) {
0 0 if (namesv && !PadnameLEN(namesv)) {
1912 0 0 if (namesv) {
1913 0 0 if (SvFAKE(namesv))
1914 0 0 Perl_dump_indent(aTHX_ level+1, file,
1925 0 0 Perl_dump_indent(aTHX_ level+1, file,
1935 0 0 else if (full) {
1936 0 0 Perl_dump_indent(aTHX_ level+1, file,
2030 1579008 9 if (!outside) {
0 0 if (!outside) {
2031 1578832 176 if (CvWEAKOUTSIDE(proto))
0 0 if (CvWEAKOUTSIDE(proto))
2035 6 170 if ((CvCLONE(outside) && ! CvCLONED(outside))
0 6 if ((CvCLONE(outside) && ! CvCLONED(outside))
0 0 if ((CvCLONE(outside) && ! CvCLONED(outside))
0 0 if ((CvCLONE(outside) && ! CvCLONED(outside))
2036 168 2 || !CvPADLIST(outside)
0 0 || !CvPADLIST(outside)
2037 2 166 || PadlistNAMES(CvPADLIST(outside))
0 0 || PadlistNAMES(CvPADLIST(outside))
2046 1579011 6 depth = outside ? CvDEPTH(outside) : 0;
0 0 depth = outside ? CvDEPTH(outside) : 0;
2047 122 1578895 if (!depth)
0 0 if (!depth)
2053 1578954 63 if (newcv) SAVEFREESV(cv); /* in case of fatal warnings */
0 0 if (newcv) SAVEFREESV(cv); /* in case of fatal warnings */
2055 1190424 388593 if (CvHASEVAL(cv))
0 0 if (CvHASEVAL(cv))
2066 1579011 0 outpad = outside && CvPADLIST(outside)
0 0 outpad = outside && CvPADLIST(outside)
2068 1579011 6 : NULL;
0 0 : NULL;
2069 1579011 6 if (outpad)
0 0 if (outpad)
2072 3881440 1579015 for (ix = fpad; ix > 0; ix--) {
0 0 for (ix = fpad; ix > 0; ix--) {
2073 3881440 0 SV* const namesv = (ix <= fname) ? pname[ix] : NULL;
0 0 SV* const namesv = (ix <= fname) ? pname[ix] : NULL;
2075 3881440 0 if (namesv && PadnameLEN(namesv)) { /* lexical */
1298814 2582626 if (namesv && PadnameLEN(namesv)) { /* lexical */
1298128 686 if (namesv && PadnameLEN(namesv)) { /* lexical */
0 0 if (namesv && PadnameLEN(namesv)) { /* lexical */
0 0 if (namesv && PadnameLEN(namesv)) { /* lexical */
0 0 if (namesv && PadnameLEN(namesv)) { /* lexical */
2076 1279440 18688 if (PadnameIsOUR(namesv)) { /* or maybe not so lexical */
0 0 if (PadnameIsOUR(namesv)) { /* or maybe not so lexical */
2080 1113262 166178 if (SvFAKE(namesv)) { /* lexical from outside? */
0 0 if (SvFAKE(namesv)) { /* lexical from outside? */
2083 1113258 4 if (!outpad || !(sv = outpad[PARENT_PAD_INDEX(namesv)])
1113258 0 if (!outpad || !(sv = outpad[PARENT_PAD_INDEX(namesv)])
0 0 if (!outpad || !(sv = outpad[PARENT_PAD_INDEX(namesv)])
0 0 if (!outpad || !(sv = outpad[PARENT_PAD_INDEX(namesv)])
2084 12 1113246 || ( SvPADSTALE(sv) && !SvPAD_STATE(namesv)
11 1 || ( SvPADSTALE(sv) && !SvPAD_STATE(namesv)
0 0 || ( SvPADSTALE(sv) && !SvPAD_STATE(namesv)
0 0 || ( SvPADSTALE(sv) && !SvPAD_STATE(namesv)
2085 11 0 && (!outside || !CvDEPTH(outside))) ) {
4 7 && (!outside || !CvDEPTH(outside))) ) {
0 0 && (!outside || !CvDEPTH(outside))) ) {
0 0 && (!outside || !CvDEPTH(outside))) ) {
2092 166184 1113254 if (!sv) {
0 0 if (!sv) {
2094 1521 164663 if (sigil == '&')
0 0 if (sigil == '&')
2102 9 1512 if (SvPAD_STATE(namesv) && !CvCLONED(ppad[ix])) {
9 0 if (SvPAD_STATE(namesv) && !CvCLONED(ppad[ix])) {
0 0 if (SvPAD_STATE(namesv) && !CvCLONED(ppad[ix])) {
0 0 if (SvPAD_STATE(namesv) && !CvCLONED(ppad[ix])) {
2107 1512 0 else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv))
14 1498 else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv))
14 0 else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv))
0 0 else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv))
0 0 else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv))
0 0 else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv))
2113 0 14 CvNAME_HEK_set(
14 0 CvNAME_HEK_set(
0 0 CvNAME_HEK_set(
0 0 CvNAME_HEK_set(
2122 7980 156683 else if (sigil == '@')
0 0 else if (sigil == '@')
2124 2869 153814 else if (sigil == '%')
0 0 else if (sigil == '%')
2130 164663 1521 if (sigil != '&' && SvPAD_STATE(namesv))
7 164656 if (sigil != '&' && SvPAD_STATE(namesv))
0 0 if (sigil != '&' && SvPAD_STATE(namesv))
0 0 if (sigil != '&' && SvPAD_STATE(namesv))
2135 2583312 0 else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) {
686 2582626 else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) {
686 0 else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) {
0 0 else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) {
0 0 else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) {
0 0 else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) {
2145 6 1579009 if (subclones)
0 0 if (subclones)
2146 33 6 for (ix = fpad; ix > 0; ix--) {
0 0 for (ix = fpad; ix > 0; ix--) {
2147 33 0 SV* const namesv = (ix <= fname) ? pname[ix] : NULL;
0 0 SV* const namesv = (ix <= fname) ? pname[ix] : NULL;
2148 33 0 if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv)
12 21 if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv)
9 3 if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv)
0 0 if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv)
0 0 if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv)
0 0 if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv)
2149 9 0 && SvPVX_const(namesv)[0] == '&' && SvPAD_STATE(namesv))
9 0 && SvPVX_const(namesv)[0] == '&' && SvPAD_STATE(namesv))
0 0 && SvPVX_const(namesv)[0] == '&' && SvPAD_STATE(namesv))
0 0 && SvPVX_const(namesv)[0] == '&' && SvPAD_STATE(namesv))
2153 1578952 63 if (newcv) SvREFCNT_inc_simple_void_NN(cv);
0 0 if (newcv) SvREFCNT_inc_simple_void_NN(cv);
2165 1578954 63 if (!cv) cv = MUTABLE_CV(newSV_type(SvTYPE(proto)));
2171 0 1579017 : CvFILE(proto);
2172 64 1578953 if (CvNAMED(proto))
2173 0 64 CvNAME_HEK_set(cv, share_hek_hek(CvNAME_HEK(proto)));
2177 1579010 7 CvROOT(cv) = OpREFCNT_inc(CvROOT(proto));
2182 1514 1577503 if (SvPOK(proto)) {
2184 1 1513 if (SvUTF8(proto))
2187 22 1578995 if (SvMAGIC(proto))
2190 1579017 0 if (CvPADLIST(proto)) S_cv_clone_pad(aTHX_ proto, cv, outside, newcv);
2207 0 1578954 if (!CvPADLIST(proto)) Perl_croak(aTHX_ "panic: no pad in cv_clone");
2243 898407 56816 for (ix = AvFILLp(comppad_name); ix > 0; ix--) {
2245 235255 663152 if (namesv && namesv != &PL_sv_undef && !SvPAD_STATE(namesv)
235252 3 if (namesv && namesv != &PL_sv_undef && !SvPAD_STATE(namesv)
235244 8 if (namesv && namesv != &PL_sv_undef && !SvPAD_STATE(namesv)
2246 106 235138 && *SvPVX_const(namesv) == '&')
2248 98 8 if (SvTYPE(curpad[ix]) == SVt_PVCV) {
2252 0 98 : NULL;
2253 0 98 CV * const innercv = MUTABLE_CV(mg ? mg->mg_obj : curpad[ix]);
2254 94 4 if (CvOUTSIDE(innercv) == old_cv) {
2255 0 94 if (!CvWEAKOUTSIDE(innercv)) {
2265 6 2 if (!SvOK(rv)) continue;
6 0 if (!SvOK(rv)) continue;
6 0 if (!SvOK(rv)) continue;
2294 22349929 204919 if (depth > PadlistMAX(padlist) || !PadlistARRAY(padlist)[depth]) {
147137 22202792 if (depth > PadlistMAX(padlist) || !PadlistARRAY(padlist)[depth]) {
2303 10248698 352056 for ( ;ix > 0; ix--) {
2304 10248698 0 if (names_fill >= ix && PadnameLEN(names[ix])) {
2026888 8221810 if (names_fill >= ix && PadnameLEN(names[ix])) {
2026464 424 if (names_fill >= ix && PadnameLEN(names[ix])) {
2306 1862396 164068 if ((SvFLAGS(names[ix]) & SVf_FAKE)
2308 8938 1853458 || sigil == '&')
2315 45699 1807759 if (sigil == '@')
2317 468 1807291 else if (sigil == '%')
2325 424 8221810 else if (IS_PADGV(oldpad[ix]) || PadnamePV(names[ix])) {
424 0 else if (IS_PADGV(oldpad[ix]) || PadnamePV(names[ix])) {
2358 7 43 if ( SvPAD_TYPED(*av) ) {
2506 204919 147137 if (key > PadlistMAX(padlist)) {
2510 0 204919 Zero(PadlistARRAY(padlist)+oldmax+1, PadlistMAX(padlist)-oldmax,