Importing Variable-Magic-0.04.tar.gz

diff --git a/Changes b/Changes
index 9bc0f25860460dba61d25f3804176ac72ce40bc8..d5a8d09d23ebd62c26bd8f4d51f0384e921108df 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Variable-Magic
 
+0.04    2007-08-28 12:25 UTC
+        + Chg : s/require (XSLoader)/use $1/.
+        + Fix : Tests are now strict.
+        + Fix : Complete dependencies.
+
 0.03    2007-08-01 17:20 UTC
         + Add : Passing the signature of an already defined magic to wizard()
                 now returns the corresponding magic object.

diff --git a/META.yml b/META.yml
index 012aebd27557a11e97409a88e25d5a2511891107..b0a9eb4b2f2c66b569bebd208e3b1266513a58c4 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,13 +1,15 @@
 --- #YAML:1.0
 name:                Variable-Magic
-version:             0.03
+version:             0.04
 abstract:            Associate user-defined magic to variables from Perl.
 license:             perl
 generated_by:        ExtUtils::MakeMaker version 6.36
 distribution_type:   module
 requires:     
     Carp:                          0
+    Exporter:                      0
     Test::More:                    0
+    XSLoader:                      0
 meta-spec:
     url:     http://module-build.sourceforge.net/META-spec-v1.2.html
     version: 1.2

