summaryrefslogtreecommitdiff
path: root/cleopatre/application/spidnetsnmp/perl/ASN/ASN.pm
diff options
context:
space:
mode:
Diffstat (limited to 'cleopatre/application/spidnetsnmp/perl/ASN/ASN.pm')
-rw-r--r--cleopatre/application/spidnetsnmp/perl/ASN/ASN.pm161
1 files changed, 0 insertions, 161 deletions
diff --git a/cleopatre/application/spidnetsnmp/perl/ASN/ASN.pm b/cleopatre/application/spidnetsnmp/perl/ASN/ASN.pm
deleted file mode 100644
index b151f288c7..0000000000
--- a/cleopatre/application/spidnetsnmp/perl/ASN/ASN.pm
+++ /dev/null
@@ -1,161 +0,0 @@
-package NetSNMP::ASN;
-
-use strict;
-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.04021';
-
-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 = constant($constname, @_ ? $_[0] : 0);
- 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