Lines Matching refs:val
137 my $val = $v;
138 $val = &{'overload::StrVal'}($v)
143 ($start_part, $val) = split /=/,$val;
144 $val = $start_part unless defined $val;
146 $val =~ /([^\(]+) # Keep stuff that's
343 my ($off,$key, $val, $all, $m) = @_;
344 local(*entry) = $val;
375 my ($key, $val, $m, @vars) = @_;
380 if (UNIVERSAL::isa($val,'ARRAY')) {
382 unwrap($val,3+$off,$m) ;
385 elsif (UNIVERSAL::isa($val,'HASH')) {
387 unwrap($val,3+$off,$m) ;
390 elsif (UNIVERSAL::isa($val,'IO')) {
394 # elsif (UNIVERSAL::isa($val,'CODE')) {
395 # dumpsub($off, $$val);
399 DumpElem $$val, 3+$off, $m;
439 local(%address,$key,$val,$^W);
448 while (($key,$val) = each(%stab)) {
452 globUsage(\$val, $key)
454 and ref(\$val) eq 'GLOB';
456 dumpglob(0,$key, $val, 0, $m);
516 my ($key,$val);
517 while (($key,$val) = each(%stab)) {
519 globUsage \$val, $key unless $package eq 'dumpvar' and $key eq 'stab';