Re^4: RFC: Class::CGI

[Belgarion]

Tying it into CGI::Application wouldn't be a problem. In your CGI::Application base class override cgiapp_get_query():

package My::CGI::Application;
use base 'CGI::Application';

use Class::CGI
    handlers => {
      customer_id => 'My::Customer',
      referral_id => 'My::Customer',
      sales_date => ['My::Date::Handler',
                      qw(sales_month sales_day sales_year)],
    };


sub cgiapp_get_query {
    my $self = shift;
    return Class::CGI->new;
}

1;