X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction%2FTest.pm;h=237ab066851b65cc8b54702755eb8619130eda21;hb=f2071d95aaaa4817e91cc33530deedc8d701d44d;hp=70991deffdfe1deaaf5cacb93ede6d6b41b0bbf5;hpb=a7f76c8c630e9273e6b8c72f884e7fe012da116e;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Action/Test.pm b/lib/Test/Valgrind/Action/Test.pm index 70991de..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.12 +Version 1.19 =cut -our $VERSION = '1.12'; +our $VERSION = '1.19'; =head1 DESCRIPTION @@ -23,13 +23,19 @@ This action uses C 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; =head1 METHODS This class inherits L and L. -=head2 C<< new diag => $diag, extra_tests => $extra_tests, ... >> +=head2 C + + 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 + my $diag = $tvat->diag; + Read-only accessor for the C option. =cut @@ -68,6 +76,8 @@ sub diag { $_[0]->{diag} } =head2 C + my @kinds = $tvat->kinds; + Returns the list of all the monitored report kinds. =cut @@ -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}; } my $failed = 0; @@ -211,7 +221,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2009,2010 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.