Switch qw delimiters to <>

diff --git a/bin/rgit b/bin/rgit
index 36737b25f10f91786511681da7016e7b4330ae10..cb9d31e115d082fac774bb39b855d7a69dd015dd 100755 (executable)
--- a/bin/rgit
+++ b/bin/rgit
@@ -3,12 +3,12 @@
 use strict;
 use warnings;
 
-use Carp   qw/croak/;
-use Config qw/%Config/;
-use Cwd    qw/cwd/;
+use Carp   qw<croak>;
+use Config qw<%Config>;
+use Cwd    qw<cwd>;
 
 use App::Rgit;
-use App::Rgit::Utils qw/:levels/;
+use App::Rgit::Utils qw<:levels>;
 use App::Rgit::Policy;
 
 our $VERSION;

diff --git a/lib/App/Rgit.pm b/lib/App/Rgit.pm
index f0bbdde0919e67912cfebde85e65f2706efecbdf..ef56f6c0d8f62f8a054a250d37d9807713b1d791 100644 (file)
--- a/lib/App/Rgit.pm
+++ b/lib/App/Rgit.pm
@@ -86,7 +86,7 @@ Read-only accessors.
 =cut
 
 BEGIN {
- eval "sub $_ { \$_[0]->{$_} }" for qw/config command/;
+ eval "sub $_ { \$_[0]->{$_} }" for qw<config command>;
 }
 
 =head1 SEE ALSO

diff --git a/lib/App/Rgit/Command.pm b/lib/App/Rgit/Command.pm
index b4d78dd4984270f922a9b080b3c6963455651a40..8761da38dbfb553b7c46bba8ba27256573db2eef 100644 (file)
--- a/lib/App/Rgit/Command.pm
+++ b/lib/App/Rgit/Command.pm
@@ -5,7 +5,7 @@ use warnings;
 
 use Carp ();
 
-use App::Rgit::Utils qw/:codes/;
+use App::Rgit::Utils qw<:codes>;
 
 =head1 NAME
 
@@ -39,7 +39,7 @@ Creates a new command object for C<$cmd> that is bound to be called with argumen
 =cut
 
 my %commands;
