X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction%2FTest.pm;h=237ab066851b65cc8b54702755eb8619130eda21;hb=f2071d95aaaa4817e91cc33530deedc8d701d44d;hp=49149e60f5b14539250865ee03832aa299dc9f36;hpb=abe419ac02d109283a1fe5615f5ab9d0a9a5572f;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/lib/Test/Valgrind/Action/Test.pm b/lib/Test/Valgrind/Action/Test.pm
index 49149e6..237ab06 100644
--- a/lib/Test/Valgrind/Action/Test.pm
+++ b/lib/Test/Valgrind/Action/Test.pm
@@ -9,11 +9,11 @@ Test::Valgrind::Action::Test - Test that an analysis didn't generate any error r
 
 =head1 VERSION
 
-Version 1.01
+Version 1.19
 
 =cut
 
-our $VERSION = '1.01';
+our $VERSION = '1.19';
 
 =head1 DESCRIPTION
 
@@ -23,13 +23,19 @@ This action uses C<Test::Builder> to plan and pass or fail tests according to th
 
 use Test::Builder;
 
-use base qw/Test::Valgrind::Action Test::Valgrind::Action::Captor/;
+use base qw<Test::Valgrind::Action Test::Valgrind::Action::Captor>;
 
 =head1 METHODS
 
 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
@@ -110,10 +120,10 @@ sub abort {
  my $tb = Test::Builder->new;
  my $plan = $tb->has_plan;
  if (defined $plan) {
-  $tb->BAIL_OUT($@);
+  $tb->BAIL_OUT($msg);
   $self->{status} = 255;
  } else {
-  $tb->skip_all($@);
+  $tb->skip_all($msg);
   $self->{status} = 0;
  }
 
@@ -158,7 +168,7 @@ sub finish {
   seek $fh, $self->{capture_pos}, 0;
   $tb->diag($_) while <$fh>;
   close $fh or $self->_croak('close(capture[' . fileno($fh) . "]): $!");
-  delete @{$self}{qw/capture capture_pos/};
+  delete @{$self}{qw<capture capture_pos>};
  }
 
  my $failed = 0;
@@ -211,7 +221,7 @@ You can find documentation for this module with the perldoc command.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2009 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011,2013,2015,2016 Vincent Pit, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.