]> git.vpit.fr Git - perl/modules/with.git/commitdiff
Switch qw delimiters to <>
authorVincent Pit <vince@profvince.com>
Sat, 24 Aug 2013 21:53:18 +0000 (18:53 -0300)
committerVincent Pit <vince@profvince.com>
Sat, 24 Aug 2013 22:03:20 +0000 (19:03 -0300)
lib/with.pm
samples/bench.pl
samples/funcs.pl
t/92-pod-coverage.t

index 2a086f5f6d287b9edef4a48b928420cb6226a37a..4bef4cec12d04c77997b71cb32eeae2753f2c3c6 100644 (file)
@@ -5,12 +5,12 @@ use 5.009_004;
 use strict;
 use warnings;
 
-use Carp qw/croak/;
+use Carp           qw<croak>;
 use Filter::Util::Call;
-use Text::Balanced qw/extract_variable extract_quotelike extract_multiple/;
-use Scalar::Util qw/refaddr set_prototype/;
+use Text::Balanced qw<extract_variable extract_quotelike extract_multiple>;
+use Scalar::Util   qw<refaddr set_prototype>;
 
-use Sub::Prototype::Util qw/flatten wrap/;
+use Sub::Prototype::Util qw<flatten wrap>;
 
 =head1 NAME
 
@@ -96,15 +96,15 @@ my $extractor = [
 ];
 
 my %skip;
-$skip{$_} = 1 for qw/my our local sub do eval goto return
+$skip{$_} = 1 for qw<my our local sub do eval goto return
                      if else elsif unless given when or and
                      while until for foreach next redo last continue
                      eq ne lt gt le ge cmp
                      map grep system exec sort print say
                      new
-                     STDIN STDOUT STDERR/;
+                     STDIN STDOUT STDERR>;
 
-my @core = qw/abs accept alarm atan2 bind binmode bless caller chdir chmod
+my @core = qw<abs accept alarm atan2 bind binmode bless caller chdir chmod
               chomp chop chown chr chroot close closedir connect cos crypt
               dbmclose dbmopen defined delete die do dump each endgrent
               endhostent endnetent endprotoent endpwent endservent eof eval
@@ -127,7 +127,7 @@ my @core = qw/abs accept alarm atan2 bind binmode bless caller chdir chmod
               sqrt srand stat study sub substr symlink syscall sysopen sysread
               sysseek system syswrite tell telldir tie tied time times
               truncate uc ucfirst umask undef unlink unpack unshift untie use
-              utime values vec wait waitpid wantarray warn write/;
+              utime values vec wait waitpid wantarray warn write>;
 
 my %core;
 $core{$_} = prototype "CORE::$_" for @core;
index 149b964971367e609c3edf78a5b0f413c2bb9aff..fb89ddb40bb4c2352ff46d9c27e2616c10b909de 100755 (executable)
@@ -3,12 +3,12 @@
 use strict;
 use warnings;
 
-use Benchmark qw/cmpthese/;
+use Benchmark qw<cmpthese>;
 
 use lib 'blib/lib';
 
 my $counter;
-my @poultry = (qw/cock chick/);
+my @poultry = (qw<cock chick>);
 
 sub Duck::quack { $counter += $_[0]->{id} * $_[0] }
 sub fly { $counter += $_[0]; }
index 94a414738c3a579ac7bef09c56f3e41a5367b8c4..72a73257a38778b5d4f508bc32af22c424e24628 100755 (executable)
@@ -14,7 +14,7 @@ my %dup;
       grep { eval { () = prototype "CORE::$_"; 1 } }
        grep !$dup{$_}++, @f;
 my $c = 10;
-my $base = "my \@core = qw/";
+my $base = "my \@core = qw<";
 my $out = $base;
 my $l = length $base;
 my $first = 1;
@@ -34,5 +34,5 @@ for (@f) {
   redo;
  }
 }
-$out .= "/;\n";
+$out .= ">;\n";
 print $out;
index 1fe20923a160afcfa5a6db024992433b2015bad0..c6a8fc59c7c1f3730e11478309e69fdf15eca539 100644 (file)
@@ -12,5 +12,8 @@ load_or_skip_all('Test::Pod::Coverage', '1.08', [ ]);
 load_or_skip_all('Pod::Coverage',       '0.18'     );
 
 all_pod_coverage_ok(
- { also_private => [ qr/import$/, qw/code corewrap subwrap defer/ ] }
+ { also_private => [
+  qr/import$/,
+  qw<code corewrap subwrap defer>,
+ ] }
 );