Switch to qw<>

diff --git a/Makefile.PL b/Makefile.PL
index 57d8b81816c4242d993eeef3a867d2180b1a4173..b04024596c0bbfdb9d4494ec19e3a2ae67ca5702 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -7,7 +7,7 @@ use ExtUtils::MakeMaker;
 BEGIN {
  eval { require Config };
  die 'OS unsupported' if $@;
- Config->import(qw/%Config/);
+ Config->import(qw<%Config>);
 }
 
 my @DEFINES;
@@ -29,15 +29,15 @@ print $is_as_822 ? "yes\n" : "no\n";
 my $is_gcc_34 = 0;
 print "Checking if this is gcc 3.4 on Windows trying to link against an import library... ";
 if ($^O eq 'MSWin32' and not grep /^LD[A-Z]*=/, @ARGV) {
- my ($libperl, $gccversion) = map $_ || '', @Config{qw/libperl gccversion/};
+ my ($libperl, $gccversion) = map $_ || '', @Config{qw<libperl gccversion>};
  if ($gccversion =~ /^3\.4\.[0-9]+/ and $libperl =~ s/\.lib$//) {
   $is_gcc_34 = 1;
-  my ($lddlflags, $ldflags) = @Config{qw/lddlflags ldflags/};
+  my ($lddlflags, $ldflags) = @Config{qw<lddlflags ldflags>};
   $_ ||= '', s/-L(?:".*?"|\S+)//g for $lddlflags, $ldflags;
   $libperl = "-l$libperl";
   my $libdirs = join ' ',
                  map { s/(?<!\\)((?:\\\\)*")/\\$1/g; qq[-L"$_"] }
-                  @Config{qw/bin sitebin/};
+                  @Config{qw<bin sitebin>};
   $macro{LDDLFLAGS}    = "$lddlflags $libdirs $libperl";
   $macro{LDFLAGS}      = "$ldflags $libdirs $libperl";
   $macro{PERL_ARCHIVE} = '',

diff --git a/lib/Variable/Magic.pm b/lib/Variable/Magic.pm
index 129da7c89ec4322b10a113e46c20c7524a06af97..c52dcc8459df8d62455edab6c956fffe0672685c 100644 (file)
--- a/lib/Variable/Magic.pm
+++ b/lib/Variable/Magic.pm
@@ -22,7 +22,7 @@ BEGIN {
 
 =head1 SYNOPSIS
 
-    use Variable::Magic qw/wizard cast VMG_OP_INFO_NAME/;
+    use Variable::Magic qw<wizard cast VMG_OP_INFO_NAME>;
 
     { # A variable tracer
      my $wiz = wizard set  => sub { print "now set to ${$_[0]}!\n" },
@@ -301,11 +301,11 @@ sub wizard {
 
  my %opts = @_;
 
- my @keys = qw/data op_info get set len clear free/;
+ my @keys = qw<data op_info get set len clear free>;
  push @keys, 'copy'  if MGf_COPY;
  push @keys, 'dup'   if MGf_DUP;
  push @keys, 'local' if MGf_LOCAL;
- push @keys, qw/fetch store exists delete copy_key/ if VMG_UVAR;
+ push @keys, qw<fetch store exists delete copy_key> if VMG_UVAR;
 
  my ($wiz, $err);
  {
@@ -440,7 +440,7 @@ It is similar to using inside-out objects, but without the drawback of having to
     {
      package Magical::UserData;
 
-     use Variable::Magic qw/wizard cast getdata/;
+     use Variable::Magic qw<wizard cast getdata>;
 
      my $wiz = wizard data => sub { \$_[1] };
 
@@ -575,12 +575,12 @@ All the constants are also only exported on request, either individually or by t
 
 =cut
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
 our @EXPORT         = ();
 our %EXPORT_TAGS    = (
- 'funcs' =>  [ qw/wizard cast getdata dispell/ ],
- 'consts' => [ qw/
+ 'funcs' =>  [ qw<wizard cast getdata dispell> ],
+ 'consts' => [ qw<
    MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR
    VMG_COMPAT_ARRAY_PUSH_NOLEN VMG_COMPAT_ARRAY_PUSH_NOLEN_VOID
    VMG_COMPAT_ARRAY_UNSHIFT_NOLEN_VOID
@@ -590,7 +590,7 @@ our %EXPORT_TAGS    = (
    VMG_PERL_PATCHLEVEL
    VMG_THREADSAFE VMG_FORKSAFE
    VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT
- / ],
+ > ],
 );
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];

diff --git a/samples/copy.pl b/samples/copy.pl
index 6a705f688e44e8e303bd9e5d501563c1632c273c..e24dc80fcf89ffc9303c68058fa19d05189f0b0d 100755 (executable)
--- a/samples/copy.pl
+++ b/samples/copy.pl
@@ -3,8 +3,8 @@
 use strict;
 use warnings;
 
-use lib qw{blib/arch blib/lib};
-use Variable::Magic qw/wizard cast/;
+use lib qw<blib/arch blib/lib>;
+use Variable::Magic qw<wizard cast>;
 use Tie::Hash;
 
 my $wiz = wizard copy => sub { print STDERR "COPY $_[2] => $_[3]\n" },

diff --git a/samples/magic.pl b/samples/magic.pl
index 5ce53ae49656ea1d8eee5976f99fd71e1dfeebc5..3fc8a8f48c621fee98bc6ce523a31b7c3e51f3d7 100755 (executable)
--- a/samples/magic.pl
+++ b/samples/magic.pl
@@ -3,8 +3,8 @@
 use strict;
 use warnings;
 
-use lib qw{blib/arch blib/lib};
-use Variable::Magic qw/wizard cast dispell/;
+use lib qw<blib/arch blib/lib>;
+use Variable::Magic qw<wizard cast dispell>;
 
 sub foo { print STDERR "got ${$_[0]}!\n" }
 my $bar = sub { ++${$_[0]}; print STDERR "now set to ${$_[0]}!\n"; };
@@ -14,7 +14,7 @@ my $a = 1;
  my $wiz = wizard get  => \&foo,
                   set  => $bar,
                   free => sub { print STDERR "deleted!\n"; };
- cast $a, $wiz, qw/a b c/;
+ cast $a, $wiz, qw<a b c>;
  ++$a;              # "got 1!", "now set to 3!"
  dispell $a, $wiz;
  cast $a, $wiz;

diff --git a/samples/synopsis.pl b/samples/synopsis.pl
index 4b99d413ac4e73c5b0ce545cb193ce170d23b707..5b5cd7c76daa2b96433ca0fd29bb59bca816be4d 100755 (executable)
--- a/samples/synopsis.pl
+++ b/samples/synopsis.pl
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Variable::Magic qw/wizard cast VMG_OP_INFO_NAME/;
+use Variable::Magic qw<wizard cast VMG_OP_INFO_NAME>;
 
 {
  my $wiz = wizard set  => sub { print "now set to ${$_[0]}!\n" },

diff --git a/samples/uvar.pl b/samples/uvar.pl
index 700692fd7f90f698645fc3012a3c07eab989514a..d1e52abdc5559950b82e27bbc2a1430ff1c3fd9a 100755 (executable)
--- a/samples/uvar.pl
+++ b/samples/uvar.pl
@@ -3,8 +3,8 @@
 use strict;
 use warnings;
 
-use lib qw{blib/arch blib/lib};
-use Variable::Magic qw/wizard cast dispell/;
+use lib qw<blib/arch blib/lib>;
+use Variable::Magic qw<wizard cast dispell>;
 
 my $wiz = wizard
  fetch  => sub { print STDERR "$_[0] FETCH KEY $_[2]\n" },

diff --git a/samples/vm_vs_tie.pl b/samples/vm_vs_tie.pl
index c712b71bc2b556042615b04670762bf9060ee8a4..b7f888dd907a21de4489d90d1410b99c52a6c1d1 100755 (executable)
--- a/samples/vm_vs_tie.pl
+++ b/samples/vm_vs_tie.pl
@@ -5,10 +5,10 @@ use warnings;
 
 use Tie::Hash;
 
-use lib qw{blib/arch blib/lib};
-use Variable::Magic qw/wizard cast VMG_UVAR/;
+use lib qw<blib/arch blib/lib>;
+use Variable::Magic qw<wizard cast VMG_UVAR>;
 
-use Benchmark qw/cmpthese/;
+use Benchmark qw<cmpthese>;
 
 die 'Your perl does not support the nice uvar magic of 5.10.*' unless VMG_UVAR;
 

diff --git a/t/01-import.t b/t/01-import.t
index 8fdd778f434ece8c898e7adc7eefe068dbdd96c6..b7be4ce07c5140eb847d8fdadebaec46553a6fc2 100644 (file)
--- a/t/01-import.t
+++ b/t/01-import.t
@@ -12,7 +12,7 @@ my %syms = (
  cast     => '\[$@%&*]$@',
  getdata  => '\[$@%&*]$',
  dispell  => '\[$@%&*]$',
- map { $_ => '' } qw/
+ map { $_ => '' } qw<
   MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR
   VMG_COMPAT_ARRAY_PUSH_NOLEN VMG_COMPAT_ARRAY_PUSH_NOLEN_VOID
   VMG_COMPAT_ARRAY_UNSHIFT_NOLEN_VOID
@@ -22,7 +22,7 @@ my %syms = (
   VMG_PERL_PATCHLEVEL
   VMG_THREADSAFE VMG_FORKSAFE
   VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT
- /
+ >
 );
 
 for (sort keys %syms) {

diff --git a/t/10-simple.t b/t/10-simple.t
index 69c3a40f3b9074ea1d5f8a938b54699cc3688659..70b4f6ef778f77556ff9dfdf470879159a0dcaed 100644 (file)
--- a/t/10-simple.t
+++ b/t/10-simple.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 43;
 
-use Variable::Magic qw/wizard cast dispell MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR/;
+use Variable::Magic qw<wizard cast dispell MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR>;
 
 my $inv_wiz_obj = qr/Invalid\s+wizard\s+object\s+at\s+\Q$0\E/;
 

diff --git a/t/11-multiple.t b/t/11-multiple.t
index 58cc8a86c18eccc36ce348aa94747be006bca848..07b1899f6f43175ba6599bc16a6634465d971c62 100644 (file)
--- a/t/11-multiple.t
+++ b/t/11-multiple.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 33 + 41;
 
-use Variable::Magic qw/wizard cast dispell VMG_UVAR/;
+use Variable::Magic qw<wizard cast dispell VMG_UVAR>;
 
 my $n = 3;
 my @w;

diff --git a/t/13-data.t b/t/13-data.t
index b693f92c575cf2eb5967915925fba09f589400e1..bc4248e9e4f05d54a2fdfad687ef0a4366f3c806 100644 (file)
--- a/t/13-data.t
+++ b/t/13-data.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 35;
 
-use Variable::Magic qw/wizard getdata cast dispell/;
+use Variable::Magic qw<wizard getdata cast dispell>;
 
 my $c = 1;
 
@@ -53,7 +53,7 @@ $res = eval { dispell $a, $wiz };
 is($@, '', 'dispell doesn\'t croak');
 ok($res,   'dispell returns true');
 
-$res = eval { cast $a, $wiz, qw/z j t/ };
+$res = eval { cast $a, $wiz, qw<z j t> };
 is($@, '', 'cast with arguments doesn\'t croak');
 ok($res,   'cast with arguments returns true');
 

diff --git a/t/14-callbacks.t b/t/14-callbacks.t
index 91ee3bd962bff27d7e164942b32aef41864ace8e..77fdd00d68105e0107588826b02b3bc35809df47 100644 (file)
--- a/t/14-callbacks.t
+++ b/t/14-callbacks.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 17;
 
-use Variable::Magic qw/wizard cast/;
+use Variable::Magic qw<wizard cast>;
 
 my $wiz = eval { wizard get => sub { undef } };
 is($@, '',             'wizard creation doesn\'t croak');

diff --git a/t/15-self.t b/t/15-self.t
index cfca7080faaabace5c1b0732dd9b6a96494654e6..bf6aa350f5cdc6ac3ad1cffc11449b9bebb5167d 100644 (file)
--- a/t/15-self.t
+++ b/t/15-self.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 17;
 
-use Variable::Magic qw/wizard cast dispell getdata/;
+use Variable::Magic qw<wizard cast dispell getdata>;
 
 my $c = 0;
 

diff --git a/t/16-huf.t b/t/16-huf.t
index 0934219579ca9613d9955ceda412f0967ace69c0..32f767770749e8bd8fe41f33397652d8ffff6c77 100644 (file)
--- a/t/16-huf.t
+++ b/t/16-huf.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
-use Variable::Magic qw/wizard cast dispell VMG_UVAR/;
+use Variable::Magic qw<wizard cast dispell VMG_UVAR>;
 
 if (!VMG_UVAR) {
  plan skip_all => 'No nice uvar magic for this perl';
@@ -23,7 +23,7 @@ if ($@) {
 use lib 't/lib';
 use Variable::Magic::TestWatcher;
 
-my $wiz = init_watcher [ qw/fetch store/ ], 'huf';
+my $wiz = init_watcher [ qw<fetch store> ], 'huf';
 ok defined($wiz),       'huf: wizard with uvar is defined';
 is ref($wiz), 'SCALAR', 'huf: wizard with uvar is a scalar ref';
 

diff --git a/t/17-ctl.t b/t/17-ctl.t
index 38924d6f89f8e9505261e3aa80f948f9776ee83f..92a4c0cc7930d5a9d3dc8a7c1e74185d464bc747 100644 (file)
--- a/t/17-ctl.t
+++ b/t/17-ctl.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 4 * 8 + 10 + 1 + 1;
 
-use Variable::Magic qw/wizard cast VMG_UVAR/;
+use Variable::Magic qw<wizard cast VMG_UVAR>;
 
 sub expect {
  my ($name, $where, $suffix) = @_;
@@ -247,7 +247,7 @@ SKIP:
  skip 'No working Capture::Tiny is installed'=> $count unless $has_capture_tiny;
 
  my $output = Capture::Tiny::capture_merged(sub { run_perl <<' CODE' });
-use Variable::Magic qw/wizard cast/; { BEGIN { $^H |= 0x020000; cast %^H, wizard free => sub { die q[cucumber] } } }
+use Variable::Magic qw<wizard cast>; { BEGIN { $^H |= 0x020000; cast %^H, wizard free => sub { die q[cucumber] } } }
  CODE
  skip 'Test code didn\'t run properly' => $count unless defined $output;
  like $output, expect('cucumber', '-e', "\nExecution(?s:.*)"),
@@ -265,7 +265,7 @@ SKIP:
  skip 'No working Capture::Tiny is installed'=> $count unless $has_capture_tiny;
 
  my $output = Capture::Tiny::capture_merged(sub { run_perl <<' CODE' });
-use Variable::Magic qw/wizard cast/; BEGIN { cast %::, wizard fetch => sub { die q[salsify] } } hlagh()
+use Variable::Magic qw<wizard cast>; BEGIN { cast %::, wizard fetch => sub { die q[salsify] } } hlagh()
  CODE
  skip 'Test code didn\'t run properly' => $count unless defined $output;
  my $suffix = "\nExecution(?s:.*)";

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index 6cf87680ad31fe2912f988e0936b3e2d4b79afd5..161efb9c9a90cec02fa2b47c92971ced3cc039fd 100644 (file)
--- a/t/18-opinfo.t
+++ b/t/18-opinfo.t
@@ -5,9 +5,9 @@ use warnings;
 
 use Test::More tests => 17 * (3 + 4) + 5 + 1;
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
-use Variable::Magic qw/wizard cast dispell VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT/;
+use Variable::Magic qw<wizard cast dispell VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT>;
 
 sub Variable::Magic::TestPkg::foo { }
 

diff --git a/t/20-get.t b/t/20-get.t
index 659007066bfd6f870b20e8f1df0150e76123f098..3411417dfb57116f9b05a63e8cbf219efd840f13 100644 (file)
--- a/t/20-get.t
+++ b/t/20-get.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => (2 * 4 + 2) + (2 * 2) + 1;
 
-use Variable::Magic qw/cast/;
+use Variable::Magic qw<cast>;
 
 use lib 't/lib';
 use Variable::Magic::TestWatcher;

diff --git a/t/21-set.t b/t/21-set.t
index 25535e26d026503e64c970e3a236b8cdcadd977d..70af0e41fc2bfcf173867d243589e112ceeb8d96 100644 (file)
--- a/t/21-set.t
+++ b/t/21-set.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => (2 * 5 + 3) + (2 * 2 + 1);
 
-use Variable::Magic qw/cast/;
+use Variable::Magic qw<cast>;
 
 use lib 't/lib';
 use Variable::Magic::TestWatcher;

diff --git a/t/22-len.t b/t/22-len.t
index 01a06dd932ccc8ae70f34f3c838ccd853f56c5dc..a35375fb21a1dcbcae9775d82b0273a34707dc03 100644 (file)
--- a/t/22-len.t
+++ b/t/22-len.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 39 + (2 * 2 + 1);
 
-use Variable::Magic qw/wizard cast dispell VMG_COMPAT_SCALAR_LENGTH_NOLEN/;
+use Variable::Magic qw<wizard cast dispell VMG_COMPAT_SCALAR_LENGTH_NOLEN>;
 
 use lib 't/lib';
 use Variable::Magic::TestValue;
@@ -17,7 +17,7 @@ my $d;
 my $wiz = wizard len => sub { $d = $_[2]; ++$c; return $n };
 is $c, 0, 'len: wizard() doesn\'t trigger magic';
 
-my @a = qw/a b c/;
+my @a = qw<a b c>;
 
 $c = 0;
 cast @a, $wiz;

diff --git a/t/23-clear.t b/t/23-clear.t
index a3aad82ded0d9e07f14c90ac9ab46600e07163ab..3af5545755e7e3e1585a10c04c4a280be1b7197e 100644 (file)
--- a/t/23-clear.t
+++ b/t/23-clear.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => (2 * 5 + 2) + (2 * 2 + 1) + 1;
 
-use Variable::Magic qw/cast dispell/;
+use Variable::Magic qw<cast dispell>;
 
 use lib 't/lib';
 use Variable::Magic::TestWatcher;
@@ -13,7 +13,7 @@ use Variable::Magic::TestValue;
 
 my $wiz = init_watcher 'clear', 'clear';
 
-my @a = qw/a b c/;
+my @a = qw<a b c>;
 
 watch { cast @a, $wiz } { }, 'cast array';
 

diff --git a/t/24-free.t b/t/24-free.t
index c6daebedacfe59baec1a22bf1c34e79154c98e38..eaa7db3ee4da7db5241424aec0cf9fa5edff23c4 100644 (file)
--- a/t/24-free.t
+++ b/t/24-free.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 2 * 5 + 1;
 
-use Variable::Magic qw/cast/;
+use Variable::Magic qw<cast>;
 
 use lib 't/lib';
 use Variable::Magic::TestWatcher;

diff --git a/t/25-copy.t b/t/25-copy.t
index 0630ae33502d7c659616d1df4de0b9bebb809d9f..a18022f057488ca669b7375f790fe95387dc2bcd 100644 (file)
--- a/t/25-copy.t
+++ b/t/25-copy.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
-use Variable::Magic qw/cast dispell MGf_COPY/;
+use Variable::Magic qw<cast dispell MGf_COPY>;
 
 if (MGf_COPY) {
  plan tests => 2 + ((2 * 5 + 3) + (2 * 2 + 1)) + (2 * 9 + 6) + 1;
@@ -79,7 +79,7 @@ SKIP: {
  watch { my ($k, $v) = each %h } { copy => 1 }, 'tied hash each';
 
  my @k = watch { keys %h } { }, 'tied hash keys';
- is_deeply [ sort @k ], [ qw/a c/ ], 'copy: tied hash keys correctly';
+ is_deeply [ sort @k ], [ qw<a c> ], 'copy: tied hash keys correctly';
 
  my @v = watch { values %h } { copy => 2 }, 'tied hash values';
  is_deeply [ sort { $a <=> $b } @v ], [ 1, 3 ], 'copy: tied hash values correctly';

diff --git a/t/27-local.t b/t/27-local.t
index d15ba198b1e96b6413bfdab3a68ef64bbcb69f57..086d619d9a081d7cf8ac79403e26ef83851204de 100644 (file)
--- a/t/27-local.t
+++ b/t/27-local.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
-use Variable::Magic qw/cast MGf_LOCAL/;
+use Variable::Magic qw<cast MGf_LOCAL>;
 
 if (MGf_LOCAL) {
  plan tests => 2 * 3 + 1 + 1;

diff --git a/t/28-uvar.t b/t/28-uvar.t
index acc761f24f795fa0880585fe15a05ce9e452d1a2..0eaf00130eba5b5efc0c3566e6bb283ed650d053 100644 (file)
--- a/t/28-uvar.t
+++ b/t/28-uvar.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
-use Variable::Magic qw/wizard cast dispell VMG_UVAR/;
+use Variable::Magic qw<wizard cast dispell VMG_UVAR>;
 
 if (VMG_UVAR) {
  plan tests => 2 * 15 + 12 + 14 + (4 * 2 * 2 + 1 + 1) + 1;
@@ -17,7 +17,7 @@ use lib 't/lib';
 use Variable::Magic::TestWatcher;
 use Variable::Magic::TestValue;
 
-my $wiz = init_watcher [ qw/fetch store exists delete/ ], 'uvar';
+my $wiz = init_watcher [ qw<fetch store exists delete> ], 'uvar';
 
 my %h = (a => 1, b => 2, c => 3);
 

diff --git a/t/30-scalar.t b/t/30-scalar.t
index ab20ed6450dc5f3e2406232011fe47a1d6837d12..71fa3cbcd8c0a222082d9985fecff1d928a015fc 100644 (file)
--- a/t/30-scalar.t
+++ b/t/30-scalar.t
@@ -3,11 +3,11 @@
 use strict;
 use warnings;
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
 use Test::More tests => (2 * 14 + 2) + 2 * (2 * 8 + 4) + 3 + 1;
 
-use Variable::Magic qw/wizard cast dispell MGf_COPY/;
+use Variable::Magic qw<wizard cast dispell MGf_COPY>;
 
 use lib 't/lib';
 use Variable::Magic::TestWatcher;
@@ -15,7 +15,7 @@ use Variable::Magic::TestWatcher;
 my $is_5130_release = ($] == 5.013 && !$Config{git_describe}) ? 1 : 0;
 
 my $wiz = init_watcher
-        [ qw/get set len clear free copy dup local fetch store exists delete/ ],
+        [ qw<get set len clear free copy dup local fetch store exists delete> ],
         'scalar';
 
 my $n = int rand 1000;
@@ -122,5 +122,5 @@ SKIP: {
  };
  is $@, '', 'cast copy magic on tied array';
 
- watch { delete $a[0] } [ qw/get clear free/ ], 'delete from tied array';
+ watch { delete $a[0] } [ qw<get clear free> ], 'delete from tied array';
 }

diff --git a/t/31-array.t b/t/31-array.t
index b5ff1ede5d542aca4a3071cb965dc1a9ac81299e..20ab356034198e2baadf081b6832fb5ed9c71faa 100644 (file)
--- a/t/31-array.t
+++ b/t/31-array.t
@@ -5,13 +5,18 @@ use warnings;
 
 use Test::More tests => 2 * 27 + 13 + 1;
 
-use Variable::Magic qw/cast dispell VMG_COMPAT_ARRAY_PUSH_NOLEN VMG_COMPAT_ARRAY_PUSH_NOLEN_VOID VMG_COMPAT_ARRAY_UNSHIFT_NOLEN_VOID VMG_COMPAT_ARRAY_UNDEF_CLEAR/;
+use Variable::Magic qw<
+ cast dispell
+ VMG_COMPAT_ARRAY_PUSH_NOLEN VMG_COMPAT_ARRAY_PUSH_NOLEN_VOID
+                             VMG_COMPAT_ARRAY_UNSHIFT_NOLEN_VOID
+ VMG_COMPAT_ARRAY_UNDEF_CLEAR
+>;
 
 use lib 't/lib';
 use Variable::Magic::TestWatcher;
 
 my $wiz = init_watcher
-        [ qw/get set len clear free copy dup local fetch store exists delete/ ],
+        [ qw<get set len clear free copy dup local fetch store exists delete> ],
         'array';
 
 my @n = map { int rand 1000 } 1 .. 5;
@@ -33,7 +38,7 @@ $b = watch { \@a } { }, 'reference';
 @b = watch { @a[2 .. 4] } { }, 'slice';
 is_deeply \@b, [ @n[2 .. 4] ], 'array: slice correctly';
 
-watch { @a = qw/a b d/ } { set => 3, clear => 1 }, 'assign';
+watch { @a = qw<a b d> } { set => 3, clear => 1 }, 'assign';
 
 watch { $a[2] = 'c' } { }, 'assign old element';
 

diff --git a/t/32-hash.t b/t/32-hash.t
index 0ad2e96413adb937e21f6d1d6bb8acb3b7f44c4c..1bbd3001e800f665d558272dc8d4c88591b36605 100644 (file)
--- a/t/32-hash.t
+++ b/t/32-hash.t
@@ -5,16 +5,16 @@ use warnings;
 
 use Test::More tests => (2 * 21 + 7) + (2 * 5 + 5) + 1;
 
-use Variable::Magic qw/cast dispell MGf_COPY VMG_UVAR/;
+use Variable::Magic qw<cast dispell MGf_COPY VMG_UVAR>;
 
 use lib 't/lib';
 use Variable::Magic::TestWatcher;
 
 my $wiz = init_watcher
-        [ qw/get set len clear free copy dup local fetch store exists delete/ ],
+        [ qw<get set len clear free copy dup local fetch store exists delete> ],
         'hash';
 
-my %n = map { $_ => int rand 1000 } qw/foo bar baz qux/;
+my %n = map { $_ => int rand 1000 } qw<foo bar baz qux>;
 my %h = %n;
 
 watch { cast %h, $wiz } { }, 'cast';
@@ -34,9 +34,9 @@ is_deeply \%b, \%n, 'hash: assign to correctly';
 
 $s = watch { \%h } { }, 'reference';
 
-my @b = watch { @h{qw/bar qux/} }
+my @b = watch { @h{qw<bar qux>} }
                   +{ (fetch => 2) x VMG_UVAR }, 'slice';
-is_deeply \@b, [ @n{qw/bar qux/} ], 'hash: slice correctly';
+is_deeply \@b, [ @n{qw<bar qux>} ], 'hash: slice correctly';
 
 watch { %h = () } { clear => 1 }, 'empty in list context';
 
@@ -44,7 +44,7 @@ watch { %h = (a => 1, d => 3); () }
                +{ (store => 2, copy => 2) x VMG_UVAR, clear => 1 },
                'assign from list in void context';
 
-watch { %h = map { $_ => 1 } qw/a b d/; }
+watch { %h = map { $_ => 1 } qw<a b d>; }
                +{ (exists => 3, store => 3, copy => 3) x VMG_UVAR, clear => 1 },
                'assign from map in list context';
 
@@ -57,7 +57,7 @@ watch { $h{c} = 3; () } +{ (store => 1, copy => 1) x VMG_UVAR },
 $s = watch { %h } { }, 'buckets';
 
 @b = watch { keys %h } { }, 'keys';
-is_deeply [ sort @b ], [ qw/a b c d/ ], 'hash: keys correctly';
+is_deeply [ sort @b ], [ qw<a b c d> ], 'hash: keys correctly';
 
 @b = watch { values %h } { }, 'values';
 is_deeply [ sort { $a <=> $b } @b ], [ 1, 1, 2, 3 ], 'hash: values correctly';

diff --git a/t/33-code.t b/t/33-code.t
index a2812e3d2e0224fde8c63838a88b45ccd1a4dad3..a2d6711c2ff0af41ce60de4c21e74d7db10ccfa7 100644 (file)
--- a/t/33-code.t
+++ b/t/33-code.t
@@ -5,13 +5,13 @@ use warnings;
 
 use Test::More tests => 2 * 12 + 11 + 1;
 
-use Variable::Magic qw/cast dispell/;
+use Variable::Magic qw<cast dispell>;
 
 use lib 't/lib';
 use Variable::Magic::TestWatcher;
 
 my $wiz = init_watcher
-        [ qw/get set len clear free copy dup local fetch store exists delete/ ],
+        [ qw<get set len clear free copy dup local fetch store exists delete> ],
         'code';
 
 my $x = 0;

diff --git a/t/34-glob.t b/t/34-glob.t
index bbfbeeedff7ffb4de870d1910e7006857a4b6598..74183c9c5cbb8ea09124a6bf20b990caac23a7a0 100644 (file)
--- a/t/34-glob.t
+++ b/t/34-glob.t
@@ -5,15 +5,17 @@ use warnings;
 
 use Test::More;
 
-eval "use Symbol qw/gensym/";
-if ($@) {
- plan skip_all => "Symbol::gensym required for testing magic for globs";
-} else {
- plan tests => 2 * 12 + 1;
- defined and diag "Using Symbol $_" for $Symbol::VERSION;
+BEGIN {
+ local $@;
+ if (eval "use Symbol qw<gensym>; 1") {
+  plan tests => 2 * 12 + 1;
+  defined and diag "Using Symbol $_" for $Symbol::VERSION;
+ } else {
+  plan skip_all => "Symbol::gensym required for testing magic for globs";
+ }
 }
 
-use Variable::Magic qw/cast dispell VMG_COMPAT_GLOB_GET/;
+use Variable::Magic qw<cast dispell VMG_COMPAT_GLOB_GET>;
 
 my %get = VMG_COMPAT_GLOB_GET ? (get => 1) : ();
 
@@ -21,7 +23,7 @@ use lib 't/lib';
 use Variable::Magic::TestWatcher;
 
 my $wiz = init_watcher
-        [ qw/get set len clear free copy dup local fetch store exists delete/ ],
+        [ qw<get set len clear free copy dup local fetch store exists delete> ],
         'glob';
 
 local *a = gensym();
@@ -31,7 +33,7 @@ watch { cast *a, $wiz } +{ }, 'cast';
 watch { local *b = *a } +{ %get }, 'assign to';
 
 watch { *a = \1 }          +{ %get, set => 1 }, 'assign scalar slot';
-watch { *a = [ qw/x y/ ] } +{ %get, set => 1 }, 'assign array slot';
+watch { *a = [ qw<x y> ] } +{ %get, set => 1 }, 'assign array slot';
 watch { *a = { u => 1 } }  +{ %get, set => 1 }, 'assign hash slot';
 watch { *a = sub { } }     +{ %get, set => 1 }, 'assign code slot';
 

diff --git a/t/35-stash.t b/t/35-stash.t
index 6be01aa550eaf7b339b82cf1d4beeb5c0e062b1f..d1fc7a480f177145555f10327634a64ca5cf837a 100644 (file)
--- a/t/35-stash.t
+++ b/t/35-stash.t
@@ -5,7 +5,10 @@ use warnings;
 
 use Test::More;
 
-use Variable::Magic qw/wizard cast dispell VMG_UVAR VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT/;
+use Variable::Magic qw<
+ wizard cast dispell
+ VMG_UVAR VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT
+>;
 
 my $run;
 if (VMG_UVAR) {
@@ -27,7 +30,7 @@ $_ => sub {
  ()
 }
 CB
-} qw/fetch store exists delete/);
+} qw<fetch store exists delete>);
 
 $code .= ', data => sub { +{ guard => 0 } }';
 
@@ -51,8 +54,8 @@ cast %Hlagh::, $wiz;
 
  is $@, "ok\n", 'stash: variables compiled fine';
  is_deeply \%mg, {
-  fetch => [ qw/thing stuff/ ],
-  store => [ qw/thing stuff/ ],
+  fetch => [ qw<thing stuff> ],
+  store => [ qw<thing stuff> ],
  }, 'stash: variables';
 }
 
@@ -70,7 +73,7 @@ cast %Hlagh::, $wiz;
 
  is $@, "ok\n", 'stash: function definitions compiled fine';
  is_deeply \%mg, {
-  store => [ qw/eat shoot leave shoot/ ],
+  store => [ qw<eat shoot leave shoot> ],
  }, 'stash: function definitions';
 }
 
@@ -88,7 +91,7 @@ cast %Hlagh::, $wiz;
   roam();
  };
 
- my @calls = qw/eat shoot leave roam yawn roam/;
+ my @calls = qw<eat shoot leave roam yawn roam>;
 
  is $@, "ok\n", 'stash: function calls compiled fine';
  is_deeply \%mg, {
@@ -104,7 +107,7 @@ cast %Hlagh::, $wiz;
 
  is $@, '', 'stash: valid method call ran fine';
  is_deeply \%mg, {
-  fetch => [ qw/shoot/ ],
+  fetch => [ qw<shoot> ],
  }, 'stash: valid method call';
 }
 
@@ -115,7 +118,7 @@ cast %Hlagh::, $wiz;
 
  is $@, '', 'stash: second valid method call ran fine';
  is_deeply \%mg, {
-  fetch => [ qw/shoot/ ],
+  fetch => [ qw<shoot> ],
  }, 'stash: second valid method call';
 }
 
@@ -126,7 +129,7 @@ cast %Hlagh::, $wiz;
 
  is $@, '', 'stash: valid dynamic method call ran fine';
  is_deeply \%mg, {
-  store => [ qw/shoot/ ],
+  store => [ qw<shoot> ],
  }, 'stash: valid dynamic method call';
 }
 
@@ -142,7 +145,7 @@ cast %Hlagh::, $wiz;
 
  is $@, '', 'inherited valid method call ran fine';
  is_deeply \%mg, {
-  fetch => [ qw/ISA leave/ ],
+  fetch => [ qw<ISA leave> ],
  }, 'stash: inherited valid method call';
 }
 
@@ -162,7 +165,7 @@ cast %Hlagh::, $wiz;
 
  is $@, '', 'inherited previously called valid method call ran fine';
  is_deeply \%mg, {
-  fetch => [ qw/shoot/ ],
+  fetch => [ qw<shoot> ],
  }, 'stash: inherited previously called valid method call';
 }
 
@@ -182,8 +185,8 @@ cast %Hlagh::, $wiz;
 
  like $@, qr/^Can't locate object method "unknown" via package "Hlagh"/, 'stash: invalid method call croaked';
  is_deeply \%mg, {
-  fetch => [ qw/unknown/ ],
-  store => [ qw/unknown AUTOLOAD/ ],
+  fetch => [ qw<unknown> ],
+  store => [ qw<unknown AUTOLOAD> ],
  }, 'stash: invalid method call';
 }
 
@@ -194,7 +197,7 @@ cast %Hlagh::, $wiz;
 
  like $@, qr/^Can't locate object method "unknown_too" via package "Hlagh"/, 'stash: invalid dynamic method call croaked';
  is_deeply \%mg, {
-  store => [ qw/unknown_too AUTOLOAD/ ],
+  store => [ qw<unknown_too AUTOLOAD> ],
  }, 'stash: invalid dynamic method call';
 }
 
@@ -205,7 +208,7 @@ cast %Hlagh::, $wiz;
 
  like $@, qr/^Can't locate object method "also_unknown" via package "Hlagher"/, 'stash: invalid inherited method call croaked';
  is_deeply \%mg, {
-  fetch => [ qw/also_unknown AUTOLOAD/ ],
+  fetch => [ qw<also_unknown AUTOLOAD> ],
  }, 'stash: invalid method call';
 }
 
@@ -222,7 +225,7 @@ cast %Hlagh::, $wiz;
  is $@, '', 'stash: delete executed fine';
  is_deeply \%mg, {
   store => [
-   qw/nevermentioned nevermentioned eat eat shoot shoot nevermentioned/
+   qw<nevermentioned nevermentioned eat eat shoot shoot nevermentioned>
   ],
  }, 'stash: delete';
 }
@@ -236,7 +239,7 @@ dispell %Hlagh::, $wiz;
 {
  package AutoHlagh;
 
- use vars qw/$AUTOLOAD/;
+ use vars qw<$AUTOLOAD>;
 
  sub AUTOLOAD { return $AUTOLOAD }
 }
@@ -252,8 +255,8 @@ cast %AutoHlagh::, $wiz;
  is $res, 'AutoHlagh::autoloaded',
                        'stash: autoloaded method call returned the right thing';
  is_deeply \%mg, {
-  fetch => [ qw/autoloaded/ ],
-  store => [ qw/autoloaded AUTOLOAD AUTOLOAD/ ],
+  fetch => [ qw<autoloaded> ],
+  store => [ qw<autoloaded AUTOLOAD AUTOLOAD> ],
  }, 'stash: autoloaded method call';
 }
 
@@ -273,8 +276,8 @@ cast %AutoHlagh::, $wiz;
  is $res, 'AutoHlagher::also_autoloaded',
                   'stash: inherited autoloaded method returned the right thing';
  is_deeply \%mg, {
-  fetch => [ qw/also_autoloaded AUTOLOAD/ ],
-  store => [ qw/AUTOLOAD/ ],
+  fetch => [ qw<also_autoloaded AUTOLOAD> ],
+  store => [ qw<AUTOLOAD> ],
  }, 'stash: inherited autoloaded method call';
 }
 
@@ -291,7 +294,7 @@ $_ => sub {
  ()
 }
 CB
-} qw/fetch store exists delete/);
+} qw<fetch store exists delete>);
 
 my $uo_exp = $] < 5.011002 ? 2 : 3;
 

