Searched refs:realpack (Results 1 – 2 of 2) sorted by relevance
| /mirbsd/src/gnu/usr.bin/perl/ext/Data/Dumper/ |
| D | Dumper.pm | 249 my($out, $realpack, $realtype, $type, $ipad, $id, $blesspad);
266 $realpack = Scalar::Util::blessed($val);
267 $realtype = $realpack ? Scalar::Util::reftype($val) : ref $val;
307 if ($realpack and $realpack eq 'Regexp') {
325 if ($realpack) {
335 if ($realpack) {
424 if ($realpack) { # we have a blessed ref
425 $out .= ', \'' . $realpack . '\'' . ' )';
|
| D | Dumper.xs | 249 char *c, *r, *realpack, id[128]; in DD_dump() local
288 realpack = HvNAME_get(SvSTASH(ival)); in DD_dump()
290 realpack = Nullch; in DD_dump()
364 if (realpack && *realpack == 'R' && strEQ(realpack, "Regexp")) { in DD_dump()
395 if (realpack) { /* we have a blessed ref */ in DD_dump()
414 if (realpack) { /* blessed */ in DD_dump()
743 if (realpack) { /* free blessed allocs */ in DD_dump()
749 sv_catpvn(retval, realpack, strlen(realpack)); in DD_dump()
|