-__PACKAGE__->action($_ => 'Once') for qw/daemon gui help init version/, ' ';
+__PACKAGE__->action($_ => 'Once') for qw<daemon gui help init version>, ' ';
 
 sub new {
  my $class = shift;
@@ -120,7 +120,7 @@ Read-only accessors.
 =cut
 
 BEGIN {
- eval "sub $_ { \$_[0]->{$_} }" for qw/cmd args policy/;
+ eval "sub $_ { \$_[0]->{$_} }" for qw<cmd args policy>;
 }
 
 =head2 C<run>

diff --git a/lib/App/Rgit/Command/Each.pm b/lib/App/Rgit/Command/Each.pm
index b50e18040c60df1f202878cb5179dedef3f91e4d..fc5f10d03186db4b97dee7c323c090e2ba5fc1e1 100644 (file)
--- a/lib/App/Rgit/Command/Each.pm
+++ b/lib/App/Rgit/Command/Each.pm
@@ -3,10 +3,10 @@ package App::Rgit::Command::Each;
 use strict;
 use warnings;
 
-use base qw/App::Rgit::Command/;
+use base qw<App::Rgit::Command>;
 
 use App::Rgit::Guard;
-use App::Rgit::Utils qw/:codes/;
+use App::Rgit::Utils qw<:codes>;
 
 =head1 NAME
 

diff --git a/lib/App/Rgit/Command/Once.pm b/lib/App/Rgit/Command/Once.pm
index 630f25220e25a3b8db0cc7d1e6ed5f0bc132cff6..bcba756cc2e4c3275e25a35349ff2176370fae65 100644 (file)
--- a/lib/App/Rgit/Command/Once.pm
+++ b/lib/App/Rgit/Command/Once.pm
@@ -3,7 +3,7 @@ package App::Rgit::Command::Once;
 use strict;
 use warnings;
 
-use base qw/App::Rgit::Command/;
+use base qw<App::Rgit::Command>;
 
 =head1 NAME
 

diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm
index c384203a69d0cdac90ca12626ed0f3c4688b9b78..7e5fa8fc79ad1e20a83ac2d9e56bc4dbc98f5281 100644 (file)
--- a/lib/App/Rgit/Config.pm
+++ b/lib/App/Rgit/Config.pm
@@ -8,7 +8,7 @@ use Cwd        (); # cwd
 use File::Spec (); # canonpath, catfile, path
 
 use App::Rgit::Repository;
-use App::Rgit::Utils qw/:levels/; # :levels, abs_path
+use App::Rgit::Utils qw<:levels>; # :levels, abs_path
 
 use constant IS_WIN32 => $^O eq 'MSWin32';
 
@@ -68,7 +68,7 @@ sub new {
  if (IS_WIN32) {
   my @acc;
   for my $c (@candidates) {
-   push @acc, $c, map "$c.$_", qw/exe com bat cmd/;
+   push @acc, $c, map "$c.$_", qw<exe com bat cmd>;
   }
   @candidates = @acc;
  }
@@ -148,7 +148,7 @@ Read-only accessors.
 =cut
 
 BEGIN {
- eval "sub $_ { \$_[0]->{$_} }" for qw/root git cwd_repo debug/;
+ eval "sub $_ { \$_[0]->{$_} }" for qw<root git cwd_repo debug>;
 }
 
 =head1 SEE ALSO

diff --git a/lib/App/Rgit/Config/Default.pm b/lib/App/Rgit/Config/Default.pm
index a1bfc77f71ba628deb5bd8694cbc958e28a1e2eb..b9c28c6475ac2e5f05d5ab0bb00bf572033a64fc 100644 (file)
--- a/lib/App/Rgit/Config/Default.pm
+++ b/lib/App/Rgit/Config/Default.pm
@@ -3,9 +3,9 @@ package App::Rgit::Config::Default;
 use strict;
 use warnings;
 
-use File::Find qw/find/;
+use File::Find qw<find>;
 
-use base qw/App::Rgit::Config/;
+use base qw<App::Rgit::Config>;
 
 use App::Rgit::Repository;
 

diff --git a/lib/App/Rgit/Policy/Default.pm b/lib/App/Rgit/Policy/Default.pm
index 5c8203bacdcf2cc6a4ccd0c9125a245ee88cf08d..f1b71fe2b2b5e6256091a9666e3b1e904e7f8e0d 100644 (file)
--- a/lib/App/Rgit/Policy/Default.pm
+++ b/lib/App/Rgit/Policy/Default.pm
@@ -3,9 +3,9 @@ package App::Rgit::Policy::Default;
 use strict;
 use warnings;
 
-use App::Rgit::Utils qw/:codes/;
+use App::Rgit::Utils qw<:codes>;
 
-use base qw/App::Rgit::Policy/;
+use base qw<App::Rgit::Policy>;
 
 =head1 NAME
 

diff --git a/lib/App/Rgit/Policy/Interactive.pm b/lib/App/Rgit/Policy/Interactive.pm
index 27e12c962bdac54a0bc5523667b628b49d58da31..5b1a63d75ea0a8b23e422affbc4a2804d118b64a 100644 (file)
--- a/lib/App/Rgit/Policy/Interactive.pm
+++ b/lib/App/Rgit/Policy/Interactive.pm
@@ -5,9 +5,9 @@ use warnings;
 
 use Cwd ();
 
-use App::Rgit::Utils qw/:codes/;
+use App::Rgit::Utils qw<:codes>;
 
-use base qw/App::Rgit::Policy/;
+use base qw<App::Rgit::Policy>;
 
 =head1 NAME
 

diff --git a/lib/App/Rgit/Policy/Keep.pm b/lib/App/Rgit/Policy/Keep.pm
index 82b6a48b9710a9f9f0b957f7dc974699183265a7..43f125fb78805bd512838268c47a2c79d0ace7fa 100644 (file)
--- a/lib/App/Rgit/Policy/Keep.pm
+++ b/lib/App/Rgit/Policy/Keep.pm
@@ -3,9 +3,9 @@ package App::Rgit::Policy::Keep;
 use strict;
 use warnings;
 
-use App::Rgit::Utils qw/:codes/;
+use App::Rgit::Utils qw<:codes>;
 
-use base qw/App::Rgit::Policy/;
+use base qw<App::Rgit::Policy>;
 
 =head1 NAME
 

diff --git a/lib/App/Rgit/Repository.pm b/lib/App/Rgit/Repository.pm
index f1dc149a628e2d635260631a82a9ef25a175c526..8356f246cf2f9f0ab1834965bfa15a9fb4e24518 100644 (file)
--- a/lib/App/Rgit/Repository.pm
+++ b/lib/App/Rgit/Repository.pm
@@ -214,7 +214,7 @@ Read-only accessors.
 =cut
 
 BEGIN {
- eval "sub $_ { \$_[0]->{$_} }" for qw/fake repo bare name work/;
+ eval "sub $_ { \$_[0]->{$_} }" for qw<fake repo bare name work>;
 }
 
 =head1 SEE ALSO

diff --git a/lib/App/Rgit/Utils.pm b/lib/App/Rgit/Utils.pm
index ee1fdd348014622aec683bd379cd034a4838c1f5..c858f53f46ea8e4b310343bd8c0e6e0db8341207 100644 (file)
--- a/lib/App/Rgit/Utils.pm
+++ b/lib/App/Rgit/Utils.pm
@@ -101,13 +101,13 @@ C<INFO>, C<WARN>, C<ERR> and C<CRIT> are only exported on request, either by the
 
 =cut
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
 our @EXPORT         = ();
 our %EXPORT_TAGS    = (
- funcs  => [ qw/abs_path/ ],
- codes  => [ qw/SAVE NEXT REDO LAST/ ],
- levels => [ qw/INFO WARN ERR CRIT/ ],
+ funcs  => [ qw<abs_path> ],
+ codes  => [ qw<SAVE NEXT REDO LAST> ],
+ levels => [ qw<INFO WARN ERR CRIT> ],
 );
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];

diff --git a/t/16-levels.t b/t/16-levels.t
index 38e126a6a26c294873b5d55b33d8fb292b1448eb..240ded6dcb17618f1408efe9a03470a5a6acdcf4 100644 (file)
--- a/t/16-levels.t
+++ b/t/16-levels.t
@@ -8,7 +8,7 @@ use warnings;
 use Test::More tests => 4;
 
 use App::Rgit::Config;
-use App::Rgit::Utils qw/:levels/;
+use App::Rgit::Utils qw<:levels>;
 
 local $SIG{__WARN__} = sub { diag 'warning:',   @_ };
 local $SIG{__DIE__}  = sub { diag 'exception:', @_ };
@@ -33,7 +33,7 @@ for my $l (0 .. $#levels) {
  my $buf = '';
  close STDERR;
  open STDERR, '>', \$buf or die "open(STDERR, '>', \\\$buf): $!";
- $arc->$_($_) for qw/info warn err crit/;
+ $arc->$_($_) for qw<info warn err crit>;
  is $buf, join('', @levels[$l .. $#levels]), "level $l ok";
 }
 

diff --git a/t/20-each.t b/t/20-each.t
index ed1c0c207e2392d87474c1568f22b6404d71f23f..a5ac4d3e167846900984a49b0457a2dd37349f8d 100644 (file)
--- a/t/20-each.t
+++ b/t/20-each.t
@@ -3,18 +3,18 @@
 use strict;
 use warnings;
 
-use Cwd        qw/cwd abs_path/;
+use Cwd        qw<cwd abs_path>;
 use File::Spec (); # catdir, catfile
-use File::Temp qw/tempfile tempdir/;
+use File::Temp qw<tempfile tempdir>;
 
 use Test::More;
 
-use App::Rgit::Utils qw/:codes/;
+use App::Rgit::Utils qw<:codes>;
 use App::Rgit;
 
 use lib 't/lib';
 
-use App::Rgit::TestUtils qw/can_run_git/;
+use App::Rgit::TestUtils qw<can_run_git>;
 use App::Rgit::Policy::Callback;
 
 my ($can_run, $reason) = can_run_git;
@@ -132,7 +132,7 @@ sub try {
   git    => 't/bin/git',
   root   => $tmpdir,
   cmd    => $cmd,
-  args   => [ abs_path($filename), $cmd, qw/%n %g %w %b %G %W %B %R %%n %x/ ],
+  args   => [ abs_path($filename), $cmd, qw<%n %g %w %b %G %W %B %R %%n %x> ],
   policy => $policy,
  );
  isa_ok $ar, 'App::Rgit', "each $cmd is an App::Rgit object";

diff --git a/t/21-once.t b/t/21-once.t
index 46c6975f38a3eb4a926b235dc12f20b1fd1e0bac..51224ab8b5d38aa2442a1bcaba75434520b7acfb 100644 (file)
--- a/t/21-once.t
+++ b/t/21-once.t
@@ -3,15 +3,15 @@
 use strict;
 use warnings;
 
-use Cwd        qw/abs_path/;
-use File::Temp qw/tempfile/;
+use Cwd        qw<abs_path>;
+use File::Temp qw<tempfile>;
 
 use Test::More;
 
 use App::Rgit;
 
 use lib 't/lib';
-use App::Rgit::TestUtils qw/can_run_git/;
+use App::Rgit::TestUtils qw<can_run_git>;
 
 my ($can_run, $reason) = can_run_git;
 if ($can_run) {
@@ -21,20 +21,20 @@ if ($can_run) {
 }
 
 my @expected = (
- ([ [ qw/%n %g %w %b %%/ ] ]) x 5
+ ([ [ qw<%n %g %w %b %%> ] ]) x 5
 );
 
 local $ENV{GIT_DIR}       = 't';
 local $ENV{GIT_EXEC_PATH} = 't/bin/git';
 
-for my $cmd (qw/daemon gui help init version/) {
+for my $cmd (qw<daemon gui help init version>) {
  my ($fh, $filename) = tempfile(UNLINK => 1);
 
  my $ar = App::Rgit->new(
   git  => $ENV{GIT_EXEC_PATH},
   root => $ENV{GIT_DIR},
   cmd  => $cmd,
-  args => [ abs_path($filename), $cmd, qw/%n %g %w %b %%/ ],
+  args => [ abs_path($filename), $cmd, qw<%n %g %w %b %%> ],
  );
  isa_ok $ar, 'App::Rgit', "once $cmd is an App::Rgit object";
 
@@ -45,7 +45,7 @@ for my $cmd (qw/daemon gui help init version/) {
  is @lines, 1, "once $cmd visited only one repo";
 
  my $r = [ split /\|/, defined $lines[0] ? $lines[0] : '' ];
- my $e = [ $cmd, qw/%n %g %w %b %%/ ];
+ my $e = [ $cmd, qw<%n %g %w %b %%> ];
  s/[\r\n]*$// for @$r;
  for (0 .. 5) {
   is $r->[$_], $e->[$_], "once $cmd argument $_ is ok";

diff --git a/t/lib/App/Rgit/Policy/Callback.pm b/t/lib/App/Rgit/Policy/Callback.pm
index 3b6feb9eca8709291e1481e68741d7ee4033bb35..56c6879c7ffcb1a70de615ea5292063b45bae4af 100644 (file)
--- a/t/lib/App/Rgit/Policy/Callback.pm
+++ b/t/lib/App/Rgit/Policy/Callback.pm
@@ -3,7 +3,7 @@ package App::Rgit::Policy::Callback;
 use strict;
 use warnings;
 
-use base qw/App::Rgit::Policy/;
+use base qw<App::Rgit::Policy>;
 
 sub new {
  my $class = shift;
@@ -21,7 +21,7 @@ sub new {
 }
 
 BEGIN {
- eval "sub $_ { \$_[0]->{$_} }" for qw/callback/;
+ eval "sub $_ { \$_[0]->{$_} }" for qw<callback>;
 }
 
 sub handle {

diff --git a/t/lib/App/Rgit/TestUtils.pm b/t/lib/App/Rgit/TestUtils.pm
index 321f96474b6972f69f65ec0b490a6931dabd95d1..b736a5d6c0001171a0b72bde2eb6ca35628b5072 100644 (file)
--- a/t/lib/App/Rgit/TestUtils.pm
+++ b/t/lib/App/Rgit/TestUtils.pm
@@ -3,10 +3,10 @@ package App::Rgit::TestUtils;
 use strict;
 use warnings;
 
-use Cwd        qw/abs_path/;
-use File::Temp qw/tempfile/;
+use Cwd        qw<abs_path>;
+use File::Temp qw<tempfile>;
 use File::Spec (); # curdir, catfile
-use POSIX      qw/WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG/;
+use POSIX      qw<WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG>;
 
 BEGIN {
  no warnings 'redefine';
@@ -16,9 +16,9 @@ BEGIN {
  *WTERMSIG    = sub { shift() & 127 } unless eval { WTERMSIG(0);    1 };
 }
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
-our @EXPORT_OK = (qw/can_run_git/);
+our @EXPORT_OK = (qw<can_run_git>);
 
 sub can_run_git {
  my ($fh, $filename) = tempfile(UNLINK => 1);
@@ -32,7 +32,7 @@ TRY:
    'version',
   );
 
-  my $git = File::Spec->catfile(File::Spec->curdir, qw/t bin git/);
+  my $git = File::Spec->catfile(File::Spec->curdir, qw<t bin git>);
   if ($^O eq 'MSWin32') {
    unless (-x $git) {
     $git .= '.bat';