Lines Matching refs:out
171 my(@out, $val, $name);
178 my $out = "";
209 $out .= $s->{pad} . $valstr . $s->{sep};
210 $out .= $s->{pad} . join(';' . $s->{sep} . $s->{pad}, @post)
213 push @out, $out;
215 return wantarray ? @out : join('', @out);
227 my($out, $realpack, $realtype, $type, $ipad, $id, $blesspad);
230 $out = "";
249 $out = ($realtype eq 'HASH') ? '{}' :
255 $out = $s->{seen}{$id}[0];
258 if ($out =~ /^\\$start/) {
259 $out = substr($out, 1);
262 $out = $start . '{' . $out . '}';
266 return $out;
280 $out = "$val";
281 $out =~ s,/,\\/,g;
282 return "qr/$out/";
298 $out = $s->{'bless'} . '( ';
308 $out .= 'do{\\(my $o = ' . $s->_dump($$val, "\${$name}") . ')}';
311 $out .= '\\' . $s->_dump($$val, "\${$name}");
315 $out .= '\\' . $s->_dump($$val, "*{$name}");
320 $out .= ($name =~ /^\@/) ? '(' : '[';
329 $out .= $pad . $ipad . '#' . $i if $s->{indent} >= 3;
330 $out .= $pad . $ipad . $s->_dump($v, $sname);
331 $out .= "," if $i++ < $#$val;
333 $out .= $pad . ($s->{xpad} x ($s->{level} - 1)) if $i;
334 $out .= ($name =~ /^\@/) ? ')' : ']';
338 $out .= ($name =~ /^\%/) ? '(' : '{';
367 $out .= $pad . $ipad . $nk . $pair;
371 $out .= $s->_dump($val->{$k}, $sname) . ",";
374 if (substr($out, -1) eq ',') {
375 chop $out;
376 $out .= $pad . ($s->{xpad} x ($s->{level} - 1));
378 $out .= ($name =~ /^\%/) ? ')' : '}';
386 $out .= $sub;
388 $out .= 'sub { "DUMMY" }';
397 $out .= ', \'' . $realpack . '\'' . ' )';
398 $out .= '->' . $s->{toaster} . '()' if $s->{toaster} ne '';
412 $out = $s->{seen}{$id}[0];
413 #warn "[<$out]\n";
414 return "\${$out}";
447 $out .= '*' . $sname;
450 $out .= "undef";
453 $out .= $val;
458 $out .= qquote($val, $s->{useqq});
462 $out .= '\'' . $val . '\'';
476 return $out;
686 Given a list of scalars or reference variables, writes out their contents in