package My::App;
  use base CGI::Prototype;
  sub handler {
    __PACKAGE__->activate;
  }

##</code><code>##

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

##</code><code>##

sub initialize_CGI {
  my $self = shift;
  $self->reflect->addSlot
    ([qw(CGI FIELD autoload)] => sub {
       require CGI;
       CGI::_reset_globals();
       CGI->new;
     });
}