diff --git a/Makefile.PL b/Makefile.PL
index d754ae32d856f962942c59711d1b84f13db04c3f..f2871215e36016a0f3030c1ffdbb2063ea354f8d 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -10,8 +10,10 @@ WriteMakefile(
     ABSTRACT_FROM       => 'lib/Variable/Magic.pm',
     PL_FILES            => {},
     PREREQ_PM => {
-        'Carp'       => 0,   
-        'Test::More' => 0
+        'Carp'       => 0,
+        'Exporter'   => 0,
+        'Test::More' => 0,
+        'XSLoader'   => 0
     },
     dist                => { 
         PREOP => 'pod2text lib/Variable/Magic.pm > $(DISTVNAME)/README',

diff --git a/README b/README
index 6f8f6b0a10d916b577c8e622831f972f6cbd8eab..281f3dca7838554375ef4149ead4dc35b84529c9 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     Variable::Magic - Associate user-defined magic to variables from Perl.
 
 VERSION
-    Version 0.03
+    Version 0.04
 
 SYNOPSIS
         use Variable::Magic qw/wizard cast dispell/;
@@ -175,7 +175,7 @@ EXPORT
 DEPENDENCIES
     Carp (standard since perl 5), XSLoader (standard since perl 5.006).
 
-    Tests use Symbol (standard since perl 5.002).
+    Glob tests need Symbol (standard since perl 5.002).
 
 SEE ALSO
     perlguts and perlapi for internal information about magic.

diff --git a/lib/Variable/Magic.pm b/lib/Variable/Magic.pm
index 74baa34ebd627de2e32af6977ca4d310f299b435..7289d6e4e3c8f7c3d2a0ace1535c0bdfad1fe49e 100644 (file)
--- a/lib/Variable/Magic.pm
+++ b/lib/Variable/Magic.pm
@@ -11,11 +11,11 @@ Variable::Magic - Associate user-defined magic to variables from Perl.
 
 =head1 VERSION
 
-Version 0.03
+Version 0.04
 
 =cut
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 =head1 SYNOPSIS
 
@@ -98,9 +98,9 @@ The maximum integer used as a signature for user-defined magic.
 
 =cut
 
-require XSLoader;
+use XSLoader;
 
-XSLoader::load(__PACKAGE__, $VERSION);
+XSLoader::load __PACKAGE__, $VERSION;
 
 =head2 C<wizard>
 
@@ -203,7 +203,7 @@ $EXPORT_TAGS{'all'} = \@EXPORT_OK;
 
 L<Carp> (standard since perl 5), L<XSLoader> (standard since perl 5.006).
 
-Tests use L<Symbol> (standard since perl 5.002).
+Glob tests need L<Symbol> (standard since perl 5.002).
 
 =head1 SEE ALSO
 

diff --git a/t/00-load.t b/t/00-load.t
index 14ed036eb1ff136cda2fcb01b9c5a92f115cd1bd..e70be36b536c8749ab47b9b406630a64c09e921e 100644 (file)
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 1;
 
 BEGIN {

diff --git a/t/01-import.t b/t/01-import.t
index 37dc939d9cfcf4afd7c8321d620715f4c2458a5f..cc4aebd733f494f25da4abebb14430149d9da0df 100644 (file)
--- a/t/01-import.t
+++ b/t/01-import.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 9;
 
 require Variable::Magic;

diff --git a/t/10-simple.t b/t/10-simple.t
index 37d348e9f0b56a0c0b5b6cec9bab4bee3302e530..a5d091701154b54c8aa83487eb61a97ac17b0227 100644 (file)
--- a/t/10-simple.t
+++ b/t/10-simple.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 14;
 
 use Variable::Magic qw/wizard gensig getsig cast dispell/;

diff --git a/t/11-multiple.t b/t/11-multiple.t
index c77decea46fda34fd30dddfc056a55cd2a0445e9..21f37d23d492bf6ca3c0fba61812c68da3e637e2 100644 (file)
--- a/t/11-multiple.t
+++ b/t/11-multiple.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 33;
 
 use Variable::Magic qw/wizard cast dispell/;
@@ -10,9 +13,9 @@ my @c = (0) x $n;
 
 sub multi {
  my ($cb, $tests) = @_;
- for (local $i = 0; $i < $n; ++$i) {
-  my $res = eval { $cb->() };
-  $tests->($res, $@);
+ for (my $i = 0; $i < $n; ++$i) {
+  my $res = eval { $cb->($i) };
+  $tests->($i, $res, $@);
  }
 }
 
@@ -24,9 +27,10 @@ eval { $w[2] = wizard get => sub { ++$c[2] }, set => sub { --$c[2] } };
 ok(!$@, "wizard 2 creation error ($@)");
 
 multi sub {
+ my ($i) = @_;
  $w[$i]
 }, sub {
- my ($res, $err) = @_;
+ my ($i, $res, $err) = @_;
  ok(defined $res, "wizard $i is defined");
  ok(ref($w[$i]) eq 'SCALAR', "wizard $i is a scalar ref");
 };
@@ -34,9 +38,10 @@ multi sub {
 my $a = 0;
 
 multi sub {
+ my ($i) = @_;
  cast $a, $w[$i];
 }, sub {
- my ($res, $err) = @_;
+ my ($i, $res, $err) = @_;
  ok(!$err, "cast magic $i croaks ($err)");
  ok($res, "cast magic $i invalid");
 };

diff --git a/t/12-data.t b/t/12-data.t
index 7e640b32843abab4f5708edf842049690d42f86a..1e8b9eb0f340b5ca53f3037530f22fc91f255268 100644 (file)
--- a/t/12-data.t
+++ b/t/12-data.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 19;
 
 use Variable::Magic qw/wizard getdata cast dispell/;

diff --git a/t/13-sig.t b/t/13-sig.t
index c7b9f498d712af21dd9b639a5f811c4c32b2030c..6564d367291737fb8352832276a5cb4a7b2f69de 100644 (file)
--- a/t/13-sig.t
+++ b/t/13-sig.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 24;
 
 use Variable::Magic qw/wizard getsig cast dispell SIG_MIN/;

diff --git a/t/20-get.t b/t/20-get.t
index 215b5df03b6bf44cc4a1baac1111f604a0b4e35b..b79edc8e13bc91abd62ad77d191974e6160b4e51 100644 (file)
--- a/t/20-get.t
+++ b/t/20-get.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 6;
 
 use Variable::Magic qw/wizard cast/;

diff --git a/t/21-set.t b/t/21-set.t
index 591514235b6f2ae916f08c3297fa1f6af4b84992..f731c0d02161111149bd216308e0dc873e06b18d 100644 (file)
--- a/t/21-set.t
+++ b/t/21-set.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 8;
 
 use Variable::Magic qw/wizard cast/;

diff --git a/t/22-len.t b/t/22-len.t
index 282fd37519314e63cb655eba4bf3f466564cd07f..c3a95663e0af476f698d59bf278e6ccfafb1f307 100644 (file)
--- a/t/22-len.t
+++ b/t/22-len.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 6;
 
 use Variable::Magic qw/wizard cast/;

diff --git a/t/23-clear.t b/t/23-clear.t
index 7836d3a2e219a90b78b13d3942a126731eed9665..35a49dd0bad4395301be9b7eb33ff4412b904900 100644 (file)
--- a/t/23-clear.t
+++ b/t/23-clear.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 7;
 
 use Variable::Magic qw/wizard cast/;

diff --git a/t/24-free.t b/t/24-free.t
index 56fd6931f9636b34057a20728745b7af01a817f4..5a90198082d21cb7d587c7db53327f653244010f 100644 (file)
--- a/t/24-free.t
+++ b/t/24-free.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 4;
 
 use Variable::Magic qw/wizard cast/;

diff --git a/t/30-scalar.t b/t/30-scalar.t
index 3733ab72ba7e7db7d5d8093904ff3f3e46cc607c..ccfba3aa7390aff48cb24342ffdb68f5ab059041 100644 (file)
--- a/t/30-scalar.t
+++ b/t/30-scalar.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 13;
 
 use Variable::Magic qw/wizard cast dispell/;

diff --git a/t/31-array.t b/t/31-array.t
index 62f41456e6103af03504cf15f9b0267f2c8030c4..bb2f96e402b5101e61e627c2739229709fa7ae72 100644 (file)
--- a/t/31-array.t
+++ b/t/31-array.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 21;
 
 use Variable::Magic qw/wizard cast dispell/;

diff --git a/t/32-hash.t b/t/32-hash.t
index 44510dc10224d09543105a9448f5cd20f4ac0b62..483d9671e93bfed7e4ac1935f0d6c85740293f14 100644 (file)
--- a/t/32-hash.t
+++ b/t/32-hash.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 17;
 
 use Variable::Magic qw/wizard cast dispell/;

diff --git a/t/33-code.t b/t/33-code.t
index 538beb2380d05747578b5196ceea75b638f6bf2a..21d900ff20bc1ae4e9fdfd7ecbeade20bc847ed6 100644 (file)
--- a/t/33-code.t
+++ b/t/33-code.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 10;
 
 use Variable::Magic qw/wizard cast dispell/;

diff --git a/t/34-glob.t b/t/34-glob.t
index a1ece33acdd86b7dd69727ef5acd30f6baa9132a..76e0224ac3a21fd774dff9b94103ab46d72ceec8 100644 (file)
--- a/t/34-glob.t
+++ b/t/34-glob.t
@@ -1,5 +1,8 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More;
 
 eval "use Symbol qw/gensym/";

diff --git a/t/boilerplate.t b/t/boilerplate.t
index e0a8da22de418d488c29f4ca57e81360e088f954..a421e46f4f64d3ce3bfd09c6cf52662fa72d2c6b 100644 (file)
--- a/t/boilerplate.t
+++ b/t/boilerplate.t
@@ -2,6 +2,7 @@
 
 use strict;
 use warnings;
+
 use Test::More tests => 3;
 
 sub not_in_file_ok {

diff --git a/t/kwalitee.t b/t/kwalitee.t
index 1e95c3dc6897784a9bff7930462619480923e513..7775e608d046d625d33d383cd329e8197a3e5ede 100644 (file)
--- a/t/kwalitee.t
+++ b/t/kwalitee.t
@@ -1,5 +1,8 @@
 #!perl
 
+use strict;
+use warnings;
+
 use Test::More;
 
 eval { require Test::Kwalitee; Test::Kwalitee->import() };

diff --git a/t/pod-coverage.t b/t/pod-coverage.t
index c9b20248dbc55ed300712a933d69c56b1b09a00d..d0b482dc437d9d8e735a4e7d7b09023677cfd915 100644 (file)
--- a/t/pod-coverage.t
+++ b/t/pod-coverage.t
@@ -1,6 +1,10 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More;
+
 eval "use Test::Pod::Coverage 1.04";
 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
 all_pod_coverage_ok( { also_private => [ qr/^_/ ] } );

diff --git a/t/pod.t b/t/pod.t
index 976d7cdfb2a829b1383ffe12570180e25c14668c..f1e1d3e375d2b802ad35abd32ba55f7f5eddacae 100644 (file)
--- a/t/pod.t
+++ b/t/pod.t
@@ -1,6 +1,10 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More;
+
 eval "use Test::Pod 1.14";
 plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
 all_pod_files_ok();