use Class::CGI
	handlers => {
		invoice_date => 'My::Date::Handler',
		sales_date   => 'My::Date::Handler',
	};


##</code><code>##

package My::Date::Handler;

use Carp;
use My::Date;

sub new {
	my $class = shift;
	my ( $cgi, $param_name ) = @_;

	$param_name =~ s/_date\z//
		or croak "Profile name expected to end in '_date': $param_name";

	my %date =
		map { $_ => scalar $cgi->raw_param( $param_name . '_' . $_ ) }
		qw( month day year );

	return My::Date->new( %date );
}

1;