Don't show empty argument list for method calls.

gisle · Jan 12, 2009 · 285ab57 · 285ab57
1 parent 5e0b900
commit 285ab57
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Data/Dump/Trace.pm b/lib/Data/Dump/Trace.pm
@@ -139,7 +139,9 @@ sub new {
 sub print_call {
     my $self = shift;
     my $arg = shift;
-    print YELLOW, "$self->{name}", RESET, $self->{input};
+    my $input = $self->{input};
+    $input = "" if $input eq "()" && $self->{name} =~ /->/;
+    print YELLOW, "$self->{name}", RESET, $input;
 }
 
 sub return_void {