fix for doc tests

This commit is contained in:
Oliver Gorwits
2018-01-28 19:55:28 +00:00
parent 83d00ee9c7
commit 04ca5793fa
2 changed files with 33 additions and 3 deletions

View File

@@ -501,6 +501,12 @@ SNMP::Info::Layer2::3Com - SNMP Interface to L2 3Com Switches
See documentation in L<SNMP::Info::Layer2::3Com> for details.
=item SNMP::Info::Layer2::Adtran
Subclass for Adtran devices.
See documentation in L<SNMP::Info::Layer2::Adtran> for details.
=item SNMP::Info::Layer2::Airespace
Subclass for Cisco (Airespace) wireless controllers.
@@ -724,6 +730,12 @@ This class covers Catalyst 6500s in native mode, hybrid mode. Catalyst
See documentation in L<SNMP::Info::Layer3::C6500> for details.
=item SNMP::Info::Layer3::Checkpoint
Subclass for Checkpoint devices
See documentation in L<SNMP::Info::Layer3::Checkpoint> for details.
=item SNMP::Info::Layer3::Cisco
This is a simple wrapper around layer 3 for IOS devices and the base layer 3
@@ -754,6 +766,12 @@ Subclass for Avaya/Nortel Contivity/VPN Routers.
See documentation in L<SNMP::Info::Layer3::Contivity> for details.
=item SNMP::Info::Layer3::DLink
Subclass for DLink devices.
See documentation in L<SNMP::Info::Layer3::DLink> for details.
=item SNMP::Info::Layer3::Dell
Subclass for Dell PowerConnect switches. D-Link, the IBM BladeCenter
@@ -931,6 +949,12 @@ Alcatel-Lucent SR Class.
See documentation in L<SNMP::Info::Layer3::Timetra> for details.
=item SNMP::Info::Layer3::VyOS
Subclass for VyOS routers.
See documentation in L<SNMP::Info::Layer3::VyOS> for details.
=item SNMP::Info::Layer3::VMware
Subclass for VMware ESXi hosts.
@@ -957,6 +981,12 @@ SNMP Interface to APC UPS devices
See documentation in L<SNMP::Info::Layer7::APC> for details.
=item SNMP::Info::Layer7::CiscoIPS
SNMP Interface to Cisco IPS devices
See documentation in L<SNMP::Info::Layer7::Cisco IPS> for details.
=item SNMP::Info::Layer7::Netscaler
SNMP Interface to Citrix Netscaler appliances

View File

@@ -15,7 +15,7 @@ plan qw(no_plan);
my %Items;
# Grab all the =item's from Info.pm
open (I,"blib/lib/SNMP/Info.pm") or fail("Can't open Info.pm");
open (I,"lib/SNMP/Info.pm") or fail("Can't open Info.pm");
while (<I>) {
next unless /^\s*=item\s*(\S+)/;
$Items{$1}++;
@@ -25,11 +25,11 @@ close I;
#warn "items : ",join(', ',keys %Items),"\n";
# Check that each package is represented in Info.pm docs
find({wanted => \&check_version, no_chdir => 1}, 'blib');
find({wanted => \&check_version, no_chdir => 1}, 'lib');
sub check_version {
# $_ is the full path to the file
return unless (m{blib/lib/}xms and m{\.pm \z}xms);
return unless (m{lib/}xms and m{\.pm \z}xms);
my $content = read_file($_);