diff --git a/t/40-threads.t b/t/40-threads.t
index b86a4b46ec89fd4201d45163ad857995a92088c1..013794bd348a1a57926ae30972050e2c5c112bc3 100644 (file)
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -9,7 +9,7 @@ sub skipall {
  Test::More::plan(skip_all => $msg);
 }
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
 BEGIN {
  my $force = $ENV{PERL_VARIABLE_MAGIC_TEST_THREADS} ? 1 : !1;
@@ -27,7 +27,10 @@ BEGIN {
 
 use Test::More; # after threads
 
-use Variable::Magic qw/wizard cast dispell getdata VMG_THREADSAFE VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT/;
+use Variable::Magic qw<
+ wizard cast dispell getdata
+ VMG_THREADSAFE VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT
+>;
 
 BEGIN {
  skipall 'This Variable::Magic isn\'t thread safe' unless VMG_THREADSAFE;

diff --git a/t/41-clone.t b/t/41-clone.t
index d66d098465245d13105f17fe85f3fedbf5fc5dda..cf29a8bd97dfc10cd351bdc26f918d4df8d5cc8e 100644 (file)
--- a/t/41-clone.t
+++ b/t/41-clone.t
@@ -9,7 +9,7 @@ sub skipall {
  Test::More::plan(skip_all => $msg);
 }
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
 BEGIN {
  my $force = $ENV{PERL_VARIABLE_MAGIC_TEST_THREADS} ? 1 : !1;
@@ -27,7 +27,10 @@ BEGIN {
 
 use Test::More; # after threads
 
-use Variable::Magic qw/wizard cast dispell getdata VMG_THREADSAFE VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT/;
+use Variable::Magic qw<
+ wizard cast dispell getdata
+ VMG_THREADSAFE VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT
+>;
 
 BEGIN {
  skipall 'This Variable::Magic isn\'t thread safe' unless VMG_THREADSAFE;

diff --git a/t/80-leaks.t b/t/80-leaks.t
index 647419f01d6b9ec722984719f7824938a40c7d44..7b2a3f0ed51d44ec3ddd9d6a693104cb907a1b8e 100644 (file)
--- a/t/80-leaks.t
+++ b/t/80-leaks.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 11;
 
-use Variable::Magic qw/wizard cast getdata/;
+use Variable::Magic qw<wizard cast getdata>;
 
 our $destroyed;
 

diff --git a/t/lib/Variable/Magic/TestScopeEnd.pm b/t/lib/Variable/Magic/TestScopeEnd.pm
index 1e08a8e2b0101eca0344fe8ed1874ec9502c13ca..1eca93b23294f59fe7c5f8441d9f95f58c074732 100644 (file)
--- a/t/lib/Variable/Magic/TestScopeEnd.pm
+++ b/t/lib/Variable/Magic/TestScopeEnd.pm
@@ -2,7 +2,7 @@ package Variable::Magic::TestScopeEnd;
 
 use Test::More;
 
-use Variable::Magic qw/wizard cast/;
+use Variable::Magic qw<wizard cast>;
 
 my $wiz;
 

diff --git a/t/lib/Variable/Magic/TestValue.pm b/t/lib/Variable/Magic/TestValue.pm
index 491055f5845d2655fca6d4cfd4504feaa8d19359..2b735dc1371c0336a99513169b38644afce112bf 100644 (file)
--- a/t/lib/Variable/Magic/TestValue.pm
+++ b/t/lib/Variable/Magic/TestValue.pm
@@ -5,11 +5,11 @@ use warnings;
 
 use Test::More;
 
-use Variable::Magic qw/wizard cast/;
+use Variable::Magic qw<wizard cast>;
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
-our @EXPORT = qw/init_value value/;
+our @EXPORT = qw<init_value value>;
 
 our ($exp, $prefix, $desc);
 

diff --git a/t/lib/Variable/Magic/TestWatcher.pm b/t/lib/Variable/Magic/TestWatcher.pm
index bcbd67e5987ffa91d6c85268df2a72c19c1b1add..f9ba0ea1a91df2e4ddfad993b731ee04ec0330d8 100644 (file)
--- a/t/lib/Variable/Magic/TestWatcher.pm
+++ b/t/lib/Variable/Magic/TestWatcher.pm
@@ -5,12 +5,12 @@ use warnings;
 
 use Test::More;
 
-use Carp qw/croak/;
-use Variable::Magic qw/wizard/;
+use Carp qw<croak>;
+use Variable::Magic qw<wizard>;
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
-our @EXPORT = qw/init_watcher watch/;
+our @EXPORT = qw<init_watcher watch>;
 
 sub _types {
  my $t = shift;