diff --git a/lib/SNMP/Info/Layer7/APC.pm b/lib/SNMP/Info/Layer7/APC.pm index 5bb76761..d3d03e04 100644 --- a/lib/SNMP/Info/Layer7/APC.pm +++ b/lib/SNMP/Info/Layer7/APC.pm @@ -63,7 +63,7 @@ $VERSION = '3.64'; %FUNCS = ( %SNMP::Info::Layer7::FUNCS, - + ); %MUNGE = ( @@ -115,14 +115,14 @@ Jeroen van Ingen =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $apc = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $apc->class(); @@ -130,11 +130,11 @@ Jeroen van Ingen =head1 DESCRIPTION -Provides abstraction to the configuration information obtainable from a -APC UPS via SNMP. +Provides abstraction to the configuration information obtainable from a +APC UPS via SNMP. For speed or debugging purposes you can call the subclass directly, but not -after determining a more specific class using the method above. +after determining a more specific class using the method above. my $apc = new SNMP::Info::Layer7::APC(...); @@ -235,6 +235,6 @@ See documentation in L for details. These are methods that provide SNMP set functionality for overridden methods or provide a simpler interface to complex set operations. See L for general information on set -operations. +operations. =cut diff --git a/lib/SNMP/Info/Layer7/CiscoIPS.pm b/lib/SNMP/Info/Layer7/CiscoIPS.pm index 41ade60f..90797a2e 100644 --- a/lib/SNMP/Info/Layer7/CiscoIPS.pm +++ b/lib/SNMP/Info/Layer7/CiscoIPS.pm @@ -68,10 +68,10 @@ my ($serial, $descr, $model); sub _fetch_info { my $self = shift; foreach my $id ( keys %{ $self->e_id() } ){ - + if ( $self->e_name->{$id} =~ m/^Module$/ and - $self->e_model->{$id} =~ m/IPS/ + $self->e_model->{$id} =~ m/IPS/ ) { $serial = $self->e_serial->{$id}; $descr = $self->e_descr->{$id}; @@ -79,7 +79,7 @@ sub _fetch_info { } } - + } sub layers { @@ -113,14 +113,14 @@ sub productname { sub b_mac { my ( $self ) = shift; - + foreach my $mac ( values %{$self->i_mac()} ){ next unless defined $mac; next unless $mac =~ m/^e4:d3:f1/; return $mac; } - + return ''; } @@ -162,7 +162,7 @@ Moe Kraus =head1 DESCRIPTION -Subclass for Cisco IPS Module +Subclass for Cisco IPS Module =head2 Inherited Classes diff --git a/lib/SNMP/Info/Layer7/Gigamon.pm b/lib/SNMP/Info/Layer7/Gigamon.pm index 5edf4bab..f9f76a66 100644 --- a/lib/SNMP/Info/Layer7/Gigamon.pm +++ b/lib/SNMP/Info/Layer7/Gigamon.pm @@ -87,14 +87,14 @@ Eric Miller =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $g = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $g->class(); diff --git a/lib/SNMP/Info/Layer7/Liebert.pm b/lib/SNMP/Info/Layer7/Liebert.pm index bc9f245d..403c7706 100644 --- a/lib/SNMP/Info/Layer7/Liebert.pm +++ b/lib/SNMP/Info/Layer7/Liebert.pm @@ -84,14 +84,14 @@ Netdisco Developers =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $liebert = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myhub', Community => 'public', Version => 1 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $liebert->class(); diff --git a/lib/SNMP/Info/Layer7/Neoteris.pm b/lib/SNMP/Info/Layer7/Neoteris.pm index 8ea40813..f945f2cb 100644 --- a/lib/SNMP/Info/Layer7/Neoteris.pm +++ b/lib/SNMP/Info/Layer7/Neoteris.pm @@ -81,14 +81,14 @@ Eric Miller =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $neoteris = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $neoteris->class(); diff --git a/lib/SNMP/Info/Layer7/Netscaler.pm b/lib/SNMP/Info/Layer7/Netscaler.pm index 15425966..a46dfe33 100644 --- a/lib/SNMP/Info/Layer7/Netscaler.pm +++ b/lib/SNMP/Info/Layer7/Netscaler.pm @@ -80,7 +80,7 @@ sub serial { sub model { my $ns = shift; my $desc = $ns->sys_hw_desc() || ''; - + $desc =~ s/^.+\bNS//i; return $desc; @@ -121,14 +121,14 @@ Eric Miller =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $ns = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $ns->class();