package forms;

use strict;
use warnings;
use CGI;

sub new {
        my ($class) = @_;
        my $self = {_form => undef};

        bless $self,$class;
        return $self;
}


sub fetch {
        my ($self) = @_;
        $self->{_form} = new CGI;

        return $self->{_form};
}

1;