1 package Apache::MVC::Base;
8 $self->{path} = $self->{ar}->uri;
9 my $loc = $self->{ar}->location;
10 no warnings 'uninitialized';
11 $self->{path} =~ s/^($loc)?\///;
18 $r->{ar}->content_type( $r->{content_type} );
19 $r->{ar}->headers_out->set( "Content-Length" => length $r->{output} );
20 $r->{ar}->send_http_header;
21 $r->{ar}->print( $r->{output} );
24 sub get_template_root {
26 $r->{ar}->document_root . "/" . $r->{ar}->location;
33 Apache::MVC::Base - Apache front-end base class
37 use base 'Apache::Maypole::Base';
41 The base class for the Apache and Apache2 front-ends.
45 Simon Cozens, C<simon@cpan.org>
46 Screwed up by Sebastian Riedel, C<sri@oook.de>
50 You may distribute this code under the same terms as Perl itself.