/usr/lib/perl5/ModPerl/Global.pm is in libapache2-mod-perl2 2.0.8+httpd24-r1449661-6ubuntu2.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 | #
# /*
# * *********** WARNING **************
# * This file generated by ModPerl::WrapXS/0.01
# * Any changes made here will be lost
# * ***********************************
# * 01: lib/ModPerl/Code.pm:709
# * 02: lib/ModPerl/WrapXS.pm:633
# * 03: lib/ModPerl/WrapXS.pm:1182
# * 04: Makefile.PL:427
# * 05: Makefile.PL:329
# * 06: Makefile.PL:58
# */
#
package ModPerl::Global;
use strict;
use warnings FATAL => 'all';
use Apache2::XSLoader ();
our $VERSION = '2.000008';
Apache2::XSLoader::load __PACKAGE__;
1;
__END__
=head1 NAME
ModPerl::Global -- Perl API for manipulating special Perl lists
=head1 Synopsis
use ModPerl::Global ();
my $package = 'MyApache2::Package';
# make the END blocks of this package special
ModPerl::Global::special_list_register(END => $package);
# Execute all encoutered END blocks from this package now
ModPerl::Global::special_list_call( END => $package);
# delete the list of END blocks
ModPerl::Global::special_list_clear( END => $package);
=head1 Description
C<ModPerl::Global> provides an API to manipulate special perl
lists. At the moment only the C<END> blocks list is supported.
This API allows you to change the normal Perl behavior, and execute
special lists when you need to.
For example
C<L<ModPerl::RegistryCooker|docs::2.0::api::ModPerl::RegistryCooker>>
uses it to run C<END> blocks in the scripts at the end of each
request.
Before loading a module containing package C<$package>, you need to
register it, so the special blocks will be intercepted by mod_perl and
not given to
Perl. C<L<special_list_register|/C_special_list_register_>> does
that. Later on when you want to execute the special blocks,
C<L<special_list_call|/C_special_list_call_>> should be called. Unless
you want to call the list more than once, clear the list with
C<L<special_list_clear|/C_special_list_clear_>>.
=head1 API
C<ModPerl::Global> provides the following methods:
=head2 C<special_list_call>
Call the special list
$ok = special_list_call($key => $package);
=over 4
=item arg1: C<$key> ( string )
The name of the special list. At the moment only C<'END'> is
supported.
=item arg2: C<$package> ( string )
what package to special list is for
=item ret: C<$ok> ( boolean )
true value if C<$key> is known, false otherwise.
=item since: 2.0.00
=back
=head2 C<special_list_clear>
Clear the special list
$ok = special_list_clear($key => $package);
=over 4
=item arg1: C<$key> ( string )
The name of the special list. At the moment only C<'END'> is
supported.
=item arg2: C<$package> ( string )
what package to special list is for
=item ret: C<$ok> ( boolean )
true value if C<$key> is known, false otherwise.
=item since: 2.0.00
=back
=head2 C<special_list_register>
Register the special list
$ok = special_list_call($key => $package);
=over 4
=item arg1: C<$key> ( string )
The name of the special list. At the moment only C<'END'> is
supported.
=item arg2: C<$package> ( string )
what package to special list is for
=item ret: C<$ok> ( boolean )
true value if C<$key> is known, false otherwise.
=item since: 2.0.00
=back
Notice that you need to register the package before it is loaded. If
you register it after, Perl has already compiled the C<END> blocks and
there are no longer under your control.
=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
|