6 if (eval { require Apache2::RequestRec }) {
7 $ENV{MOD_PERL_API_VERSION} = 2;
9 } elsif (eval { require Apache::Request }) {
12 Test::More->import(skip_all =>"Neither Apache2::RequestRec nor Apache::Request is installed: $@");
16 require_ok('Apache::MVC');
17 ok($Apache::MVC::VERSION, 'defines $VERSION');
18 ok(Apache::MVC->can('ar'), 'defines an "ar" accessor');
23 # sets APACHE2 constant
24 # loads Apache::Request
25 # loads mod_perl2 modules if APACHE2
26 # otherwise, loads Apache
28 # ... sets 'ar' to new Apache::Request object
30 # ... sets path() to request URI - base URI
31 # ... calls parse_path
32 # ... calls parse_args
34 # ... calls _mod_perl_args(), to set params
35 # ... calls _mod_perl_args(), to set query
37 # ... sets get_request->content_type to r->content_type
38 # ... appends document_encoding() if content_type is text
39 # ... sets Content-Length header
40 # ... calls get_request->send_http_header unless APACHE2
41 # ... prints the request output
43 # ... catdir(document_root, location)
45 # ... returns a hash of args from get_request->param