eliminate use vars
authorTony Cook <tony@develop-help.com>
Sat, 13 Jun 2020 06:25:47 +0000 (16:25 +1000)
committerTony Cook <tony@develop-help.com>
Sat, 13 Jun 2020 06:25:47 +0000 (16:25 +1000)
44 files changed:
CountColor/CountColor.pm
DynTest/DynTest.pm
FT2/FT2.pm
Flines/Flines.pm
GIF/GIF.pm
ICO/ICO.pm
ICO/lib/Imager/File/CUR.pm
Imager.pm
JPEG/JPEG.pm
MANIFEST
Mandelbrot/Mandelbrot.pm
PNG/PNG.pm
SGI/SGI.pm
T1/T1.pm
TIFF/TIFF.pm
W32/W32.pm
W32/lib/Imager/Font/Win32.pm
lib/Imager/Color.pm
lib/Imager/Color/Float.pm
lib/Imager/Color/Table.pm
lib/Imager/Expr.pm
lib/Imager/Expr/Assem.pm
lib/Imager/ExtUtils.pm
lib/Imager/Fill.pm
lib/Imager/Font.pm
lib/Imager/Font/BBox.pm
lib/Imager/Font/FreeType2.pm
lib/Imager/Font/Image.pm
lib/Imager/Font/Test.pm
lib/Imager/Font/Truetype.pm
lib/Imager/Font/Type1.pm
lib/Imager/Font/Wrap.pm
lib/Imager/Fountain.pm
lib/Imager/Matrix2d.pm
lib/Imager/Preprocess.pm
lib/Imager/Probe.pm
lib/Imager/Regops.pm
lib/Imager/Test.pm
lib/Imager/Transform.pm
regops.perl
spot.perl
t/GoodTestFont.pm
t/Pod/Coverage/Imager.pm
t/t1000lib/Imager/File/BAD.pm

index 6d37af24515c8b078ba73cfdcf38514e0f575dbf..2e301164c9be273e4d7e02dbfa91ddb26ab5c063 100644 (file)
@@ -1,14 +1,14 @@
 package Imager::CountColor;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA @EXPORT_OK);
 require Exporter;
-@EXPORT_OK = 'count_color';
+our @EXPORT_OK = 'count_color';
 
 BEGIN {
-  $VERSION = "0.02";
-  @ISA = qw(Exporter);
-  
+  our $VERSION = "0.03";
+  our @ISA = qw(Exporter);
+
   require XSLoader;
   XSLoader::load('Imager::CountColor', $VERSION);
 }
index cf795f15ed9da444eb3f8698b867701c8ec98274..b628f06ec29fb9f1c98516c32e0f854f42e90db6 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Filter::DynTest;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.02";
+  our $VERSION = "0.03";
   
   require XSLoader;
   XSLoader::load('Imager::Filter::DynTest', $VERSION);
index aba52bb06d0c31548443b9217b0614d696f67472..614b6ee924f4564d1a3dc8e92bd8a03369ec3746 100644 (file)
@@ -1,9 +1,11 @@
 package Imager::Font::FT2;
+use 5.006;
 use strict;
 use Imager;
 use Scalar::Util ();
-use vars qw($VERSION @ISA);
-@ISA = qw(Imager::Font);
+our @ISA = qw(Imager::Font);
+
+our $VERSION;
 
 BEGIN {
   $VERSION = "0.98";
index 9b7ab04ea7a00a39ad088ff66cbcd6b8d1259476..e459d3e027c8cab306bac46c782b0e8f477c93e8 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Filter::Flines;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.03";
+  our $VERSION = "0.04";
   
   require XSLoader;
   XSLoader::load('Imager::Filter::Flines', $VERSION);
index f5646a066081b982c325ff3dcb301d59979f0530..fd06301c07542b8a2db55436d2bdf00c04fd56c8 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::GIF;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.96";
+  our $VERSION = "0.96";
 
   require XSLoader;
   XSLoader::load('Imager::File::GIF', $VERSION);
index c560a57fd8785f0d4a3cbaeb0bdbcf5da609700b..aaa18de5245faf6c5956d9125768d1208d2ae637 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::ICO;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.06";
+  our $VERSION = "0.07";
   
   require XSLoader;
   XSLoader::load('Imager::File::ICO', $VERSION);
index 7c3570c729febe8f9c6418d75ddd57c7d600c142..a035b9ae7e30e8dd692796c4e51ae94eab84cb94 100644 (file)
@@ -1,5 +1,7 @@
 package Imager::File::CUR;
+use 5.006;
 use strict;
+our $VERSION = "1.000";
 
 # all the work is done by Imager::File::ICO
 use Imager::File::ICO;
index 430e263550d97646224d59c54ecf773128a84214..89202d7ca8c291683a489b0484f03fefcc25cd5f 100644 (file)
--- a/Imager.pm
+++ b/Imager.pm
@@ -1,14 +1,16 @@
 package Imager;
+use 5.006;
 
 use strict;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS %formats $DEBUG %filters %DSOs $ERRSTR %OPCODES $I2P $FORMATGUESS $warn_obsolete);
 use IO::File;
 use Scalar::Util;
 use Imager::Color;
 use Imager::Font;
 use Config;
 
