X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction%2FTest.pm;h=c0c2644f91425acd3ae7fd476a7fb58757ff95a3;hb=b34179155630f5f4cbea1749af4054a746ded9a4;hp=67e122bed2f28975f11c6841dc93bb357c735623;hpb=08860dad1f820cce06758ec4add9353a4dbc8175;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Action/Test.pm b/lib/Test/Valgrind/Action/Test.pm index 67e122b..c0c2644 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.10 +Version 1.17 =cut -our $VERSION = '1.10'; +our $VERSION = '1.17'; =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 Vincent Pit, all rights reserved. +Copyright 2009,2010,2011,2013,2015 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.