5 $rPackage = \%{"${packageName}::"}; # Get a reference to the appropriate symbol table hash.
7 while (($varName, $globValue) = each %$rPackage) {
8 last if ($varName eq "main::");
9 print "$varName ============================= \n";
12 print "\t \$$varName = '$var' \n";
16 ### print "\t \@$varName @var \n";
20 ### print "\t \%$varName ",%var," \n";
27 $level = -1; # Level of indentation
42 print_indented ($_[0]);
48 if (exists ($already_seen{$r})) {
49 print_indented ("$r (Seen earlier)");
54 my $ref_type = ref($r);
55 if ($ref_type eq "ARRAY") {
57 } elsif ($ref_type eq "SCALAR") {
60 } elsif ($ref_type eq "HASH") {
62 } elsif ($ref_type eq "REF") {
64 print_indented("Ref -> ($r)");
68 print_indented ("$ref_type (not supported)");
75 print_indented ("[ # $r_array");
76 foreach $var (@$r_array) {
91 print_indented ("{ # $r_hash");
92 while (($key, $val) = each %$r_hash) {
93 $val = ($val ? $val : '""');
96 print_indented ("$key => ");
99 print_indented ("$key => $val");
103 print_indented ("}");
108 $spaces = ": " x $level;
109 print "${spaces}$_[0]\n";