Lines Matching refs:key
129 local(%v,@v,$sp,$value,$key,@sortKeys,$more,$shortmore,$short) ;
204 for $key (@sortKeys) {
206 $value = $ {$v}{$key} ;
207 print "$sp", &stringify($key), " => ";
343 my ($off,$key, $val, $all, $m) = @_;
346 if (($key !~ /^_</ or $dumpDBFiles) and defined $entry) {
347 print( (' ' x $off) . "\$", &unctrl($key), " = " );
350 if (($key !~ /^_</ or $dumpDBFiles) and @entry) {
351 print( (' ' x $off) . "\@$key = (\n" );
355 if ($key ne "main::" && $key ne "DB::" && %entry
356 && ($dumpPackages or $key !~ /::$/)
357 && ($key !~ /^_</ or $dumpDBFiles)
358 && !($package eq "dumpvar" and $key eq "stab")) {
359 print( (' ' x $off) . "\%$key = (\n" );
364 print( (' ' x $off) . "FileHandle($key) => fileno($fileno)\n" );
368 dumpsub($off, $key);
375 my ($key, $val, $m, @vars) = @_;
376 return if @vars && !grep( matchlex($key, $_), @vars );
381 print( (' ' x $off) . "$key = (\n" );
386 print( (' ' x $off) . "$key = (\n" );
391 print( (' ' x $off) . "FileHandle($key) => fileno($fileno)\n" );
398 print( (' ' x $off) . &unctrl($key), " = " );
439 local(%address,$key,$val,$^W);
448 while (($key,$val) = each(%stab)) {
450 next if @vars && !grep( matchvar($key, $_), @vars );
452 globUsage(\$val, $key)
453 if ($package ne 'dumpvar' or $key ne 'stab')
456 dumpglob(0,$key, $val, 0, $m);
503 and $_[1] ne "DB::"; #and !($package eq "dumpvar" and $key eq "stab"));
516 my ($key,$val);
517 while (($key,$val) = each(%stab)) {
518 next if @vars && !grep($key eq $_,@vars);
519 globUsage \$val, $key unless $package eq 'dumpvar' and $key eq 'stab';