4 BEGIN { if (eval { require mod_perl }) {
6 } else { Test::More->import(skip_all =>"mod_perl is not installed: $@") }
8 require_ok('Apache::MVC');
9 ok($Apache::MVC::VERSION, 'defines $VERSION');
13 # sets APACHE2 constant
14 # loads Apache::Request
15 # loads mod_perl2 modules if APACHE2
16 # otherwise, loads Apache
18 # ... sets 'ar' to new Apache::Request object
20 # ... sets path() to request URI - base URI
21 # ... calls parse_path
22 # ... calls parse_args
24 # ... calls _mod_perl_args(), to set params
25 # ... calls _mod_perl_args(), to set query
27 # ... sets get_request->content_type to r->content_type
28 # ... appends document_encoding() if content_type is text
29 # ... sets Content-Length header
30 # ... calls get_request->send_http_header unless APACHE2
31 # ... prints the request output
33 # ... catdir(document_root, location)
35 # ... returns a hash of args from get_request->param