You've already forked mariadb-columnstore-engine
mirror of
https://github.com/mariadb-corporation/mariadb-columnstore-engine.git
synced 2025-11-05 04:50:35 +03:00
164 lines
2.8 KiB
Perl
164 lines
2.8 KiB
Perl
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.2.1.2';
|
|
|
|
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 blah blah blah
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use NetSNMP::ASN;
|
|
blah blah blah
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Stub documentation for NetSNMP::ASN, created by h2xs. It looks like the
|
|
author of the extension was negligent enough to leave the stub
|
|
unedited.
|
|
|
|
Blah blah blah.
|
|
|
|
=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
|
|
|
|
A. U. Thor, a.u.thor@a.galaxy.far.far.away
|
|
|
|
=head1 SEE ALSO
|
|
|
|
perl(1).
|
|
|
|
=cut
|