package Extranet::Test;

use strict;
use warnings;
use Apache2::Const qw(OK);
use base 'CGI::Prototype';
use Data::Dumper;

sub handler {

    my $r = shift;

    $r->content_type('text/html');

    my $q = CGI->new();
    print Dumper $q;

    Extranet::Test->activate;

    my $x = CGI->new();
    print Dumper $x;

    return OK;

}

# dummy call to CGI object
sub app_enter { my $self = shift; $self->CGI; }

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

sub template {
    \ '
<form method=post>
<input type=text name=foo value=bar>
<input type=text name=baz value=bax>
<input type=submit>
</form>
        ';
}

1;