Proc::Guard - process runner with RAII pattern
use Test::TCP qw/empty_port wait_port/;
use File::Which qw/which/;
use Proc::Guard;
my $port = empty_port();
my $proc = proc_guard(scalar(which('memcached')), '-p', $port);
wait_port($port);
# your code here
# --------------
# or, use perl code
my $proc = proc_guard(sub {
... # run this code in child process
});
...
Proc::Guard runs process, and destroys it when the perl script exits.
This is useful for testing code working with server process.
-
proc_guard(@cmdline|\&code)
This is shorthand for:
Proc::Guard->new( command => \@cmdline, );
or
Proc::Guard->new( code => \&code, );
-
my $proc = Proc::Guard->new(%args);
Create and run a process. The process is terminated when the returned object is being DESTROYed.
-
command
Proc::Guard->new(command => '/path/to/memcached'); # or Proc::Guard->new(command => ['/path/to/memcached', '-p', '11211']);
The command line.
-
code
Proc::Guard->new(code => sub { ... });
'code' or 'command' is required.
-
auto_start
Proc::Guard->new(auto_start => 0);
Start child process automatically or not(default: 1).
-
-
pid
Returns process id (or undef if not running).
-
start
Starts process.
-
stop
Stops process.
-
$Proc::Guard::EXIT_STATUS
The last exit status code by
$proc->stop
. Ifwaitpid
failed with an error, this will be set toundef
.
Tokuhiro Matsuno
Copyright (C) Tokuhiro Matsuno
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.