my $self = bless $class->Test::Valgrind::Tool::new(%args), $class;
$callers =~ s/\D//g;
my $self = bless $class->Test::Valgrind::Tool::new(%args), $class;
@@ -65,6+72,8 @@ sub new_trainer { shift->new(callers => 50) }
=head2 C<callers>
=head2 C<callers>
+ my $callers = $tvtm->callers;
+
Read-only accessor for the C<callers> option.
=cut
Read-only accessor for the C<callers> option.
=cut
@@ -73,9+82,11 @@ sub callers { $_[0]->{callers} }
sub suppressions_tag { 'memcheck-' . $_[1]->version }
sub suppressions_tag { 'memcheck-' . $_[1]->version }
-=head2 C<parser_class $session>
+=head2 C<parser_class>
-This tool uses a C<Test::Valgrind::Parser::XML::Twig> parser in analysis mode, and a C<Test::Valgrind::Parser::Suppressions::Text> parser in suppressions mode.
+ my $parser_class = $tvtm->parser_class($session);
+
+This tool uses a L<Test::Valgrind::Parser::XML::Twig> parser in analysis mode, and a L<Test::Valgrind::Parser::Suppressions::Text> parser in suppressions mode.