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 6142e4278d01b484eb7bcb0a24ed0fd88d3b3a22..4a1db955a5b71bb5c897858cb773de73dbd0962f 100644 (file)
--- 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
 
 
 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
 
 
 =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') }
 
 
 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
 
 
 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
 
 
 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);
  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.
 
 
 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
 
 
 =head1 COPYRIGHT & LICENSE
 


@@ -151,7 +151,7 @@ This program is free software; you can redistribute it and/or modify it under th
 
 =cut
 
 
 =cut
 

-# End of Test::Valgrind::Tool::SuppressionsParser
+# End of Test::Valgrind::Parser::Suppressions::Text

 
 package Test::Valgrind::Report::Suppressions;
 
 
 package Test::Valgrind::Report::Suppressions;
 

diff --git a/lib/Test/Valgrind/Tool/memcheck.pm b/lib/Test/Valgrind/Tool/memcheck.pm
index c93ad2dbd38fa7a6cba2c55acf2468dd073090b7..05f77bdf7be145aefefb42f6bae56e1b3ec7f52d 100644 (file)
--- 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
 
 
 =cut
 

-use base qw/Test::Valgrind::Tool::SuppressionsParser Test::Valgrind::Tool/;
+use base qw/Test::Valgrind::Tool/;

 
 =head1 METHODS
 
 
 =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>
 
 
 =head2 C<requires_version>
 


@@ -149,7 +149,7 @@ sub finish {
 
 =head1 SEE ALSO
 
 
 =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>.
 
 
 L<XML::Twig>.
 

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index e78b413b29c2c1be90b974b2ac3bdcf013a3ce2d..79ffd62f708a9c146f767ab95867ec4476e8f0df 100644 (file)
--- 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::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::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);
 pod_coverage_ok('Test::Valgrind::Tool::memcheck', $trustparents);