From: Vincent Pit <vince@profvince.com>
Date: Sat, 19 Sep 2009 22:33:41 +0000 (+0200)
Subject: Add a default ->filter() to tools
X-Git-Tag: v1.10~12
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=commitdiff_plain;h=dc609e9b9b97e5f6c68a9b42a26f0ffb491f3c9e

Add a default ->filter() to tools
---

diff --git a/lib/Test/Valgrind/Tool.pm b/lib/Test/Valgrind/Tool.pm
index 8a0675f..54598a5 100644
--- a/lib/Test/Valgrind/Tool.pm
+++ b/lib/Test/Valgrind/Tool.pm
@@ -118,6 +118,17 @@ Called when the C<$session> starts.
 
 Defaults to set L<Test::Valgrind::Component/started>.
 
+=head2 C<filter $session, $report>
+
+The <$session> calls this method after receiving a report from the parser and before letting the command filter it.
+You can either return a mangled C<$report> (which does not need to be a clone of the original) or C<undef> if you want the action to ignore it completely.
+
+Defaults to the identity function.
+
+=cut
+
+sub filter { $_[2] }
+
 =head2 C<finish $session>
 
 Called when the C<$session> finishes.