X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction.pm;h=23c3ae1fe2dfac88b25db86210503e84576cd615;hb=d83358595540f8645467c2d1a2f658fa74b14c72;hp=62c46c993a998ddf1fad71cc729f5e9cbce56dae;hpb=a7f76c8c630e9273e6b8c72f884e7fe012da116e;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Action.pm b/lib/Test/Valgrind/Action.pm index 62c46c9..23c3ae1 100644 --- a/lib/Test/Valgrind/Action.pm +++ b/lib/Test/Valgrind/Action.pm @@ -9,11 +9,11 @@ Test::Valgrind::Action - Base class for Test::Valgrind actions. =head1 VERSION -Version 1.12 +Version 1.13 =cut -our $VERSION = '1.12'; +our $VERSION = '1.13'; =head1 DESCRIPTION @@ -23,11 +23,13 @@ Actions are called each time a tool encounter an error and decide what to do wit =cut -use base qw/Test::Valgrind::Component Test::Valgrind::Carp/; +use base qw; =head1 METHODS -=head2 C<< new action => $action >> +=head2 C + + my $tva = Test::Valgrind::Action->new(action => $action); Creates a new action object of type C<$action> by requiring and redispatching the method call to the module named C<$action> if it contains C<'::'> or to C otherwise. The class represented by C<$action> must inherit this class. @@ -60,13 +62,17 @@ Indicates if the action wants C to run in suppression-generating mode sub do_suppressions { 0 } -=head2 C +=head2 C + + $tva->start($session); Called when the C<$session> starts. Defaults to set L. -=head2 C +=head2 C + + $tva->report($session, $report); Invoked each time the C process attached to the C<$session> spots an error. C<$report> is a L object describing the error. @@ -83,7 +89,9 @@ sub report { return; } -=head2 C +=head2 C + + $tva->abort($session, $msg); Triggered when the C<$session> has to interrupt the action. @@ -93,13 +101,17 @@ Defaults to croak. sub abort { $_[0]->_croak($_[2]) } -=head2 C +=head2 C + + $tva->finish($session); Called when the C<$session> finishes. Defaults to clear L. -=head2 C +=head2 C + + $tva->status($session); Returns the status code corresponding to the last run of the action. @@ -139,7 +151,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 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.