# CGI/Classic.pm

use strict;
use warnings;

{
  package CGI::Classic;

  use CGI;

  my $CGI;

  sub activate {
    $CGI = CGI->new;
    shift->dispatch->render;
  }

  sub param { shift; $CGI->param( @_ ) };

  sub dispatch { die 'subclass responsibility' }
  sub render   { die 'subclass responsibility' }
}

1;
__END__