← Back to branch summary

~ubuntu-branches/ubuntu/trusty/net-snmp/trusty

« back to all changes in this revision

Viewing changes to perl/agent/default_store/default_store.pm

  • Committer: Bazaar Package Importer
  • Author(s): Martin Pitt
  • Date: 2004-09-13 12:06:21 UTC
  • Revision ID: james.westby@ubuntu.com-20040913120621-g952ntonlleihcvm
Tags: upstream-5.1.1
Import upstream version 5.1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
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 = '5.1.1';
 
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