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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
=head1 NAME
Apache2::MPM - Perl API for accessing Apache MPM information
=head1 Synopsis
use Apache2::MPM ();
# check whether Apache MPM is threaded
if (Apache2::MPM->is_threaded) { do_something() }
# which mpm is used
my $mpm = lc Apache2::MPM->show;
# query mpm properties
use Apache2::Const -compile => qw(:mpmq);
if (Apache2::MPM->query(Apache2::Const::MPMQ_STATIC)) { ... }
=head1 Description
C<Apache2::MPM> provides the Perl API for accessing Apache MPM
information.
=head1 API
C<Apache2::MPM> provides the following functions and/or methods:
=head2 C<query>
Query various attributes of the MPM
my $query = Apache2::MPM->query($const);
=over 4
=item obj: C<$class>
( C<L<Apache2::MPM class|docs::2.0::api::Apache2::MPM>> )
the class name
=item arg1: C<$const> ( C<L<Apache2::Const :mpmq group
constant|docs::2.0::api::Apache2::Const/C__mpmq_>> )
The MPM attribute to query.
=item ret: C<$query> ( boolean )
the result of the query
=item since: 2.0.00
=back
For example to test whether the mpm is static:
use Apache2::Const -compile => qw(MPMQ_STATIC);
if (Apache2::MPM->query(Apache2::Const::MPMQ_STATIC)) { ... }
=head2 C<is_threaded>
Check whether the running Apache MPM is threaded.
my $is_threaded = Apache2::MPM->is_threaded;
=over 4
=item obj: C<$class>
( C<L<Apache2::MPM class|docs::2.0::api::Apache2::MPM>> )
the class name
=item ret: C<$is_threaded> ( boolean )
threaded or not
=item since: 2.0.00
=back
Note that this functionality is just a shortcut for:
use Apache2::Const -compile => qw(MPMQ_IS_THREADED);
my $is_threaded = Apache2::MPM->query(Apache2::Const::MPMQ_IS_THREADED);
=head2 C<show>
What mpm is used
my $mpm = Apache2::MPM->show();
=over 4
=item obj: C<$class>
( C<L<Apache2::MPM class|docs::2.0::api::Apache2::MPM>> )
the class name
=item ret: C<$mpm> ( string )
the name of the MPM. e.g., "Prefork".
=item since: 2.0.00
=back
=head1 See Also
L<mod_perl 2.0 documentation|docs::2.0::index>.
=head1 Copyright
mod_perl 2.0 and its core modules are copyrighted under
The Apache Software License, Version 2.0.
=head1 Authors
L<The mod_perl development team and numerous
contributors|about::contributors::people>.
=cut
|
