gozer 2004/09/13 15:36:44
Modified: src/docs/2.0/api/Apache Module.pod
src/docs/2.0/user/config custom.pod
Log:
Apache::Module top_module() and get_config() changed from class
methods to regular subroutines
Revision Changes Path
1.19 +6 -6 modperl-docs/src/docs/2.0/api/Apache/Module.pod
Index: Module.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/2.0/api/Apache/Module.pod,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- Module.pod 13 Sep 2004 22:13:05 -0000 1.18
+++ Module.pod 13 Sep 2004 22:36:44 -0000 1.19
@@ -10,7 +10,7 @@
use Apache::Module ();
# iterate over the whole module list
- for (my $modp = Apache::Module->top_module; $modp; $modp = $modp->next) {
+ for (my $modp = Apache::Module::top_module(); $modp; $modp = $modp->next) {
my $name = $modp->name;
my $index = $modp->module_index;
my $version = $modp->version;
@@ -27,7 +27,7 @@
# access module configuration from a directive
sub MyDirective {
my ($self, $parms, $args) = @_;
- my $srv_cfg = Apache::Module->get_config($self, $parms->server);
+ my $srv_cfg = Apache::Module::get_config($self, $parms->server);
[...]
}
@@ -97,8 +97,8 @@
Retrieve a module's configuration. Used by configuration directives.
- $cfg = Apache::Module->get_config($class, $server, $dir_config);
- $cfg = Apache::Module->get_config($class, $server);
+ $cfg = Apache::Module::get_config($class, $server, $dir_config);
+ $cfg = Apache::Module::get_config($class, $server);
$cfg = $self->get_config($server, $dir_config);
$cfg = $self->get_config($server);
@@ -351,13 +351,13 @@
Returns the first module in the module list. Usefull to start a
module iteration.
- $ret = Apache::Module->top_module();
+ $module = Apache::Module::top_module();
=over 4
=item obj: C<Apache::Module> ( class name )
-=item ret: C<$ret>
+=item ret: C<$module>
( C<L<Apache::Module object|docs::2.0::api::Apache::Module>> )
=item since: 1.99_12
1.11 +6 -6 modperl-docs/src/docs/2.0/user/config/custom.pod
Index: custom.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/2.0/user/config/custom.pod,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- custom.pod 12 Jul 2004 23:13:22 -0000 1.10
+++ custom.pod 13 Sep 2004 22:36:44 -0000 1.11
@@ -743,7 +743,7 @@
use Apache::Module ();
...
- my $srv_cfg = Apache::Module->get_config('MyApache::MyParameters', $s);
+ my $srv_cfg = Apache::Module::get_config('MyApache::MyParameters', $s);
print $srv_cfg->{name};
If a request is made to a resource inside a virtual host, C<$srv_cfg>
@@ -755,7 +755,7 @@
use Apache::ServerUtil ();
...
if ($s->is_virtual) {
- my $base_srv_cfg = Apache::Module->get_config('MyApache::MyParameters',
+ my $base_srv_cfg = Apache::Module::get_config('MyApache::MyParameters',
Apache->server);
print $base_srv_cfg->{name};
}
@@ -823,7 +823,7 @@
use Apache::Module ();
...
- my $dir_cfg = Apache::Module->get_config('MyApache::MyParameters',
+ my $dir_cfg = Apache::Module::get_config('MyApache::MyParameters',
$s, $r->per_dir_config);
print $dir_cfg->{foo};
@@ -890,7 +890,7 @@
my($key, $self, $parms, $arg) = @_;
$self->{$key} = $arg;
unless ($parms->path) {
- my $srv_cfg = Apache::Module->get_config($self,
+ my $srv_cfg = Apache::Module::get_config($self,
$parms->server);
$srv_cfg->{$key} = $arg;
}
@@ -900,7 +900,7 @@
my($key, $self, $parms, $arg) = @_;
push @{ $self->{$key} }, $arg;
unless ($parms->path) {
- my $srv_cfg = Apache::Module->get_config($self,
+ my $srv_cfg = Apache::Module::get_config($self,
$parms->server);
push @{ $srv_cfg->{$key} }, $arg;
}
@@ -1064,7 +1064,7 @@
use Apache::Const -compile => qw(OK);
sub get_config {
- Apache::Module->get_config('MyApache::CustomDirectives', @_);
+ Apache::Module::get_config('MyApache::CustomDirectives', @_);
}
sub handler {
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
