Add mcall

gisle · Jan 2, 2009 · cbc6908 · cbc6908
1 parent d504f83
commit cbc6908
Showing 1 changed file with 22 additions and 1 deletion.
diff --git a/lib/Data/Dump/Trace.pm b/lib/Data/Dump/Trace.pm
@@ -3,7 +3,7 @@ package Data::Dump::Trace;
 use strict;
 
 use base 'Exporter';
-our @EXPORT_OK = qw(call wrap);
+our @EXPORT_OK = qw(call mcall wrap);
 
 use Data::Dump qw(dump);
 use Term::ANSIColor qw(YELLOW CYAN RESET);
@@ -52,4 +52,25 @@ sub call {
     }
 }
 
+sub mcall {
+    my $o = shift;
+    my $method = shift;
+    my $oname = ref($o) ? "\$o" : $o;
+    print YELLOW, $oname, "->", $method, dumpav(@_), RESET;
+    if (!defined wantarray) {
+        print "\n";
+        $o->$method(@_);
+    }
+    elsif (wantarray) {
+        my @s = $o->$method(@_);
+        print " ==> ", CYAN, dumpav(@s), RESET, "\n";
+        return @s;
+    }
+    else {
+        my $s = $o->$method(@_);
+        print " ==> ", CYAN, dump($s), RESET, "\n";
+        return $s;
+    }
+}
+
 1;