]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/commitdiff
Switch to qw<>
authorVincent Pit <vince@profvince.com>
Mon, 4 Apr 2011 16:09:53 +0000 (18:09 +0200)
committerVincent Pit <vince@profvince.com>
Mon, 4 Apr 2011 16:09:53 +0000 (18:09 +0200)
Plugin.pm
t/10-usage/import.t
t/20-methods/stash.t
t/90-author/pod-coverage.t

index df2a9f61fcb251818845411a34386164ecf6e73e..bf739f989f5e9fda90aa79841658dffaa6cefc37 100644 (file)
--- 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};
index c962aca90e4fc4ab0c7306862972b5e9532f4ba1..8c43db5da5b8fabd02f5754e325a2d9a409d0883 100644 (file)
@@ -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};
 #        }
index 9083263566071642d0583946bde5707f4f3efbd6..9357aa8d3865502c627008e1f88c6ba7b6bf394d 100644 (file)
@@ -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->[$_]);
         }
index 8c00d87b5d941294edd4b646bbd50701527cf85d..5491f5fa9b71312ce5657a23e133ff56f9b5477b 100644 (file)
@@ -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> ] });