--- Convert-BER-XS/XS.pm 2019/04/20 15:39:13 1.29 +++ Convert-BER-XS/XS.pm 2019/04/20 15:46:57 1.30 @@ -584,12 +584,28 @@ =back +=head2 Example Profile + +The following creates a profile suitable for SNMP - it's exactly identical +to the C<$Convert::BER::XS::SNMP_PROFILE> profile. + + our $SNMP_PROFILE = new Convert::BER::XS::Profile; + + $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_IPADDRESS , BER_TYPE_IPADDRESS); + $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_COUNTER32 , BER_TYPE_INT); + $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_UNSIGNED32, BER_TYPE_INT); + $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_TIMETICKS , BER_TYPE_INT); + $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_OPAQUE , BER_TYPE_IPADDRESS); + $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_COUNTER64 , BER_TYPE_INT); + =cut our $DEFAULT_PROFILE = new Convert::BER::XS::Profile; -our $SNMP_PROFILE = new Convert::BER::XS::Profile; + +$DEFAULT_PROFILE->_set_default; # additional SNMP application types +our $SNMP_PROFILE = new Convert::BER::XS::Profile; $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_IPADDRESS , BER_TYPE_IPADDRESS); $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_COUNTER32 , BER_TYPE_INT); $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_UNSIGNED32, BER_TYPE_INT); @@ -597,8 +613,6 @@ $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_OPAQUE , BER_TYPE_IPADDRESS); $SNMP_PROFILE->set (ASN_APPLICATION, SNMP_COUNTER64 , BER_TYPE_INT); -$DEFAULT_PROFILE->_set_default; - 1; =head2 LIMITATIONS/NOTES