- PBP compliance via Perl::Critic

- Use bare return to return failure
- No code before strictures are enabled

Info/Layer3/Cisco.pm

@@ -2,6 +2,7 @@
 # $Id$
 #
 # Copyright (c) 2008 Max Baker
+# All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
 # modification, are permitted provided that the following conditions are met:
@@ -30,7 +31,6 @@
 package SNMP::Info::Layer3::Cisco;
 
 use strict;
-
 use Exporter;
 use SNMP::Info::CiscoVTP;
 use SNMP::Info::CDP;
@@ -42,8 +42,6 @@ use SNMP::Info::CiscoConfig;
 use SNMP::Info::CiscoPower;
 use SNMP::Info::Layer3;
 
-use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ;
-$VERSION = '1.09';
 @SNMP::Info::Layer3::Cisco::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CDP
                                     SNMP::Info::CiscoStats SNMP::Info::CiscoImage 
                                     SNMP::Info::CiscoRTT  SNMP::Info::CiscoQOS
@@ -52,6 +50,10 @@ $VERSION = '1.09';
                                     Exporter/;
 @SNMP::Info::Layer3::Cisco::EXPORT_OK = qw//;
 
+use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
+
+$VERSION = '1.09';
+
 %MIBS = (
             %SNMP::Info::Layer3::MIBS,
             %SNMP::Info::CiscoPower::MIBS,