Select Code to Download

use Net::SNMP::PDU qw( :ALL !DEBUG_INFO );

use base qw( Net::SNMP::Message );

...
{
   return Net::SNMP::Message->export_to_level(1, @_);
}

our %EXPORT_TAGS = (
    ...
...
sub INTEGER32                { 0x02 }  # Integer32           - SNMPv2c
sub OCTET_STRING             { 0x04 }  # OCTET STRING
...

use base qw( Exporter );

our @EXPORT = qw(
   INTEGER INTEGER32 OCTET_STRING ...
);

our %EXPORT_TAGS = (
   asn1        => [
...
Exporter::export_ok_tags( qw( asn1 debug generictrap snmp translate ) 
+);

$EXPORT_TAGS{ALL} = [ @EXPORT_OK ];