dist/Data-Dumper/Dumper.xs

76                     Style *style);
651 	AV *postav, const I32 level, SV *apad, Style *style)
674     if (style->maxrecursed)
693         if (SvOBJECT(SvRV(val)) && style->freezer &&
694             SvPOK(style->freezer) && SvCUR(style->freezer) &&
695             gv_fetchmeth(SvSTASH(SvRV(val)), SvPVX_const(style->freezer),
696                          SvCUR(style->freezer), -1) != NULL)
700             i = perl_call_method(SvPVX_const(style->freezer), G_EVAL|G_VOID|G_DISCARD);
727 		    if (style->purity && level > 0) {
808         if (!style->purity && style->maxdepth > 0 && level >= style->maxdepth) {
817         if (style->maxrecurse > 0 && level >= style->maxrecurse) {
818             style->maxrecursed = TRUE;
823             const char * const blessstr = SvPV(style->bless, blesslen);
826             if (style->indent >= 2) {
833         ipad = sv_x(aTHX_ Nullsv, SvPVX_const(style->xpad), SvCUR(style->xpad), level+1);
852 			postav, level+1, apad, style);
858 			postav, level+1, apad, style);
867 		    postav, level+1, apad, style);
908             totpad = sv_2mortal(newSVsv(style->sep));
909             sv_catsv(totpad, style->pad);
925                 if (style->indent >= 3) {
936 			level+1, apad, style);
939 		if (ix < ixmax || (style->trailingcomma && style->indent >= 1))
943                 SV * const opad = sv_x(aTHX_ Nullsv, SvPVX_const(style->xpad), SvCUR(style->xpad), level);
985             totpad = sv_2mortal(newSVsv(style->sep));
986             sv_catsv(totpad, style->pad);
990 	    if (style->sortkeys) {
991 		if (style->sortkeys == &PL_sv_yes) {
1022 		    i = perl_call_sv(style->sortkeys, G_SCALAR | G_EVAL);
1050                if (style->sortkeys) {
1059 		if (style->sortkeys) {
1100                 if (style->quotekeys || key_needs_quote(key,keylen)) {
1101                     if (do_utf8 || style->useqq) {
1103                         klen = nlen = esc_q_utf8(aTHX_ retval, key, klen, do_utf8, style->useqq);
1132                 sv_catsv(retval, style->pair);
1133                 if (style->indent >= 2) {
1148 			postav, level+1, newapad, style);
1154                 SV *opad = sv_x(aTHX_ Nullsv, SvPVX_const(style->xpad),
1155                                 SvCUR(style->xpad), level);
1156                 if (style->trailingcomma && style->indent >= 1)
1168             if (style->deparse) {
1170                 SV *fullpad = sv_2mortal(newSVsv(style->sep));
1175                 sv_catsv(fullpad, style->pad);
1178                     sv_catsv(fullpad, style->xpad);
1200                 if (style->purity)
1211             if (style->indent >= 2) {
1234             if (style->toaster && SvPOK(style->toaster) && SvCUR(style->toaster)) {
1236                 sv_catsv(retval, style->toaster);
1269             else if (val != &PL_sv_undef && (!style->use_sparse_seen_hash || SvREFCNT(val) > 1)) {
1327 			cBOOL(GvNAMEUTF8(val)), style->useqq
1329 			0, style->useqq || globname_supra_ascii(c, i)
1346             if (style->purity) {
1372                         if (style->indent >= 2)
1376 				seenhv, postav, 0, newapad, style);
1411             if (style->useqq && safe_decimal_number(c, i)) {
1414             else if (DO_UTF8(val) || style->useqq)
1415                 i += esc_q_utf8(aTHX_ retval, c, i, DO_UTF8(val), style->useqq);
1430         if (style->deepcopy)
1463             Style style;
1495             style.indent = 2;
1496             style.quotekeys = 1;
1497             style.maxrecurse = 1000;
1498             style.maxrecursed = FALSE;
1499             style.purity = style.deepcopy = style.useqq = style.maxdepth
1500                 = style.use_sparse_seen_hash = style.trailingcomma = 0;
1501             style.pad = style.xpad = style.sep = style.pair = style.sortkeys
1502                 = style.freezer = style.toaster = style.bless = &PL_sv_undef;
1514                     style.use_sparse_seen_hash = 1;
1516                     style.use_sparse_seen_hash = (SvOK(*svp) && SvIV(*svp) != 0);
1522                     style.indent = SvIV(*svp);
1524                     style.purity = SvIV(*svp);
1528                     style.useqq = SvTRUE(*svp);
1530                     style.pad = *svp;
1532                     style.xpad = *svp;
1536                     style.sep = *svp;
1538                     style.pair = *svp;
1542                     style.freezer = *svp;
1544                     style.toaster = *svp;
1546                     style.deepcopy = SvTRUE(*svp);
1548                     style.quotekeys = SvTRUE(*svp);
1550                     style.trailingcomma = SvTRUE(*svp);
1552                     style.deparse = SvTRUE(*svp);
1554                     style.bless = *svp;
1556                     style.maxdepth = SvIV(*svp);
1558                     style.maxrecurse = SvIV(*svp);
1562                         style.sortkeys = NULL;
1564                         style.sortkeys = sv;
1567                         style.sortkeys = &PL_sv_yes;
1631                     if (style.indent >= 2 && !terse) {
1644                             postav, 0, newapad, &style);
1655                     sv_catsv(retval, style.pad);
1657                     sv_catsv(retval, style.sep);
1660                         sv_catsv(retval, style.pad);
1668                                     sv_catsv(retval, style.sep);
1669                                     sv_catsv(retval, style.pad);
1674                         sv_catsv(retval, style.sep);
1686                 if (style.maxrecursed)
1688                             style.maxrecurse);