blob: 272048cfe8b407e854fa404ed080a9243780c2ef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
package NetSNMP::ASN;
use strict;
use warnings;
use Carp;
require Exporter;
require DynaLoader;
use AutoLoader;
use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION $AUTOLOAD);
@ISA = qw(Exporter DynaLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# This allows declaration use NetSNMP::ASN ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
%EXPORT_TAGS = ( 'all' => [ qw(
ASN_APPLICATION
ASN_BIT_STR
ASN_BOOLEAN
ASN_COUNTER
ASN_COUNTER64
ASN_DOUBLE
ASN_FLOAT
ASN_GAUGE
ASN_INTEGER
ASN_INTEGER64
ASN_IPADDRESS
ASN_NULL
ASN_OBJECT_ID
ASN_OCTET_STR
ASN_OPAQUE
ASN_SEQUENCE
ASN_SET
ASN_TIMETICKS
ASN_UNSIGNED
ASN_UNSIGNED64
) ] );
@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
@EXPORT = qw(
ASN_APPLICATION
ASN_BIT_STR
ASN_BOOLEAN
ASN_COUNTER
ASN_COUNTER64
ASN_DOUBLE
ASN_FLOAT
ASN_GAUGE
ASN_INTEGER
ASN_INTEGER64
ASN_IPADDRESS
ASN_NULL
ASN_OBJECT_ID
ASN_OCTET_STR
ASN_OPAQUE
ASN_SEQUENCE
ASN_SET
ASN_TIMETICKS
ASN_UNSIGNED
ASN_UNSIGNED64
);
$VERSION = '5.0702';
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
# XS function. If a constant is not found then control is passed
# to the AUTOLOAD in AutoLoader.
my $constname;
($constname = $AUTOLOAD) =~ s/.*:://;
croak "& not defined" if $constname eq 'constant';
my $val;
($!, $val) = constant($constname);
if ($! != 0) {
if ($! =~ /Invalid/ || $!{EINVAL}) {
$AutoLoader::AUTOLOAD = $AUTOLOAD;
goto &AutoLoader::AUTOLOAD;
}
else {
croak "Your vendor has not defined NetSNMP::ASN macro $constname";
}
}
{
no strict 'refs';
# Fixed between 5.005_53 and 5.005_61
# if ($] >= 5.00561) {
# *$AUTOLOAD = sub () { $val };
# }
# else {
*$AUTOLOAD = sub { $val };
# }
}
goto &$AUTOLOAD;
}
bootstrap NetSNMP::ASN $VERSION;
# Preloaded methods go here.
# Autoload methods go after =cut, and are processed by the autosplit program.
1;
__END__
=head1 NAME
NetSNMP::ASN - Perl extension for SNMP ASN.1 types
=head1 SYNOPSIS
use NetSNMP::ASN qw(:all);
my $asn_int = ASN_INTEGER;
=head1 DESCRIPTION
The NetSNMP::ASN module provides the ASN.1 types for SNMP.
=head2 EXPORT
None by default.
=head2 Exportable constants
ASN_APPLICATION
ASN_BIT_STR
ASN_BOOLEAN
ASN_COUNTER
ASN_COUNTER64
ASN_DOUBLE
ASN_FLOAT
ASN_GAUGE
ASN_INTEGER
ASN_INTEGER64
ASN_IPADDRESS
ASN_NULL
ASN_OBJECT_ID
ASN_OCTET_STR
ASN_OPAQUE
ASN_SEQUENCE
ASN_SET
ASN_TIMETICKS
ASN_UNSIGNED
ASN_UNSIGNED64
=head1 AUTHOR
Wes Hardaker, E<lt>hardaker@users.sourceforge.netE<gt>
=head1 SEE ALSO
SNMP(3pm), NetSNMP::OID(3pm)
perl(1).
=cut
|