File Coverage

blib/lib/SNMP/Insight/MIB/UCD.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package SNMP::Insight::MIB::UCD;
2              
3             #ABSTRACT: Support for data in UCD MIB
4              
5 2     2   1742 use Moose::Role;
  2         4  
  2         11  
6              
7 2     2   8071 use SNMP::Insight::Moose::MIB;
  2         2  
  2         15  
8 2     2   5447 use namespace::autoclean;
  2         3  
  2         13  
9              
10             our $VERSION = '0.001'; #TRIAL VERSION:
11              
12             with 'SNMP::Insight::MIB';
13              
14             # See http://www.net-snmp.org/docs/mibs/UCD-SNMP-MIB.txt
15              
16             # { enterprises 2021 }
17             mib_oid ".1.3.6.1.4.1.2021";
18             mib_name "UCD-SNMP-MIB";
19              
20             has_scalar memTotalSwap => ( oid => '4.3' );
21             has_scalar memAvailSwap => ( oid => '4.4' );
22             has_scalar memTotalReal => ( oid => '4.5' );
23             has_scalar memAvailReal => ( oid => '4.6' );
24              
25             has_table prTable => (
26             oid => '2',
27             index => 'prIndex',
28             columns => {
29             prIndex => 1,
30             prNames => 2,
31             prMin => 3,
32             prMax => 4,
33             prCount => 5,
34             }
35             );
36              
37             has_table dskTable => (
38             oid => '9',
39             index => 'dskIndex',
40             columns => {
41             dskIndex => 1,
42             dskPath => 2,
43             dskDevice => 3,
44             dskMinimum => 4,
45             dskMinPercent => 5,
46             dskTotal => 6,
47             dskAvail => 7,
48             dskUsed => 8,
49             dskPercent => 9,
50             dskPercentNode => 10
51             },
52             );
53              
54             1;
55              
56             # Local Variables:
57             # mode: cperl
58             # indent-tabs-mode: nil
59             # cperl-indent-level: 4
60             # cperl-indent-parens-as-block: t
61             # End:
62              
63             __END__
64              
65             =pod
66              
67             =head1 NAME
68              
69             SNMP::Insight::MIB::UCD - Support for data in UCD MIB
70              
71             =head1 VERSION
72              
73             version 0.001
74              
75             =head1 AUTHOR
76              
77             Gabriele Mambrini <g.mambrini@gmail.com>
78              
79             =head1 COPYRIGHT AND LICENSE
80              
81             This software is copyright (c) 2015 by Gabriele Mambrini.
82              
83             This is free software; you can redistribute it and/or modify it under
84             the same terms as the Perl 5 programming language system itself.
85              
86             =cut