%is_valid_type = map { $_ => 1 } (
                    @{$Net::SNMP::Message::EXPORT_TAGS{'types'}}
                 );

die("Bad type\n") unless $is_valid_type{$bah};
$bah = Net::SNMP::Message->$bah();