- PBP compliance via Perl::Critic

- Use bare return to return failure
- No code before strictures are enabled
This commit is contained in:
Eric Miller
2008-07-09 00:32:47 +00:00
parent 1b85820314
commit 2c5301b676
68 changed files with 464 additions and 415 deletions

View File

@@ -28,9 +28,8 @@
# POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer2::Airespace;
$VERSION = '1.09';
use strict;
use strict;
use Exporter;
use SNMP::Info::Bridge;
use SNMP::Info::CDP;
@@ -41,6 +40,8 @@ use SNMP::Info::Airespace;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '1.09';
%MIBS = (
%SNMP::Info::MIBS,
%SNMP::Info::Bridge::MIBS,
@@ -80,7 +81,7 @@ sub vendor {
sub model {
my $airespace = shift;
my $model = $airespace->airespace_model();
return undef unless defined $model;
return unless defined $model;
return $model;
}