X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FParser.pm;h=217a0b1ce24374992e06e0b91c937ff9676acf94;hb=943acd9991dfbe73afc5eca6921767f098f5e6a9;hp=e4b68b6392bc93ac2c0d1e83d4b9812bd73ef7f7;hpb=01ace0ff88ffd8fb63dfebcc3b8a8baaf9e0df25;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/lib/Test/Valgrind/Parser.pm b/lib/Test/Valgrind/Parser.pm
index e4b68b6..217a0b1 100644
--- a/lib/Test/Valgrind/Parser.pm
+++ b/lib/Test/Valgrind/Parser.pm
@@ -21,21 +21,12 @@ This class is the base for L<Test::Valgrind> parsers.
 
 =cut
 
-use base qw/Test::Valgrind::Carp/;
+use base qw/Test::Valgrind::Component Test::Valgrind::Carp/;
 
 =head1 METHODS
 
 =head2 C<new>
 
-=cut
-
-sub new {
- my $class = shift;
- $class = ref($class) || $class;
-
- bless { }, $class;
-}
-
 =head2 C<args $session, $fh>
 
 Returns the list of parser-specific arguments that are to be passed to C<valgrind>.
@@ -54,9 +45,21 @@ This method must be implemented when subclassing.
 
 sub parse;
 
+=head2 C<start $session>
+
+Called when the C<$session> starts.
+
+Defaults to set L<Test::Valgrind::Component/started>.
+
+=head2 C<finish $session>
+
+Called when the C<$session> finishes.
+
+Defaults to clear L<Test::Valgrind::Component/started>.
+
 =head1 SEE ALSO
 
-L<Test::Valgrind>, L<Test::Valgrind::Session>.
+L<Test::Valgrind>, L<Test::Valgrind::Component>, L<Test::Valgrind::Session>.
 
 =head1 AUTHOR