From: Vincent Pit <vince@profvince.com>
Date: Sun, 13 Sep 2009 23:47:52 +0000 (+0200)
Subject: Get rid of all pointers to Test::Valgrind::Tool::SuppressionsParser
X-Git-Tag: v1.10~21
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=91e50cd9ec30efd628f6221947d7a523eebb2248;p=perl%2Fmodules%2FTest-Valgrind.git

Get rid of all pointers to Test::Valgrind::Tool::SuppressionsParser
---

diff --git a/lib/Test/Valgrind/Parser/Suppressions/Text.pm b/lib/Test/Valgrind/Parser/Suppressions/Text.pm
index 6142e42..4a1db95 100644
--- a/lib/Test/Valgrind/Parser/Suppressions/Text.pm
+++ b/lib/Test/Valgrind/Parser/Suppressions/Text.pm
@@ -1,11 +1,11 @@
-package Test::Valgrind::Tool::SuppressionsParser;
+package Test::Valgrind::Parser::Suppressions::Text;
 
 use strict;
 use warnings;
 
 =head1 NAME
 
-Test::Valgrind::Tool::SuppressionsParser - Mock Test::Valgrind::Tool for parsing valgrind suppressions.
+Test::Valgrind::Parser::Suppressions::Text - Parse valgrind suppressions output as text blocks.
 
 =head1 VERSION
 
@@ -38,22 +38,22 @@ The solution is to either put C<Test::Valgrind::Tool> first in the C<@ISA> list
 
 sub new { shift->_croak('This mock tool isn\'t meant to be used directly') }
 
-=head2 C<report_class_suppressions $session>
+=head2 C<report_class>
 
 Generated reports are C<Test::Valgrind::Report::Suppressions> objects.
 Their C<data> member contains the raw text of the suppression.
 
 =cut
 
-sub report_class_suppressions { 'Test::Valgrind::Report::Suppressions' }
+sub report_class { 'Test::Valgrind::Report::Suppressions' }
 
-=head2 C<parse_suppressions $session, $fh>
+=head2 C<parse $session, $fh>
 
 Parses the filehandle C<$fh> fed with the output of F<valgrind --gen-suppressions=all> and sends a report to the session C<$session> for each suppression.
 
 =cut
 
-sub parse_suppressions {
+sub parse {
  my ($self, $sess, $fh) = @_;
 
  my ($s, $in) = ('', 0);
@@ -141,7 +141,7 @@ I will be notified, and then you'll automatically be notified of progress on you
 
 You can find documentation for this module with the perldoc command.
 
-    perldoc Test::Valgrind::Tool::SuppressionsParser
+    perldoc Test::Valgrind::Parser::Suppressions::Text
 
 =head1 COPYRIGHT & LICENSE
 
@@ -151,7 +151,7 @@ This program is free software; you can redistribute it and/or modify it under th
 
 =cut
 
-# End of Test::Valgrind::Tool::SuppressionsParser
+# End of Test::Valgrind::Parser::Suppressions::Text
 
 package Test::Valgrind::Report::Suppressions;
 
diff --git a/lib/Test/Valgrind/Tool/memcheck.pm b/lib/Test/Valgrind/Tool/memcheck.pm
index c93ad2d..05f77bd 100644
--- a/lib/Test/Valgrind/Tool/memcheck.pm
+++ b/lib/Test/Valgrind/Tool/memcheck.pm
@@ -21,11 +21,11 @@ This tool parses the XML output of a C<memcheck> run with L<XML::Twig>.
 
 =cut
 
-use base qw/Test::Valgrind::Tool::SuppressionsParser Test::Valgrind::Tool/;
+use base qw/Test::Valgrind::Tool/;
 
 =head1 METHODS
 
-This class inherits L<Test::Valgrind::Tool> and L<Test::Valgrind::Tool::SuppressionsParser>.
+This class inherits L<Test::Valgrind::Tool>.
 
 =head2 C<requires_version>
 
@@ -149,7 +149,7 @@ sub finish {
 
 =head1 SEE ALSO
 
-L<Test::Valgrind>, L<Test::Valgrind::Tool>, L<Test::Valgrind::Tool::SuppressionsParser>.
+L<Test::Valgrind>, L<Test::Valgrind::Tool>.
 
 L<XML::Twig>.
 
diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index e78b413..79ffd62 100644
--- a/t/92-pod-coverage.t
+++ b/t/92-pod-coverage.t
@@ -34,10 +34,11 @@ pod_coverage_ok('Test::Valgrind::Command::Aggregate', $trustparents);
 pod_coverage_ok('Test::Valgrind::Command::Perl', $trustparents);
 pod_coverage_ok('Test::Valgrind::Command::PerlScript', $trustparents);
 
+pod_coverage_ok('Test::Valgrind::Parser::Suppressions::Text');
+
 pod_coverage_ok('Test::Valgrind::Report');
 pod_coverage_ok('Test::Valgrind::Session');
 pod_coverage_ok('Test::Valgrind::Suppressions');
 
 pod_coverage_ok('Test::Valgrind::Tool');
-pod_coverage_ok('Test::Valgrind::Tool::SuppressionsParser');
 pod_coverage_ok('Test::Valgrind::Tool::memcheck', $trustparents);