X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind.pm;h=4b33486fe3e34b5eeae8e74d0f2aa01b68dbbccb;hb=27bd94a9be93ea328e072a879a18a80dde0053d0;hp=a447541b0a7e4e9f63148bcc6f1cbd2a76f6d991;hpb=3968e3b9715c8e5e7eaf998012d434b914b9e126;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm
index a447541..4b33486 100644
--- a/lib/Test/Valgrind.pm
+++ b/lib/Test/Valgrind.pm
@@ -47,6 +47,14 @@ You can pass parameters to C<import> as a list of key / value pairs, where valid
 
 =item *
 
+C<< command => $command >>
+
+The L<Test::Valgrind::Command> object (or class name) to use.
+
+Defaults to L<Test::Valgrind::Command::PerlScript>.
+
+=item *
+
 C<< tool => $tool >>
 
 The L<Test::Valgrind::Tool> object (or class name) to use.
@@ -136,18 +144,21 @@ sub import {
   return;
  }
 
- require Test::Valgrind::Command;
- my $cmd = Test::Valgrind::Command->new(
-  command => 'PerlScript',
-  file    => $file,
-  args    => [ '-MTest::Valgrind=run,1' ],
- );
-
  my $instanceof = sub {
   require Scalar::Util;
   Scalar::Util::blessed($_[0]) && $_[0]->isa($_[1]);
  };
 
+ my $cmd = delete $args{command};
+ unless ($cmd->$instanceof('Test::Valgrind::Command')) {
+  require Test::Valgrind::Command;
+  $cmd = Test::Valgrind::Command->new(
+   command => $cmd || 'PerlScript',
+   file    => $file,
+   args    => [ '-MTest::Valgrind=run,1' ],
+  );
+ }
+
  my $tool = delete $args{tool};
  unless ($tool->$instanceof('Test::Valgrind::Tool')) {
   require Test::Valgrind::Tool;