my $table = {
  INTEGER   => \&checkInteger,
  DATE      => \&checkDate,
  IPADDRESS => \&checkIpaddress,
  FOO       => \&checkFoo
};

if( defined $table->{uc $type} ) {
  $table->{uc $type}( $answer );
}