- PBP compliance via Perl::Critic

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

Info/CiscoQOS.pm

@@ -2,7 +2,6 @@
 # $Id$
 #
 # Copyright (c) 2005 Alexander Hartmaier
-#
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -30,10 +29,8 @@
 # POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::CiscoQOS;
-$VERSION = '1.09';
 
 use strict;
-
 use Exporter;
 use SNMP::Info;
 
@@ -42,6 +39,8 @@ use SNMP::Info;
 
 use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
 
+$VERSION = '1.09';
+
 %MIBS    = (
             'CISCO-CLASS-BASED-QOS-MIB'      => 'cbQosIfIndex',
            );