userapps/opensource/net-snmp/perl/agent/default_store/default_store.pm

   1 package NetSNMP::agent::default_store;
   2
   3 use strict;
   4 use Carp;
   5
   6 require Exporter;
   7 require DynaLoader;
   8 use AutoLoader;
   9
  10 use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION $AUTOLOAD);
  11
  12 @ISA = qw(Exporter DynaLoader);
  13
  14 # Items to export into callers namespace by default. Note: do not export
  15 # names by default without a very good reason. Use EXPORT_OK instead.
  16 # Do not simply export all your public functions/methods/constants.
  17
  18 # This allows declaration       use NetSNMP::agent::default_store ':all';
  19 # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
  20 # will save memory.
  21 %EXPORT_TAGS = ( 'all' => [ qw(
  22                                    NETSNMP_DS_AGENT_VERBOSE
  23                                    NETSNMP_DS_AGENT_ROLE
  24                                    NETSNMP_DS_AGENT_NO_ROOT_ACCESS
  25                                    NETSNMP_DS_AGENT_AGENTX_MASTER
  26                                    NETSNMP_DS_AGENT_QUIT_IMMEDIATELY
  27                                    NETSNMP_DS_AGENT_DISABLE_PERL
  28                                    NETSNMP_DS_AGENT_PROGNAME
  29                                    NETSNMP_DS_AGENT_X_SOCKET
  30                                    NETSNMP_DS_AGENT_PORTS
  31                                    NETSNMP_DS_AGENT_INTERNAL_SECNAME
  32                                    NETSNMP_DS_AGENT_PERL_INIT_FILE
  33                                    NETSNMP_DS_AGENT_FLAGS
  34                                    NETSNMP_DS_AGENT_USERID
  35                                    NETSNMP_DS_AGENT_GROUPID
  36                                    NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL
  37 ) ] );
  38
  39 @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
  40
  41 @EXPORT = qw(
  42                                    NETSNMP_DS_AGENT_VERBOSE
  43                                    NETSNMP_DS_AGENT_ROLE
  44                                    NETSNMP_DS_AGENT_NO_ROOT_ACCESS
  45                                    NETSNMP_DS_AGENT_AGENTX_MASTER
  46                                    NETSNMP_DS_AGENT_QUIT_IMMEDIATELY
  47                                    NETSNMP_DS_AGENT_DISABLE_PERL
  48                                    NETSNMP_DS_AGENT_PROGNAME
  49                                    NETSNMP_DS_AGENT_X_SOCKET
  50                                    NETSNMP_DS_AGENT_PORTS
  51                                    NETSNMP_DS_AGENT_INTERNAL_SECNAME
  52                                    NETSNMP_DS_AGENT_PERL_INIT_FILE
  53                                    NETSNMP_DS_AGENT_FLAGS
  54                                    NETSNMP_DS_AGENT_USERID
  55                                    NETSNMP_DS_AGENT_GROUPID
  56                                    NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL
  57 );
  58 $VERSION = '0.01';
  59
  60 sub AUTOLOAD {
  61     # This AUTOLOAD is used to 'autoload' constants from the constant()
  62     # XS function.  If a constant is not found then control is passed
  63     # to the AUTOLOAD in AutoLoader.
  64
  65     my $constname;
  66     ($constname = $AUTOLOAD) =~ s/.*:://;
  67     croak "& not defined" if $constname eq 'constant';
  68     my $val = constant($constname, @_ ? $_[0] : 0);
  69     if ($! != 0) {
  70         if ($! =~ /Invalid/ || $!{EINVAL}) {
  71             $AutoLoader::AUTOLOAD = $AUTOLOAD;
  72             goto &AutoLoader::AUTOLOAD;
  73         }
  74         else {
  75             croak "Your vendor has not defined NetSNMP::agent::default_store macro $constname";
  76         }
  77     }
  78     {
  79         no strict 'refs';
  80         # Fixed between 5.005_53 and 5.005_61
  81 #       if ($] >= 5.00561) {
  82 #           *$AUTOLOAD = sub () { $val };
  83 #       }
  84 #       else {
  85             *$AUTOLOAD = sub { $val };
  86 #       }
  87     }
  88     goto &$AUTOLOAD;
  89 }
  90
  91 bootstrap NetSNMP::agent::default_store $VERSION;
  92
  93 # Preloaded methods go here.
  94
  95 # Autoload methods go after =cut, and are processed by the autosplit program.
  96
  97 1;
  98 __END__
  99 # Below is stub documentation for your module. You better edit it!
 100
 101 =head1 NAME
 102
 103 NetSNMP::agent::default_store - Perl extension for blah blah blah
 104
 105 =head1 SYNOPSIS
 106
 107   use NetSNMP::agent::default_store;
 108   blah blah blah
 109
 110 =head1 DESCRIPTION
 111
 112 Stub documentation for NetSNMP::agent::default_store, created by h2xs. It looks like the
 113 author of the extension was negligent enough to leave the stub
 114 unedited.
 115
 116 Blah blah blah.
 117
 118 =head2 EXPORT
 119
 120 None by default.
 121
 122 =head2 Exportable constants
 123
 124                                    NETSNMP_DS_AGENT_VERBOSE
 125                                    NETSNMP_DS_AGENT_ROLE
 126                                    NETSNMP_DS_AGENT_NO_ROOT_ACCESS
 127                                    NETSNMP_DS_AGENT_AGENTX_MASTER
 128                                    NETSNMP_DS_AGENT_QUIT_IMMEDIATELY
 129                                    NETSNMP_DS_AGENT_DISABLE_PERL
 130                                    NETSNMP_DS_AGENT_PROGNAME
 131                                    NETSNMP_DS_AGENT_X_SOCKET
 132                                    NETSNMP_DS_AGENT_PORTS
 133                                    NETSNMP_DS_AGENT_INTERNAL_SECNAME
 134                                    NETSNMP_DS_AGENT_PERL_INIT_FILE
 135                                    NETSNMP_DS_AGENT_FLAGS
 136                                    NETSNMP_DS_AGENT_USERID
 137                                    NETSNMP_DS_AGENT_GROUPID
 138                                    NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL
 139
 140
 141   DS_AGENT_AGENTX_MASTER
 142   DS_AGENT_AGENTX_PING_INTERVAL
 143   DS_AGENT_FLAGS
 144   DS_AGENT_GROUPID
 145   DS_AGENT_H
 146   DS_AGENT_INTERNAL_SECNAME
 147   DS_AGENT_NO_ROOT_ACCESS
 148   DS_AGENT_PORTS
 149   DS_AGENT_PROGNAME
 150   DS_AGENT_ROLE
 151   DS_AGENT_USERID
 152   DS_AGENT_VERBOSE
 153   DS_AGENT_X_SOCKET
 154
 155
 156 =head1 AUTHOR
 157
 158 A. U. Thor, a.u.thor@a.galaxy.far.far.away
 159
 160 =head1 SEE ALSO
 161
 162 perl(1).
 163
 164 =cut