X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fvartree.pl;h=f22bbac414dbec440315959d21a1d0c6ee996540;hb=40f6dad8bfd5a8a707a69cb31ba62cc6d26139c1;hp=1b53de8e60fb6dc344dd45bba8da770a3248a33a;hpb=08424c9191b4c7d7be2446239d651e21d636644c;p=infobot.git

diff --git a/scripts/vartree.pl b/scripts/vartree.pl
index 1b53de8..f22bbac 100755
--- a/scripts/vartree.pl
+++ b/scripts/vartree.pl
@@ -6,74 +6,74 @@
 local @test;
 local %test;
 
-$test{'hash0r'} = 2;
+$test{'hash0r'}   = 2;
 $test{'hegdfgsd'} = 'GSDFSDfsd';
 
-push(@test,"heh.");
-push(@test,\%test);
-
-&vartree(\%main::, 'main::');
+push( @test, "heh." );
+push( @test, \%test );
 
+&vartree( \%main::, 'main::' );
 
 sub tree {
-    my ($pad, $ref, $symname) = @_;
+    my ( $pad, $ref, $symname ) = @_;
     my $padded = " " x $pad;
     my @list;
     my $scalar = 0;
     my $size   = 0;
 
-    @list = keys %{$symname} if ($ref eq 'HASH');
-    @list = @{$symname} if ($ref eq 'ARRAY');
+    @list = keys %{$symname} if ( $ref eq 'HASH' );
+    @list = @{$symname}      if ( $ref eq 'ARRAY' );
 
     foreach (@list) {
-	my $ref = ref $_;
-
-	if ($ref eq 'HASH' or $ref eq 'ARRAY') {
-	    print $padded."recursing $ref($_).\n";
-	    &tree($pad+2, $ref, $_);
-	} elsif ($ref eq '') {
-	    $scalar++;
-	    $size += length($_);
-	}
+        my $ref = ref $_;
+
+        if ( $ref eq 'HASH' or $ref eq 'ARRAY' ) {
+            print $padded. "recursing $ref($_).\n";
+            &tree( $pad + 2, $ref, $_ );
+        }
+        elsif ( $ref eq '' ) {
+            $scalar++;
+            $size += length($_);
+        }
     }
-    print $padded."scalars $scalar, size $size\n";
+    print $padded. "scalars $scalar, size $size\n";
 }
 
 sub vartree {
-    my ($package, $packname) = @_;
+    my ( $package, $packname ) = @_;
     my $symname;
 
     # scalar.
-    foreach $symname (sort keys %$package) {
-	local *sym = $$package{$symname};
-	next unless (defined $sym);
-	print "scalar => $symname = '$sym'\n";
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined $sym );
+        print "scalar => $symname = '$sym'\n";
     }
 
     # array.
-    foreach $symname (sort keys %$package) {
-	local *sym = $$package{$symname};
-	next unless (defined @sym);
-	print "\@$symname\n";
-	&tree(2, "ARRAY", $symname);
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined @sym );
+        print "\@$symname\n";
+        &tree( 2, "ARRAY", $symname );
     }
 
     # hash.
-    foreach $symname (sort keys %$package) {
-	local *sym = $$package{$symname};
-	next unless (defined %sym);
-	print "\%$symname\n";
-	&tree(2, "HASH", $symname);
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined %sym );
+        print "\%$symname\n";
+        &tree( 2, "HASH", $symname );
     }
 
-    foreach $symname (sort keys %$package) {
-	local *sym = $$package{$symname};
-	next unless (defined %sym);
-	next unless ($symname =~ /::/);
-	next if ($symname eq 'main::');
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined %sym );
+        next unless ( $symname =~ /::/ );
+        next if ( $symname eq 'main::' );
 
-	print "recurse: $symname.\n";
-	&vartree(\%sym, $symname);
+        print "recurse: $symname.\n";
+        &vartree( \%sym, $symname );
     }
 
     print "end.\n";