package CGI::Single;
our @ISA;
@ISA = ('CGI');

my $instance;
sub instance {
  defined $instance or $instance = new CGI;
  $instance;
}
1;

##</code><code>##

package CGI::Single;
our @ISA;
@ISA = qw(CGI Class::Singleton);
1;