eliminate use vars
[imager.git] / lib / Imager / Regops.pm
index 1455c15..439fc26 100644 (file)
@@ -1,10 +1,11 @@
 # AUTOMATICALLY GENERATED BY regops.perl
 package Imager::Regops;
 # AUTOMATICALLY GENERATED BY regops.perl
 package Imager::Regops;
+use 5.006;
 use strict;
 require Exporter;
 use strict;
 require Exporter;
-use vars qw(@ISA @EXPORT @EXPORT_OK %Attr $MaxOperands $PackCode);
-@ISA = qw(Exporter);
-@EXPORT_OK = qw(%Attr $MaxOperands $PackCode);
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw(%Attr $MaxOperands $PackCode);
+our $VERSION = "1.000";
 
 use constant RBC_ADD => 0;
 use constant RBC_SUBTRACT => 1;
 
 use constant RBC_ADD => 0;
 use constant RBC_SUBTRACT => 1;
@@ -60,9 +61,9 @@ use constant RBC_EXP => 50;
 use constant RBC_DET => 51;
 use constant RBC_OP_COUNT => 52;
 
 use constant RBC_DET => 51;
 use constant RBC_OP_COUNT => 52;
 
-@EXPORT = qw(RBC_ADD RBC_SUBTRACT RBC_MULT RBC_DIV RBC_MOD RBC_POW RBC_UMINUS RBC_MULTP RBC_ADDP RBC_SUBTRACTP RBC_SIN RBC_COS RBC_ATAN2 RBC_SQRT RBC_DISTANCE RBC_GETP1 RBC_GETP2 RBC_GETP3 RBC_VALUE RBC_HUE RBC_SAT RBC_HSV RBC_RED RBC_GREEN RBC_BLUE RBC_RGB RBC_INT RBC_IF RBC_IFP RBC_LE RBC_LT RBC_GE RBC_GT RBC_EQ RBC_NE RBC_AND RBC_OR RBC_NOT RBC_ABS RBC_RET RBC_JUMP RBC_JUMPZ RBC_JUMPNZ RBC_SET RBC_SETP RBC_PRINT RBC_RGBA RBC_HSVA RBC_ALPHA RBC_LOG RBC_EXP RBC_DET RBC_OP_COUNT);
+our @EXPORT = qw(RBC_ADD RBC_SUBTRACT RBC_MULT RBC_DIV RBC_MOD RBC_POW RBC_UMINUS RBC_MULTP RBC_ADDP RBC_SUBTRACTP RBC_SIN RBC_COS RBC_ATAN2 RBC_SQRT RBC_DISTANCE RBC_GETP1 RBC_GETP2 RBC_GETP3 RBC_VALUE RBC_HUE RBC_SAT RBC_HSV RBC_RED RBC_GREEN RBC_BLUE RBC_RGB RBC_INT RBC_IF RBC_IFP RBC_LE RBC_LT RBC_GE RBC_GT RBC_EQ RBC_NE RBC_AND RBC_OR RBC_NOT RBC_ABS RBC_RET RBC_JUMP RBC_JUMPZ RBC_JUMPNZ RBC_SET RBC_SETP RBC_PRINT RBC_RGBA RBC_HSVA RBC_ALPHA RBC_LOG RBC_EXP RBC_DET RBC_OP_COUNT);
 
 
-%Attr =
+our %Attr =
   (
   'abs' =>
     {
   (
   'abs' =>
     {
@@ -489,8 +490,8 @@ use constant RBC_OP_COUNT => 52;
     'types' => 'p',
     },
   );
     'types' => 'p',
     },
   );
-$MaxOperands = 4;
-$PackCode = "i";
+our $MaxOperands = 4;
+our $PackCode = "i";
 1;
 
 __END__
 1;
 
 __END__