File Coverage

blib/lib/SNMP/Insight/MIB/Cisco_VTP.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::Cisco_VTP;
2              
3             #ABSTRACT: Support for data in CISCO-VTP-MIB
4              
5 1     1   1170 use Moose::Role;
  1         3  
  1         8  
6              
7             our $VERSION = '0.002'; #TRIAL VERSION:
8              
9 1     1   4063 use SNMP::Insight::Moose::MIB;
  1         2  
  1         6  
10              
11 1     1   2498 use namespace::autoclean;
  1         2  
  1         7  
12             with 'SNMP::Insight::MIB';
13              
14             mib_oid "1.3.6.1.4.1.9.9.";
15              
16             mib_name "CISCO-VTP-MIB";
17              
18             has_scalar 'vtpVersion' => ( oid => '1.1.1', );
19              
20             has_scalar 'vtpMaxVlanStorage' => ( oid => '1.1.2', );
21              
22             # This table contains information on the VLANs which currently exist.
23             has_table 'vtpVlanTable' => (
24             oid => '1.3',
25             index => 'vtpVlanIndex',
26             columns => {
27             vtpVlanIndex => 1,
28             vtpVlanState => 2,
29             vtpVlanType => 3,
30             vtpVlanName => 4,
31             vtpVlanTypeExt => 17,
32             vtpVlanIfIndex => 18
33             },
34             );
35              
36             1;
37              
38             # Local Variables:
39             # mode: cperl
40             # indent-tabs-mode: nil
41             # cperl-indent-level: 4
42             # cperl-indent-parens-as-block: t
43             # End:
44              
45             __END__
46              
47             =pod
48              
49             =head1 NAME
50              
51             SNMP::Insight::MIB::Cisco_VTP - Support for data in CISCO-VTP-MIB
52              
53             =head1 VERSION
54              
55             version 0.002
56              
57             =head1 AUTHOR
58              
59             Gabriele Mambrini <g.mambrini@gmail.com>
60              
61             =head1 COPYRIGHT AND LICENSE
62              
63             This software is copyright (c) 2015 by Gabriele Mambrini.
64              
65             This is free software; you can redistribute it and/or modify it under
66             the same terms as the Perl 5 programming language system itself.
67              
68             =cut