Switch to qw<>

diff --git a/Plugin.pm b/Plugin.pm
index df2a9f61fcb251818845411a34386164ecf6e73e..bf739f989f5e9fda90aa79841658dffaa6cefc37 100644 (file)
--- a/Plugin.pm
+++ b/Plugin.pm
@@ -20,7 +20,7 @@ sub import
     my ($pkg, %sub) = @_;
 
     # Valid callbacks
     my ($pkg, %sub) = @_;
 
     # Valid callbacks

-    my @callback = qw(comp exec);
+    my @callback = qw<comp exec>;

 
     for (@callback) {
         next unless exists $sub{$_};
 
     for (@callback) {
         next unless exists $sub{$_};


@@ -55,7 +55,7 @@ sub callbacks
 {
     my ($re, %callback) = @_;
 
 {
     my ($re, %callback) = @_;
 

-    my %map = map { $_ => "_$_" } qw/exec/;
+    my %map = map { $_ => "_$_" } qw<exec>;

 
     for my $key (keys %callback) {
         my $name = $map{$key};
 
     for my $key (keys %callback) {
         my $name = $map{$key};

diff --git a/t/10-usage/import.t b/t/10-usage/import.t
index c962aca90e4fc4ab0c7306862972b5e9532f4ba1..8c43db5da5b8fabd02f5754e325a2d9a409d0883 100644 (file)
--- 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;
 #        # 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};
 #        }
 #            no strict 'refs';
 #            $pkg{$_} = *{"$caller\::$_"}{CODE} if *{"$caller\::$_"}{CODE};
 #        }

diff --git a/t/20-methods/stash.t b/t/20-methods/stash.t
index 9083263566071642d0583946bde5707f4f3efbd6..9357aa8d3865502c627008e1f88c6ba7b6bf394d 100644 (file)
--- a/t/20-methods/stash.t
+++ b/t/20-methods/stash.t
@@ -11,7 +11,7 @@ use re::engine::Plugin (
     comp => sub {
         my ($re) = @_;
 
     comp => sub {
         my ($re) = @_;
 

-        my $sv = [ qw( a o e u ) ];
+        my $sv = [ qw< a o e u > ];

 
         $re->stash( $sv );
     },
 
         $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 $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->[$_]);
         }
         for (keys %h) {
             is($h{$_}, $stash->[$_]);
         }

diff --git a/t/90-author/pod-coverage.t b/t/90-author/pod-coverage.t
index 8c00d87b5d941294edd4b646bbd50701527cf85d..5491f5fa9b71312ce5657a23e133ff56f9b5477b 100644 (file)
--- 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 $@;
 
 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> ] });