7 }; # Get a reference to the appropriate symbol table hash.
9 while ( ( $varName, $globValue ) = each %$rPackage ) {
10 last if ( $varName eq "main::" );
11 print "$varName ============================= \n";
13 if ( defined($var) ) {
14 print "\t \$$varName = '$var' \n";
16 if ( defined(@var) ) {
18 ### print "\t \@$varName @var \n";
20 if ( defined(%var) ) {
22 ### print "\t \%$varName ",%var," \n";
29 $level = -1; # Level of indentation
45 print_indented( $_[0] );
51 if ( exists( $already_seen{$r} ) ) {
52 print_indented("$r (Seen earlier)");
56 $already_seen{$r} = 1;
58 my $ref_type = ref($r);
59 if ( $ref_type eq "ARRAY" ) {
62 elsif ( $ref_type eq "SCALAR" ) {
66 elsif ( $ref_type eq "HASH" ) {
69 elsif ( $ref_type eq "REF" ) {
71 print_indented("Ref -> ($r)");
76 print_indented("$ref_type (not supported)");
83 print_indented("[ # $r_array");
84 foreach $var (@$r_array) {
100 print_indented("{ # $r_hash");
101 while ( ( $key, $val ) = each %$r_hash ) {
102 $val = ( $val ? $val : '""' );
105 print_indented("$key => ");
109 print_indented("$key => $val");
118 $spaces = ": " x $level;
119 print "${spaces}$_[0]\n";
122 # vim:ts=4:sw=4:expandtab:tw=80