%PDF- %PDF-
Direktori : /usr/share/perl5/vendor_perl/Net/SNMP/Transport/IPv6/ |
Current File : //usr/share/perl5/vendor_perl/Net/SNMP/Transport/IPv6/UDP.pm |
# -*- mode: perl -*- # ============================================================================ package Net::SNMP::Transport::IPv6::UDP; # $Id: UDP.pm,v 3.0 2009/09/09 15:05:33 dtown Rel $ # Object that handles the UDP/IPv6 Transport Domain for the SNMP Engine. # Copyright (c) 2004-2009 David M. Town <dtown@cpan.org> # All rights reserved. # This program is free software; you may redistribute it and/or modify it # under the same terms as the Perl 5 programming language system itself. # ============================================================================ use strict; use Net::SNMP::Transport::IPv4::UDP qw( DOMAIN_UDPIPV6 DOMAIN_UDPIPV6Z ); ## Version of the Net::SNMP::Transport::UDP6 module our $VERSION = v3.0.0; ## Handle importing/exporting of symbols use base qw( Net::SNMP::Transport::IPv6 Net::SNMP::Transport::IPv4::UDP ); ## RFC 3411 - snmpEngineMaxMessageSize::=INTEGER (484..2147483647) sub MSG_SIZE_DEFAULT_UDP6 { 1452 } # Ethernet(1500) - IPv6(40) - UDP(8) # [public methods] ----------------------------------------------------------- sub domain { return DOMAIN_UDPIPV6; # transportDomainUdpIpv6 } sub type { return 'UDP/IPv6'; # udpIpv6(2) } # [private methods] ---------------------------------------------------------- sub _msg_size_default { return MSG_SIZE_DEFAULT_UDP6; } sub _tdomain { return $_[0]->_scope_id($_[1]) ? DOMAIN_UDPIPV6Z : DOMAIN_UDPIPV6; } # ============================================================================ 1; # [end Net::SNMP::Transport::IPv6::UDP]