my $src = Apache::src->new; my $v = $src->httpd_version;
returns the server version. And:
my $dir = $src->dir; -d $dir or die "can't stat $dir $!\n";
returns the top level directory where source files are located and then tests whether it can read it.
The main( ) method will return the location of httpd.h:
-e join "/", $src->main, "httpd.h" or die "can't stat httpd.h\n";
Other methods are available from this module.
Supplied with the mod_perl distribution. See the module manpage for more information.