X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FModules%2FDumpVars.pl;h=9b4ac4f4034f36f42416d4fa0c1f03bd31363fe7;hb=23abe86f946486f5aaa6035da6fc244d61135c97;hp=5b36b2248b0eeecd11763462ff1eebf9c1f1649b;hpb=cb81fea9939f349b36e3b5a0cdc0343a6b781da1;p=infobot.git

diff --git a/src/Modules/DumpVars.pl b/src/Modules/DumpVars.pl
index 5b36b22..9b4ac4f 100644
--- a/src/Modules/DumpVars.pl
+++ b/src/Modules/DumpVars.pl
@@ -15,118 +15,123 @@ my $countlines = 0;
 
 sub dumpvarslog {
     my ($line) = @_;
-    if (&IsParam('dumpvarsLogFile')) {
-	print DUMPVARS $line."\n";
-    } else {
-	&status("DV: ".$line);
+    if ( &IsParam('dumpvarsLogFile') ) {
+        print DUMPVARS $line . "\n";
+    }
+    else {
+        &status( "DV: " . $line );
     }
 }
 
 sub DumpNames(\%$) {
-    my ($package,$packname) =  @_;
+    my ( $package, $packname ) = @_;
     my $symname = 0;
     my $line;
 
-    if ($packname eq 'main::') {
-	&dumpvarslog('Packages');
+    if ( $packname eq 'main::' ) {
+        &dumpvarslog('Packages');
 
-	foreach $symname (sort keys %$package) {
-	    local *sym = $$package{$symname};
-	    next unless (defined %sym);
-	    next unless ($symname =~/::/);
-	    &dumpvarslog("   $symname");
-	    $countlines++;
-	}
+        foreach $symname ( sort keys %$package ) {
+            local *sym = $$package{$symname};
+            next unless ( %sym );
+            next unless ( $symname =~ /::/ );
+            &dumpvarslog("   $symname");
+            $countlines++;
+        }
     }
 
     # Scalars.
-    foreach $symname (sort keys %$package) {
-	local *sym = $$package{$symname};
-	next unless (defined $sym);
-
-	my $line;
-	if (length($sym) > 512) {
-	    &dumpvarslog("Scalar '$packname' $symname too long.");
-	} else {
-	    &dumpvarslog("Scalar '$packname' \$ $symname => '$sym'");
-	}
-	$countlines++;
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined $sym );
+
+        my $line;
+        if ( length($sym) > 512 ) {
+            &dumpvarslog("Scalar '$packname' $symname too long.");
+        }
+        else {
+            &dumpvarslog("Scalar '$packname' \$ $symname => '$sym'");
+        }
+        $countlines++;
     }
 
     # Functions.
-    foreach $symname (sort keys %$package) {
-	local *sym = $$package{$symname};
-	next unless (defined &sym);
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined &sym );
 
-	&dumpvarslog("Function '$packname' $symname()");
-	$countlines++;
+        &dumpvarslog("Function '$packname' $symname()");
+        $countlines++;
     }
 
     # Lists.
-    foreach $symname (sort keys %$package) {
-	local *sym = $$package{$symname};
-	next unless (defined @sym);
-
-	&dumpvarslog("List '$packname' \@$symname (". scalar(@{$symname}) .")");
-	$countlines++;
-
-	next unless ($packname eq 'main::');
-	foreach (@{$symname}) {
-	    if (defined $_) {
-		&dumpvarslog("   => '$_'.");
-	    } else {
-		&dumpvarslog("   => <NULL>.");
-	    }
-	}
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( @sym );
+
+        &dumpvarslog(
+            "List '$packname' \@$symname (" . scalar( @{$symname} ) . ")" );
+        $countlines++;
+
+        next unless ( $packname eq 'main::' );
+        foreach ( @{$symname} ) {
+            if ( defined $_ ) {
+                &dumpvarslog("   => '$_'.");
+            }
+            else {
+                &dumpvarslog("   => <NULL>.");
+            }
+        }
     }
 
     # Hashes.
-    foreach $symname (sort keys %$package) {
-	local *sym = $$package{$symname};
-	next unless (defined %sym);
-	next if ($symname =~/::/);
-
-	&dumpvarslog("Hash '$packname' \%$symname");
-	$countlines++;
-
-	next unless ($packname eq 'main::');
-	foreach (keys %{$symname}) {
-	    my $val = ${$symname}{$_};
-	    if (defined $val) {
-		&dumpvarslog("   $_ => '$val'.");
-	    } else {
-		&dumpvarslog("   $_ => <NULL>.");
-	    }
-	}
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( %sym );
+        next if ( $symname =~ /::/ );
+
+        &dumpvarslog("Hash '$packname' \%$symname");
+        $countlines++;
+
+        next unless ( $packname eq 'main::' );
+        foreach ( keys %{$symname} ) {
+            my $val = ${$symname}{$_};
+            if ( defined $val ) {
+                &dumpvarslog("   $_ => '$val'.");
+            }
+            else {
+                &dumpvarslog("   $_ => <NULL>.");
+            }
+        }
     }
 
-    return unless ($packname eq 'main::');
+    return unless ( $packname eq 'main::' );
 
-    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 ( %sym );
+        next unless ( $symname =~ /::/ );
+        next if ( $symname eq 'main::' );
 
-	DumpNames(\%sym,$symname)
+        DumpNames( \%sym, $symname );
     }
 }
 
 sub dumpallvars {
-    if (&IsParam('dumpvarsLogFile')) {
-	my $file = $param{'dumpvarsLogFile'};
-	&status("opening fh to dumpvars ($file)");
-	if (!open(DUMPVARS,">$file")) {
-	    &ERROR("cannot open dumpvars.");
-	    return;
-	}
+    if ( &IsParam('dumpvarsLogFile') ) {
+        my $file = $param{'dumpvarsLogFile'};
+        &status("opening fh to dumpvars ($file)");
+        if ( !open( DUMPVARS, ">$file" ) ) {
+            &ERROR("cannot open dumpvars.");
+            return;
+        }
     }
 
-    DumpNames(%main::,'main::');
+    DumpNames( %main::, 'main::' );
 
-    if (&IsParam('dumpvarsLogFile')) {
-	&status("closing fh to dumpvars");
-	close DUMPVARS;
+    if ( &IsParam('dumpvarsLogFile') ) {
+        &status("closing fh to dumpvars");
+        close DUMPVARS;
     }
 
     &status("DV: count == $countlines");