=pod

=head2 Chapter 4

=item My::PageBase/My::Page

=over to apache

 PerlModule Apache::SendFile Apache::EchoFile Apache::Footer

 <Location /files>
 PerlHandler Apache::SendFile
 SetHandler perl-script
 </Location>

 <Location /echo>
 PerlHandler Apache::EchoFile
 SetHandler perl-script
 </Location>

 <Location /footer>
 PerlHandler Apache::Footer
 SetHandler perl-script
 </Location>

 PerlModule Apache::ESSI
 <Files ~ "\.ehtml$">
   SetHandler  perl-script
   PerlHandler Apache::ESSI
   PerlSetVar  ESSIDefs conf/essi.defs
 </Files>
 AddType text/html .ehtml

 PerlModule Apache::NavBar
 <Location /navbar>
   SetHandler  perl-script
   PerlHandler Apache::NavBar
   PerlSetVar  NavConf conf/navigation.conf
 </Location>

 PerlModule My::Chain
 <Location /MyChain>
   SetHandler perl-script
   PerlHandler My::Chain
 </Location>

 PerlModule Apache::GoHome
 <Location /ora>
  SetHandler  perl-script
  PerlHandler Apache::GoHome
 </Location>
 
 PerlModule Apache::Hello2
 <Location /hello/friend>
  SetHandler  perl-script
  PerlHandler Apache::Hello2
 </Location>

 PerlModule Apache::RandPicture
 <Location /random/picture>
    SetHandler  perl-script
    PerlHandler Apache::RandPicture
    PerlSetVar  PictureDir   /icons
 </Location>

 PerlModule Apache::TreeBrowser
 <Location /tree>
 SetHandler perl-script
 PerlHandler Apache::TreeBrowser
 </Location>

 <Location /images> 
   SetHandler perl-script 
   PerlHandler Apache::Magick 
 </Location> 

 PerlModule Apache::Upcase Apache::Censor Apache::TestFilter
 <Location /Filter>
   SetHandler  perl-script
   PerlHandler Apache::Upcase Apache::Censor Apache::TestFilter
 </Location>

 PerlModule Apache::GZip
 <Location /compressed>
    SetHandler  perl-script
    PerlHandler Apache::GZip Apache::TestFilter
 </Location>

 PerlModule My::Page
 <Perl>
 $MyPage::Obj = My::Page->new(title => "OO what a night");
 </Perl>

 <Location /my>
 PerlHandler $MyPage::Obj->handler
 SetHandler perl-script
 </Location>

 PerlModule Apache::Crash Apache::Missing Apache::Carp
 <Location /crash>
 PerlHandler Apache::Crash
 SetHandler perl-script
 </Location>

 <Location /missing>
 PerlHandler Apache::Missing
 SetHandler perl-script
 </Location>

 <Location /carp>
 PerlHandler Apache::Carp
 SetHandler perl-script
 </Location>

=back