X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FCommand.pm;h=1cef9da102e57a7fd6706b50bdf47141300bbe65;hb=cc42998614d386a86ed90c9c9dd3ce9df68140f5;hp=15e47b94cc36d38817f21c265de03a51d6dda56c;hpb=a7f76c8c630e9273e6b8c72f884e7fe012da116e;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Command.pm b/lib/Test/Valgrind/Command.pm index 15e47b9..1cef9da 100644 --- a/lib/Test/Valgrind/Command.pm +++ b/lib/Test/Valgrind/Command.pm @@ -9,25 +9,31 @@ Test::Valgrind::Command - Base class for Test::Valgrind commands. =head1 VERSION -Version 1.12 +Version 1.14 =cut -our $VERSION = '1.12'; +our $VERSION = '1.14'; =head1 DESCRIPTION This class is the base for L commands. -Commands gather information about the target of the analysis. They should also provide a default setup for generating suppressions. +Commands gather information about the target of the analysis. +They should also provide a default setup for generating suppressions. =cut -use base qw/Test::Valgrind::Carp/; +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. @@ -67,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. @@ -77,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. @@ -88,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. @@ -98,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. @@ -132,7 +146,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 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.