X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FApache%2FMVC.pm;h=902c485c77df242c48c6361b2e1d519221a55a8b;hb=5b80466d0655d5cbdc3b65aca0de506de32e9499;hp=3294df0490a32d579d0bc224f09be96efdc20056;hpb=9b27a09c3eefdad91ae3da125ea5dc71d08ed662;p=maypole.git diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm index 3294df0..902c485 100644 --- a/lib/Apache/MVC.pm +++ b/lib/Apache/MVC.pm @@ -6,9 +6,9 @@ use warnings; use base 'Maypole'; use mod_perl; -use constant APACHE2 => $mod_perl::VERSION >= 1.99; +use constant APACHE2 => $mod_perl::VERSION >= 1.99; -if ( APACHE2 ) { +if (APACHE2) { require Apache2; require Apache::RequestRec; require Apache::RequestUtil; @@ -42,7 +42,8 @@ sub parse_args { sub send_output { my $r = shift; - $r->{ar}->content_type( $r->{content_type}."; charset=".$r->{document_encoding} ); + $r->{ar}->content_type( + $r->{content_type} . "; encoding=" . $r->{document_encoding} ); $r->{ar}->headers_out->set( "Content-Length" => length $r->{output} ); APACHE2 || $r->{ar}->send_http_header; $r->{ar}->print( $r->{output} ); @@ -74,8 +75,8 @@ Apache::MVC - Apache front-end to Maypole package BeerDB; use base 'Apache::MVC'; BeerDB->setup("dbi:mysql:beerdb"); - BeerDB->config->{uri_base} = "http://your.site/"; - BeerDB->config->{display_tables} = [qw[beer brewery pub style]]; + BeerDB->config->uri_base("http://your.site/"); + BeerDB->config->display_tables([qw[beer brewery pub style]]); # Now set up your database: # has-a relationships # untaint columns @@ -152,6 +153,25 @@ C commands; for instance, a list of breweries, go to For more information about how the system works and how to extend it, see L. +=head1 Implementation + +This class overrides a set of methods in the base Maypole class to provide it's +functionality. See L for these: + +=over + +=item get_request + +=item get_template_root + +=item parse_args + +=item parse_location + +=item send_output + +=back + =head1 AUTHOR Simon Cozens, C