Select Code to Download

  The render method uses the results from engine and template to
  process a selected template through Template Toolkit.

  render ($engine, $template)

 sub render {
  my $self = shift;
...
    or die $tt->error;  # passes Template::Exception upward
  $self->display($output);
 }

 sub template {
   '[% self.CGI.header %]This page intentionally left blank.';
 }

  Called when a page gains control, either at the beginning for a 
  response, or in the middle when switched for rendering.  Defaults to
+ 
  nothing.

 sub dispatch {
   my $self = shift;
   $self->param('rm') eq 'Webmail' and return 'Local::Page::Webmail' ;
   return 'Local::Page::Welcome';
 }

 sub activate {
  my $self = shift;
...
  };
  $self->error($@) if $@;       # failed something, go to safe mode
 }

   our $_mirror = __PACKAGE__->reflect; # for slots that aren't subs

 $_mirror->addSlot 
  ([qw(CGI FIELD autoload)] => sub { # must be reset in mod_perl 
     require CGI; 
     CGI->new; 
   });

 $_mirror->addSlot 
  ([qw(engine FIELD autoload)] => sub { 
...
     require Template; 
     Template->new or die "Creating tt: $Template::ERROR\n";
+ 
   });

 app_enter app_leave control_enter control_leave 
 render_enter render_leave respond_enter respond_leave

#!/usr/bin/perl 

...
warn $o->display('hi'); 

CGI::Prototype->activate;