From: Vincent Pit <vince@profvince.com>
Date: Mon, 4 Apr 2011 16:09:53 +0000 (+0200)
Subject: Switch to qw<>
X-Git-Tag: v0.09~8
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=e20ad0b3c8306a73e1a0e0a1c5f88d6e84e3583e;p=perl%2Fmodules%2Fre-engine-Plugin.git

Switch to qw<>
---

diff --git a/Plugin.pm b/Plugin.pm
index df2a9f6..bf739f9 100644
--- a/Plugin.pm
+++ b/Plugin.pm
@@ -20,7 +20,7 @@ sub import
     my ($pkg, %sub) = @_;
 
     # Valid callbacks
-    my @callback = qw(comp exec);
+    my @callback = qw<comp exec>;
 
     for (@callback) {
         next unless exists $sub{$_};
@@ -55,7 +55,7 @@ sub callbacks
 {
     my ($re, %callback) = @_;
 
-    my %map = map { $_ => "_$_" } qw/exec/;
+    my %map = map { $_ => "_$_" } qw<exec>;
 
     for my $key (keys %callback) {
         my $name = $map{$key};
diff --git a/t/10-usage/import.t b/t/10-usage/import.t
index c962aca..8c43db5 100644
--- a/t/10-usage/import.t
+++ b/t/10-usage/import.t
@@ -15,7 +15,7 @@ use Test::More skip_all => "Needs lameness in user code";
 #        # We have :import, generate import and unimport methods in the
 #        # calling package
 #        my %pkg;
-#        for (qw(comp exec)) {
+#        for (qw<comp exec>) {
 #            no strict 'refs';
 #            $pkg{$_} = *{"$caller\::$_"}{CODE} if *{"$caller\::$_"}{CODE};
 #        }
diff --git a/t/20-methods/stash.t b/t/20-methods/stash.t
index 9083263..9357aa8 100644
--- a/t/20-methods/stash.t
+++ b/t/20-methods/stash.t
@@ -11,7 +11,7 @@ use re::engine::Plugin (
     comp => sub {
         my ($re) = @_;
 
-        my $sv = [ qw( a o e u ) ];
+        my $sv = [ qw< a o e u > ];
 
         $re->stash( $sv );
     },
@@ -21,7 +21,7 @@ use re::engine::Plugin (
         my $stash = $re->stash;
         my $ret = $re->stash( $stash );
         ok(!$ret, "stash returns no value on assignment");
-        my %h = qw( 0 a 1 o 2 e 3 u );
+        my %h = qw< 0 a 1 o 2 e 3 u >;
         for (keys %h) {
             is($h{$_}, $stash->[$_]);
         }
diff --git a/t/90-author/pod-coverage.t b/t/90-author/pod-coverage.t
index 8c00d87..5491f5f 100644
--- a/t/90-author/pod-coverage.t
+++ b/t/90-author/pod-coverage.t
@@ -15,4 +15,4 @@ my $min_pc = 0.18;
 eval "use Pod::Coverage $min_pc";
 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@;
 
-all_pod_coverage_ok({ also_private => [ qw/ENGINE unimport/ ] });
+all_pod_coverage_ok({ also_private => [ qw<ENGINE unimport> ] });