X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction%2FTest.pm;h=971cbbf81e2110d6080652ae7f9e79c9b40bfd98;hp=c479a67e02fa418370c6e2ec28d06e41207bd697;hb=d83358595540f8645467c2d1a2f658fa74b14c72;hpb=254ae9b36d4bdcc79ab4a2dacd3d717b5cea1f9e

diff --git a/lib/Test/Valgrind/Action/Test.pm b/lib/Test/Valgrind/Action/Test.pm
index c479a67..971cbbf 100644
--- a/lib/Test/Valgrind/Action/Test.pm
+++ b/lib/Test/Valgrind/Action/Test.pm
@@ -29,7 +29,13 @@ use base qw<Test::Valgrind::Action Test::Valgrind::Action::Captor>;
 
 This class inherits L<Test::Valgrind::Action> and L<Test::Valgrind::Action::Captor>.
 
-=head2 C<< new diag => $diag, extra_tests => $extra_tests, ... >>
+=head2 C<new>
+
+    my $tvat = Test::Valgrind::Action::Test->new(
+     diag        => $diag,
+     extra_tests => $extra_tests,
+     %extra_args,
+    );
 
 Your usual constructor.
 
@@ -60,6 +66,8 @@ sub new {
 
 =head2 C<diag>
 
+    my $diag = $tvat->diag;
+
 Read-only accessor for the C<diag> option.
 
 =cut
@@ -68,6 +76,8 @@ sub diag { $_[0]->{diag} }
 
 =head2 C<kinds>
 
+    my @kinds = $tvat->kinds;
+
 Returns the list of all the monitored report kinds.
 
 =cut