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

##</code><code>##

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

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

##</code><code>##

our %EXPORT_TAGS = (
    ...
    types          => [
      qw( INTEGER INTEGER32 OCTET_STRING ...
    ...
);

Exporter::export_ok_tags( qw( ... types ... ) );

$EXPORT_TAGS{ALL} = [ @EXPORT_OK ];

## ASN.1 Basic Encoding Rules type definitions

sub INTEGER                  { 0x02 }  # INTEGER
sub INTEGER32                { 0x02 }  # Integer32           - SNMPv2c
sub OCTET_STRING             { 0x04 }  # OCTET STRING
...

##</code><code>##

use base qw( Exporter );

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

##</code><code>##

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

$EXPORT_TAGS{ALL} = [ @EXPORT_OK ];