Lines Matching refs:val
69 seen => {}, # local (nested) refs (id => [name, val])
171 my(@out, $val, $name);
177 for $val (@{$s->{todump}}) {
183 if (defined $val) {
184 $name = (ref $val eq 'ARRAY') ? ( "\@" . $1 ) :
185 (ref $val eq 'HASH') ? ( "\%" . $1 ) :
186 (ref $val eq 'CODE') ? ( "\*" . $1 ) :
205 $valstr = $s->_dump($val, $name);
225 my($s, $val, $name) = @_;
229 $type = ref $val;
236 $val->$freezer() if UNIVERSAL::can($val, $freezer);
240 (overload::StrVal($val) =~ /^(?:(.*)\=)?([^=]*)\(([^\(]*)\)$/);
275 $val ];
280 $out = "$val";
293 return qq['$val'];
308 $out .= 'do{\\(my $o = ' . $s->_dump($$val, "\${$name}") . ')}';
311 $out .= '\\' . $s->_dump($$val, "\${$name}");
315 $out .= '\\' . $s->_dump($$val, "*{$name}");
327 for $v (@$val) {
331 $out .= "," if $i++ < $#$val;
350 $keys = $s->{sortkeys}($val);
357 $keys = [ sort keys %$val ];
360 while (($k, $v) = ! $sortkeys ? (each %$val) :
361 @$keys ? ($key = shift(@$keys), $val->{$key}) :
371 $out .= $s->_dump($val->{$k}, $sname) . ",";
383 my $sub = 'sub ' . (B::Deparse->new)->coderef2text($val);
423 my $name = substr($val, 1);
436 my $gval = *$val{$k};
449 elsif (!defined($val)) {
452 elsif ($val =~ /^(?:0|-?[1-9]\d{0,8})\z/) { # safe decimal number
453 $out .= $val;
456 if ($s->{useqq} or $val =~ tr/\0-\377//c) {
458 $out .= qquote($val, $s->{useqq});
461 $val =~ s/([\\\'])/\\$1/g;
462 $out .= '\'' . $val . '\'';