X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FCommand.pm;h=3e0dcbcb1b3b850ef019d1eeed52faac6e161ca0;hp=0f87b2a30f047a85589ed6d6bb69478b9ca2d014;hb=d83358595540f8645467c2d1a2f658fa74b14c72;hpb=254ae9b36d4bdcc79ab4a2dacd3d717b5cea1f9e diff --git a/lib/Test/Valgrind/Command.pm b/lib/Test/Valgrind/Command.pm index 0f87b2a..3e0dcbc 100644 --- a/lib/Test/Valgrind/Command.pm +++ b/lib/Test/Valgrind/Command.pm @@ -28,7 +28,12 @@ use base qw; =head1 METHODS -=head2 C<< new command => $command, args => \@args >> +=head2 C + + my $tvc = Test::Valgrind::Command->new( + command => $command, + args => \@args, + ); Creates a new command object of type C<$command> by requiring and redispatching the method call to the module named C<$command> if it contains C<'::'> or to C otherwise. The class represented by C<$command> must inherit this class. @@ -68,7 +73,9 @@ Defaults to return C, which skips suppression generation. sub new_trainer { } -=head2 C +=head2 C + + my @args = $tvc->args($session); Returns the list of command-specific arguments that are to be passed to C. @@ -78,7 +85,9 @@ Defaults to return the contents of the C option. sub args { @{$_[0]->{args} || []} } -=head2 C +=head2 C + + my $env = $tvc->env($session); This event is called in scalar context before the command is ran, and the returned value goes out of scope when the analysis ends. It's useful for e.g. setting up C<%ENV> for the child process by returning an L object, hence the name. @@ -89,7 +98,9 @@ Defaults to void. sub env { } -=head2 C +=head2 C + + my $tag = $tvc->suppressions_tag($session); Returns a identifier that will be used to pick up the right suppressions for running the command, or C to indicate that no special suppressions are needed. @@ -99,7 +110,9 @@ This method must be implemented when subclassing. sub suppressions_tag; -=head2 C +=head2 C + + my $filtered_report = $tvc->filter($session, $report); The C<$session> calls this method after receiving a report from the tool and before forwarding it to the action. You can either return a mangled C<$report> (which does not need to be a clone of the original) or C if you want the action to ignore it completely.