-@EXPORT_OK = qw(
+our $ERRSTR;
+
+our @EXPORT_OK = qw(
                init
                init_log
                DSO_open
@@ -89,10 +91,10 @@ use Config;
                 NCF
 );
 
-@EXPORT=qw(
+our @EXPORT=qw(
          );
 
-%EXPORT_TAGS=
+our %EXPORT_TAGS=
   (handy => [qw(
                newfont
                newcolor
@@ -138,11 +140,13 @@ $combine_types{sat}  = $combine_types{saturation};
 # this will be used to store global defaults at some point
 my %defaults;
 
+our $VERSION;
+
 BEGIN {
   require Exporter;
   my $ex_version = eval $Exporter::VERSION;
   if ($ex_version < 5.57) {
-    @ISA = qw(Exporter);
+    our @ISA = qw(Exporter);
   }
   $VERSION = '1.011';
   require XSLoader;
@@ -161,8 +165,17 @@ my %format_classes =
    t1 => "Imager::Font::T1",
   );
 
+our %formats;
+
 tie %formats, "Imager::FORMATS", \%formats_low, \%format_classes;
 
+our %filters;
+
+our $DEBUG;
+our %OPCODES;
+our $FORMATGUESS;
+our $warn_obsolete;
+
 BEGIN {
   for(i_list_formats()) { $formats_low{$_}++; }
 
@@ -526,7 +539,9 @@ END {
   }
 }
 
-# Load a filter plugin 
+# Load a filter plugin
+
+our %DSOs;
 
 sub load_plugin {
   my ($filename)=@_;
@@ -2425,6 +2440,8 @@ sub scaleY {
 # NOTE - should make a utility function to check transforms for
 # stack overruns
 
+our $I2P;
+
 sub transform {
   my $self=shift;
   my %opts=@_;
index 11171a9d9aa723218940d9864fdb45484ab1b689..e1c81491e2d86f0d62b0d79cc18ed030a82619b0 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::JPEG;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.94";
+  our $VERSION = "0.94";
 
   require XSLoader;
   XSLoader::load('Imager::File::JPEG', $VERSION);
index 64f113371a3c67d94f7e022d72c8da94b78a3da0..a2f20f48cd675a0d94e63891c9cf09de4862ae2e 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -385,6 +385,7 @@ t/950-kwalitee/040-strict.t Check use strict is usede
 t/950-kwalitee/050-meta.t      Check META.yml is valid
 t/950-kwalitee/060-podstruct.t
 t/950-kwalitee/070-mymeta.t
+t/950-kwalitee/080-nousevars.t Check various standards
 t/GoodTestFont.pm              A dummy (hardly implemented) font driver.
 t/Pod/Coverage/Imager.pm
 t/t1000lib/Imager/File/BAD.pm  Test failing to load a file handler
index 2480f62d4fecf40e36c8fbc85433df6e1c3ba79c..081d7de71e77f022665b5d1bcad8dcec76b26fe5 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Filter::Mandelbrot;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.04";
+  our $VERSION = "0.05";
   
   require XSLoader;
   XSLoader::load('Imager::Filter::Mandelbrot', $VERSION);
index 4ad6edd8a9d04afa60925e848dc7767887e04e34..e1e3d17e677aa0c45a88a0f1434a814cf5b5caba 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::PNG;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.95";
+  our $VERSION = "0.95";
 
   require XSLoader;
   XSLoader::load('Imager::File::PNG', $VERSION);
index b033b2dd8e13efdf3152dfc2d52bd04cc28656b6..e7975d9c2dd88b5e9f36b2281196257df7a58aee 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::SGI;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.04";
+  our $VERSION = "0.05";
   
   require XSLoader;
   XSLoader::load('Imager::File::SGI', $VERSION);
index 8c1d764a73771c2958b1dd4abde2c4d3d71c723b..9fca037f929f23cd30c4bdffbc6422a860b62e69 100644 (file)
--- a/T1/T1.pm
+++ b/T1/T1.pm
@@ -1,12 +1,12 @@
 package Imager::Font::T1;
+use 5.006;
 use strict;
 use Imager::Color;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Imager::Font);
+our @ISA = qw(Imager::Font);
 use Scalar::Util ();
 
 BEGIN {
-  $VERSION = "1.027";
+  our $VERSION = "1.027";
 
   require XSLoader;
   XSLoader::load('Imager::Font::T1', $VERSION);
index f1cfd8744b4e1cf553d842cba7345fe8a1142f8a..18a0a60b52e0fe09fb4a406e8f7650cb3e58272d 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::File::TIFF;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.92";
+  our $VERSION = "0.92";
 
   require XSLoader;
   XSLoader::load('Imager::File::TIFF', $VERSION);
index 45780f7cf68fcf83939d0ea7655788d17f790b9d..6fd4219abbcaf296e9960a7d0d7371dc6da3780c 100644 (file)
@@ -1,11 +1,11 @@
 package Imager::Font::W32;
+use 5.006;
 use strict;
 use Imager;
-use vars qw($VERSION @ISA);
-@ISA = qw(Imager::Font);
+our @ISA = qw(Imager::Font);
 
 BEGIN {
-  $VERSION = "0.91";
+  our $VERSION = "0.91";
 
   require XSLoader;
   XSLoader::load('Imager::Font::W32', $VERSION);
index bd63f6638a5028bf3ac52af450cdc438cda0b692..c4d1fce1811caa547f02deaedb86acbafcf9d8fd 100644 (file)
@@ -1,7 +1,9 @@
 package Imager::Font::Win32;
+use 5.006;
 use strict;
-use vars qw(@ISA);
-@ISA = qw(Imager::Font::W32);
+our @ISA = qw(Imager::Font::W32);
+
+our $VERSION = "1.000";
 
 require Imager::Font::W32;
 
index 70336f87032d706d5f33ea36c4db0f67640a0f63..2f0036aff0ad7e0cdc8f58fa2c5c3c4a5b9cdf8a 100644 (file)
@@ -1,10 +1,9 @@
 package Imager::Color;
-
+use 5.006;
 use Imager;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.013";
+our $VERSION = "1.013";
 
 # It's just a front end to the XS creation functions.
 
index 24f0426a595274e93d7594c045328ff46ad67835..4ad213ef3a6ab35c830245fc570b8545fd177444 100644 (file)
@@ -1,10 +1,9 @@
 package Imager::Color::Float;
-
+use 5.006;
 use Imager;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.006";
+our $VERSION = "1.006";
 
 # It's just a front end to the XS creation functions.
 
index 397201c7f4fae64164cb931bd59eaab44f4393a6..c352ecfb20e616978736fcbad4c7da0fa4b7f0ac 100644 (file)
@@ -1,8 +1,8 @@
 package Imager::Color::Table;
 use strict;
-use vars qw($VERSION);
+use 5.006;
 
-$VERSION = "1.003";
+our $VERSION = "1.004";
 
     my %colors;
 
index 0668d198507f619406cefaa1cb16957e5f5e9b68..74f7056cee052272b557d6d5c568715f313ce73f 100644 (file)
@@ -1,10 +1,9 @@
 package Imager::Expr;
-
+use 5.006;
 use Imager::Regops;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.007";
+our $VERSION = "1.008";
 
 my %expr_types;
 
@@ -296,8 +295,7 @@ sub dumpcode {
 }
 
 package Imager::Expr::Postfix;
-use vars qw(@ISA);
-@ISA = qw(Imager::Expr);
+our @ISA = qw(Imager::Expr);
 
 Imager::Expr::Postfix->register_type('rpnexpr');
 
@@ -319,8 +317,7 @@ sub compile {
 
 package Imager::Expr::Infix;
 
-use vars qw(@ISA);
-@ISA = qw(Imager::Expr);
+our @ISA = qw(Imager::Expr);
 use Imager::Regops qw(%Attr $MaxOperands);
 
 {
index eb00eea946f9e901951550d02ec004d733343faa..f2c84811b7d343992d12d4dd1b6de100d1ec8fff 100644 (file)
@@ -1,13 +1,12 @@
 package Imager::Expr::Assem;
+use 5.006;
 use strict;
 use Imager::Expr;
 use Imager::Regops;
-use vars qw($VERSION);
 
-$VERSION = "1.003";
+our $VERSION = "1.004";
 
-use vars qw(@ISA);
-@ISA = qw(Imager::Expr);
+our @ISA = qw(Imager::Expr);
 
 __PACKAGE__->register_type('assem');
 
index 61caa07239d608ab7e0c536776508d88b542673b..3a0d828d1c27f5f05e7412ab390c4bb431042615 100644 (file)
@@ -1,10 +1,9 @@
 package Imager::ExtUtils;
+use 5.006;
 use strict;
 use File::Spec;
 
-use vars qw($VERSION);
-
-$VERSION = "1.002";
+our $VERSION = "1.003";
 
 =head1 NAME
 
index f964c09706c7aa0938f2d5043aa8f5e004789cb6..6544b8fba48bada19d6c3726d2c438f51bb479b5 100644 (file)
@@ -1,8 +1,8 @@
 package Imager::Fill;
+use 5.006;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.012";
+our $VERSION = "1.013";
 
 # this needs to be kept in sync with the array of hatches in fills.c
 my @hatch_types =
index 4a50c22c7ef10487f125f65691c8d4baaca810fb..f6c2473f754eba97e20e99686a2ee5cd98a66025 100644 (file)
@@ -1,10 +1,9 @@
 package Imager::Font;
-
+use 5.006;
 use Imager::Color;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.039";
+our $VERSION = "1.039";
 
 # the aim here is that we can:
 #  - add file based types in one place: here
index c00571717eee8fcf5ccaf0643160b36641c9a1e7..579378a83e290d56103023614df4d371ca02bd65 100644 (file)
@@ -1,8 +1,8 @@
 package Imager::Font::BBox;
+use 5.006;
 use strict;
-use vars qw($VERSION);
 
-$VERSION = "1.006";
+our $VERSION = "1.007";
 
 =head1 NAME
 
index 279dfaddc35c2085ac0ea8bf7b49cf19241b68f9..0ad8d24c365a076d1489075e0fb4101db36bbdc6 100644 (file)
@@ -1,10 +1,11 @@
 package Imager::Font::FreeType2;
+use 5.006;
 use strict;
 use Imager::Font::FT2;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Imager::Font::FT2);
 
-$VERSION = "1.020";
+our @ISA = qw(Imager::Font::FT2);
+
+our $VERSION = "1.021";
 
 
 1;
index 19f3920ffe4c9f9c78932678b2b282c3cabef8f5..bf99013cec18381bd358a1deaaa35a4a064e236b 100644 (file)
@@ -1,11 +1,12 @@
 package Imager::Font::Image;
+use 5.006;
 use strict;
 use Imager::Color;
 use File::Basename;
 use File::Spec;
 
-use vars qw(@ISA %REQUIRED_FIELDS);
-@ISA = qw(Imager::Font);
+our @ISA = qw(Imager::Font);
+our $VERSION = "1.000";
 
 sub NWIDTH   () { 0 }
 sub PWIDTH   () { 2 }
@@ -15,7 +16,7 @@ sub DESCENT  () { 4 }
 sub ASCENT   () { 5 }
 
 
-%REQUIRED_FIELDS = (
+our %REQUIRED_FIELDS = (
        Image_spec     => 1,
        Font_size      => 1,
        Global_ascent  => 1,
index 59d9186f34a56ec2344a4085df6c6d04ef4a3a8c..9d3bd6d11dbf931f8f84a8db0bfed6d62a84e4f5 100644 (file)
@@ -1,7 +1,8 @@
 package Imager::Font::Test;
+use 5.006;
 use strict;
 
-our $VERSION = "1.0001";
+our $VERSION = "1.002";
 
 use base 'Imager::Font';
 
index 68e1520879f5b6d6c3b927518cbe6274a81e03f7..55c314c8a384715a19799c17ffb87b35eff8f8b4 100644 (file)
@@ -1,9 +1,10 @@
 package Imager::Font::Truetype;
+use 5.006;
 use strict;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Imager::Font);
 
-$VERSION = "1.012";
+our @ISA = qw(Imager::Font);
+
+our $VERSION = "1.013";
 
 *_first = \&Imager::Font::_first;
 
index 1f0e8821fd06db5a48ea977e6d4fd81aeae3f24e..c53041ee0ed1d6255c48fdf0e1918767e6f06e29 100644 (file)
@@ -1,10 +1,11 @@
 package Imager::Font::Type1;
+use 5.006;
 use strict;
 use Imager::Font::T1;
-use vars qw(@ISA $VERSION);
-@ISA = qw(Imager::Font::FT2);
 
-$VERSION = "1.012";
+our @ISA = qw(Imager::Font::T1);
+
+our $VERSION = "1.013";
 
 1;
 
index a1f8130172f553ec1f0039e670d5a0347e81e239..189083a69f27354a6da22003084804c7171c7c19 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Font::Wrap;
+use 5.006;
 use strict;
 use Imager;
 use Imager::Font;
-use vars qw($VERSION);
 
-$VERSION = "1.004";
+our $VERSION = "1.005";
 
 *_first = \&Imager::Font::_first;
 
index dec912fcf005cdb9d71f16e31accdfc81e5c0930..1fe6d195ea22f9b3da9e63766802d07c9a10a368 100644 (file)
@@ -1,9 +1,9 @@
 package Imager::Fountain;
+use 5.006;
 use strict;
 use Imager::Color::Float;
-use vars qw($VERSION);
 
-$VERSION = "1.007";
+our $VERSION = "1.008";
 
 =head1 NAME
 
index 3aa2cf39d6d3db09ec10d64edc8a8e7e85a1962b..e3eab760997712e993e6b5a2b92fb1a7417a7d7d 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Matrix2d;
+use 5.006;
 use strict;
-use vars qw($VERSION);
 use Scalar::Util qw(reftype looks_like_number);
 use Carp qw(croak);
 
-$VERSION = "1.012";
+our $VERSION = "1.013";
 
 =head1 NAME
 
@@ -47,12 +47,11 @@ bottom, rotation angles are clockwise, rather than counter-clockwise.
 
 =cut
 
-use vars qw(@EXPORT_OK %EXPORT_TAGS @ISA);
-@ISA = 'Exporter';
-require 'Exporter.pm';
-@EXPORT_OK = qw(m2d_rotate m2d_identity m2d_translate m2d_shear 
+our @ISA = 'Exporter';
+require Exporter;
+our @EXPORT_OK = qw(m2d_rotate m2d_identity m2d_translate m2d_shear 
                 m2d_reflect m2d_scale);
-%EXPORT_TAGS =
+our %EXPORT_TAGS =
   (
    handy=> [ qw(m2d_rotate m2d_identity m2d_translate m2d_shear 
                 m2d_reflect m2d_scale) ],
index e6b3fc1851e16f9d05c6c70abe3a810d038d921f..40eaaaae9fadae6cfab8ff9325a9f73c31769213 100644 (file)
@@ -1,14 +1,14 @@
 package Imager::Preprocess;
+use 5.006;
 use strict;
 require Exporter;
-use vars qw(@ISA @EXPORT $VERSION);
 use Getopt::Long;
 use Text::ParseWords;
 
-@EXPORT = qw(preprocess);
-@ISA = qw(Exporter);
+our @EXPORT = qw(preprocess);
+our @ISA = qw(Exporter);
 
-$VERSION = "1.001";
+our $VERSION = "1.002";
 
 sub preprocess {
   unshift @ARGV, grep /^-/, shellwords($ENV{IMAGER_PREPROCESS_OPTS})
index ff4c33ed137f9c6259b96de6111b255c89e64857..8ef7000fe10166b02a842dd3ab501078188f200a 100644 (file)
@@ -1,4 +1,5 @@
 package Imager::Probe;
+use 5.006;
 use strict;
 use File::Spec;
 use Config;
index 1455c158a9e9beb8cc424710509bce4e1e572122..439fc264810c0844cd9443e9661ed89c99211f2f 100644 (file)
@@ -1,10 +1,11 @@
 # AUTOMATICALLY GENERATED BY regops.perl
 package Imager::Regops;
+use 5.006;
 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;
@@ -60,9 +61,9 @@ use constant RBC_EXP => 50;
 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' =>
     {
@@ -489,8 +490,8 @@ use constant RBC_OP_COUNT => 52;
     'types' => 'p',
     },
   );
-$MaxOperands = 4;
-$PackCode = "i";
+our $MaxOperands = 4;
+our $PackCode = "i";
 1;
 
 __END__
index 836b4093470b35f0b9bebf39125573705e0f9d76..f4843aa676482c4572e467fbf7b894aaf25021c4 100644 (file)
@@ -1,16 +1,16 @@
 package Imager::Test;
+use 5.006;
 use strict;
 use Test::More;
 use Test::Builder;
 require Exporter;
-use vars qw(@ISA @EXPORT_OK $VERSION);
 use Carp qw(croak carp);
 use Config;
 
-$VERSION = "1.004";
+our $VERSION = "1.005";
 
-@ISA = qw(Exporter);
-@EXPORT_OK = 
+our @ISA = qw(Exporter);
+our @EXPORT_OK = 
   qw(
      diff_text_with_nul 
      test_image_raw
index 43a18166be5edf298b2592adf57a5d4e59069ba9..b6b945cd74995f265c4b995bbed7fac2d6e1fb3a 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Transform;
+use 5.006;
 use strict;
 use Imager;
 use Imager::Expr::Assem;
-use vars qw($VERSION);
 
-$VERSION = "1.006";
+our $VERSION = "1.007";
 
 my %funcs =
   (
index 613ffc2babe87b17eadafb51685e10179dc4aabf..4c23aabd5ccbb40b0c72b2d5019296f8165c7e33 100644 (file)
@@ -9,11 +9,12 @@ binmode OUT;
 print OUT <<'EOS';
 # AUTOMATICALLY GENERATED BY regops.perl
 package Imager::Regops;
+use 5.006;
 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";
 
 EOS
 my @ops;
@@ -44,12 +45,12 @@ while (<IN>) {
     $reg_pack = $1; 
   }
 }
-print OUT "\n\@EXPORT = qw(@ops);\n\n";
+print OUT "\nour \@EXPORT = qw(@ops);\n\n";
 # previously we used Data::Dumper, with Sortkeys() 
 # to make sure the generated code only changed when the data
 # changed.  Unfortunately Sortkeys isn't supported in some versions of
 # perl we try to support, so we now generate this manually
-print OUT "%Attr =\n  (\n";
+print OUT "our %Attr =\n  (\n";
 for my $opname (sort keys %attr) {
   my $op = $attr{$opname};
   print OUT "  '$opname' =>\n    {\n";
@@ -73,8 +74,8 @@ for my $opname (sort keys %attr) {
   print OUT "    },\n";
 }
 print OUT "  );\n";
-print OUT "\$MaxOperands = $max_opr;\n";
-print OUT qq/\$PackCode = "$reg_pack";\n/;
+print OUT "our \$MaxOperands = $max_opr;\n";
+print OUT qq/our \$PackCode = "$reg_pack";\n/;
 print OUT <<'EOS';
 1;
 
index 1b10cfbeaf9d4a9f4ae8e038ba534397e7bad351..c29968381b6494737611008e9a4f6673ac2b22f8 100644 (file)
--- a/spot.perl
+++ b/spot.perl
@@ -5,9 +5,8 @@ my $func = shift or die "Usage: $0 function [width height expandx expandy]\n";
 my $width = shift || 8;
 my $height = shift || 8;
 my @spot;
-use vars qw($x $y);
-for $y (0..$height-1) {
-  for $x (0..$width-1) {
+for my $y (0..$height-1) {
+  for my $x (0..$width-1) {
     my $res = eval $func;
     $spot[$x+$y*$width] = $res * $res;
   }
index ad75804a220d25963420a70c8e94ed23302fc702..bd052577373716e16144ec6877fd85845bc6d9fe 100644 (file)
@@ -1,6 +1,8 @@
 package GoodTestFont;
+use 5.006;
 use strict;
-use vars '@ISA';
+
+our $VERSION = "1.000";
 
 # this doesn't do enough to be a font
 
index bccd5cd799359095a583b3de6fb4f0740069e36e..61e738557f97ebb832ca1874e62f0a9dbbbd040e 100644 (file)
@@ -1,7 +1,10 @@
 package Pod::Coverage::Imager;
+use 5.006;
 use strict;
 use base 'Pod::Coverage';
 
+our $VERSION = "1.000";
+
 sub _get_pods {
   my $self = shift;
 
index 6629ccd325221143642c211dbdd292075750a527..0b18f1bcf86f8e8a281a8686c1fce2e7b53f6aa4 100644 (file)
@@ -1,6 +1,9 @@
 package Imager::File::BAD;
+use 5.006;
 use strict;
 
+our $VERSION = "1.000";
+
 die "This module fails to load\n";
 
 1;