1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
# NAME
Proc::Guard - process runner with RAII pattern
# SYNOPSIS
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
});
...
# DESCRIPTION
Proc::Guard runs process, and destroys it when the perl script exits.
This is useful for testing code working with server process.
# FUNCTIONS
- proc_guard(@cmdline|\&code)
This is shorthand for:
Proc::Guard->new(
command => \@cmdline,
);
or
Proc::Guard->new(
code => \&code,
);
# METHODS
- 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.
# VARIABLES
- $Proc::Guard::EXIT_STATUS
The last exit status code by `$proc->stop`.
# AUTHOR
Tokuhiro Matsuno <tokuhirom AAJKLFJEF GMAIL COM>
# LICENSE
Copyright (C) Tokuhiro Matsuno
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
|
