use warnings;
use parent qw/Exporter/;
-our $VERSION = "5999.000_001";
-
-use constant +{
- # Accepted
- AC => 0,
-
- # Internal server error
- ERR => -1,
-
- # All other errors
- WA => 1,
- NZX => 2,
- TLE => 3,
- OLE => 4,
- DIED => 5,
- REJ => 10,
+our $VERSION = '5999.000_004';
+
+use constant +{ ## no critic (Capitalization)
+ # Accepted
+ AC => 0,
+
+ # Internal server error
+ ERR => -1,
+
+ # All other errors
+ WA => 1,
+ NZX => 2,
+ TLE => 3,
+ OLE => 4,
+ DIED => 5,
+ REJ => 10,
};
our @EXPORT_OK = qw/AC ERR WA NZX TLE OLE DIED REJ/;