Lines Matching refs:key
213 for my $key (@sortKeys) {
215 my $value = $ {$v}{$key} ;
216 print $sp, $self->stringify($key), " => ";
326 my ($package, $off, $key, $val, $all) = @_;
329 if (($key !~ /^_</ or $self->{dumpDBFiles}) and defined $stab) {
330 print( (' ' x $off) . "\$", &unctrl($key), " = " );
333 if (($key !~ /^_</ or $self->{dumpDBFiles}) and @stab) {
334 print( (' ' x $off) . "\@$key = (\n" );
338 if ($key ne "main::" && $key ne "DB::" && %stab
339 && ($self->{dumpPackages} or $key !~ /::$/)
340 && ($key !~ /^_</ or $self->{dumpDBFiles})
341 && !($package eq "Dumpvalue" and $key eq "stab")) {
342 print( (' ' x $off) . "\%$key = (\n" );
347 print( (' ' x $off) . "FileHandle($key) => fileno($fileno)\n" );
351 $self->dumpsub($off, $key);
398 my ($key,$val);
408 while (($key,$val) = each(%stab)) {
410 next if @vars && !grep( matchvar($key, $_), @vars );
412 $self->globUsage(\$val, $key)
413 if ($package ne 'Dumpvalue' or $key ne 'stab')
416 $self->dumpglob($package, 0,$key, $val);
478 #and !($package eq "Dumpvalue" and $key eq "stab"));