-
-use constant APACHE2 => $mod_perl::VERSION >= 1.99;
-
-if (APACHE2) {
- require Apache2;
- require Apache::RequestIO;
- require Apache::RequestRec;
- require Apache::RequestUtil;
- require APR::URI;
-}
-else { require Apache }
-require Apache::Request;
-
-sub get_request {
- my ( $self, $r ) = @_;
- $self->{ar} = Apache::Request->new($r);
-}
-
-sub parse_location {
- my $self = shift;
-
- # Reconstruct the request headers
- $self->headers_in(HTTP::Headers->new);
- my %headers = $self->{ar}->headers_in;
- for (keys %headers) {
- $self->headers_in->set($_, $headers{$_});
+use Maypole::Constants;
+
+__PACKAGE__->mk_accessors( qw( ar ) );
+
+BEGIN {
+ my $version;
+ eval 'use mod_perl2; $version = $mod_perl2::VERSION; ';
+ if ($@) {
+ use mod_perl;
+ $version = 0;
+ require Apache;
+ require Apache::Request;
+ } else {
+ require Apache2::RequestIO;
+ require Apache2::RequestRec;
+ require Apache2::RequestUtil;
+ require APR::URI;
+ require Apache2::Request;