1#@!#!123s

: / usr / share / perl5 / vendor_perl / Net / SNMP / Transport / IPv6 /
Filename : UDP.pm
back
# -*- 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]