package Apache::PerlRunXS;

use strict;
use vars qw($Debug $VERSION);
use Apache::Constants qw(:common);

unless (defined $Apache::Registry::NameWithVirtualHost) {
    $Apache::Registry::NameWithVirtualHost = 1;
}

$Debug ||= 0;
my $Is_Win32 = $^O eq "MSWin32";

$VERSION = '0.03';

__PACKAGE__->mod_perl::boot($VERSION);

sub new {
    my($class, $r) = @_;
    return $r unless ref($r) eq "Apache";
    if(ref $r) {
	$r->request($r);
    }
    else {
	$r = Apache->request;
    }
    my $filename = $r->filename;
    $r->log_error("Apache::PerlRunXS->new for $filename in process $$")
	if $Debug && $Debug & 4;

    bless $r, $class;
}

1;

__END__

=head1 NAME

Apache::PerlRunXS - XS implementation of Apache::PerlRun/Apache::Registry

=head1 SYNOPSIS

 #in httpd.conf

 Alias /perl/ /perl/apache/scripts/ 
 PerlModule Apache::PerlRunXS

 <Location /perl>
 SetHandler perl-script
 PerlHandler Apache::RegistryXS
 Options +ExecCGI 
 #optional
 PerlSendHeader On
 ...
 </Location>

=head1 DESCRIPTION

This XS implementation of Apache::PerlRun and Apache::Registry will some day
replace the Perl versions.

=head1 SEE ALSO

perl(1), mod_perl(3), Apache::Registry(3)

=head1 AUTHOR

Doug MacEachern