Switch qw delimiters to <>

diff --git a/lib/IPC/MorseSignals/Emitter.pm b/lib/IPC/MorseSignals/Emitter.pm
index 7a4c3d6da05348b6919e9cf799991fe70d068b18..a8abfae3421cd384fdc36d9bee53de7ddf70e9bd 100644 (file)
--- a/lib/IPC/MorseSignals/Emitter.pm
+++ b/lib/IPC/MorseSignals/Emitter.pm
@@ -3,12 +3,12 @@ package IPC::MorseSignals::Emitter;
 use strict;
 use warnings;
 
-use Carp qw/croak/;
-use POSIX qw/SIGUSR1 SIGUSR2/;
-use Time::HiRes qw/usleep/;
+use Carp        qw<croak>;
+use POSIX       qw<SIGUSR1 SIGUSR2>;
+use Time::HiRes qw<usleep>;
 
 use Bit::MorseSignals::Emitter;
-use base qw/Bit::MorseSignals::Emitter/;
+use base qw<Bit::MorseSignals::Emitter>;
 
 =head1 NAME
 

diff --git a/lib/IPC/MorseSignals/Receiver.pm b/lib/IPC/MorseSignals/Receiver.pm
index a72eec7472c7f70b2e1cbe51122463ca11b7d5a9..96d04201a1e0b288fc9a855010c1afad1b6a7ff0 100644 (file)
--- a/lib/IPC/MorseSignals/Receiver.pm
+++ b/lib/IPC/MorseSignals/Receiver.pm
@@ -3,10 +3,10 @@ package IPC::MorseSignals::Receiver;
 use strict;
 use warnings;
 
-use Carp qw/croak/;
+use Carp qw<croak>;
 
 use Bit::MorseSignals::Receiver;
-use base qw/Bit::MorseSignals::Receiver/;
+use base qw<Bit::MorseSignals::Receiver>;
 
 =head1 NAME
 
@@ -31,7 +31,7 @@ our $VERSION = '0.16';
 
 =head1 DESCRIPTION
 
-This module installs C<$SIG{qw/USR1 USR2/}> handlers and forwards the bits received to an underlying L<Bit::MorseSignals> receiver.
+This module installs C<< $SIG{qw<USR1 USR2>} >> handlers and forwards the bits received to an underlying L<Bit::MorseSignals> receiver.
 
 =head1 METHODS
 
@@ -51,7 +51,7 @@ sub new {
  croak 'The first argument must be a hash reference to the %SIG hash'
   unless $sig and ref $sig eq 'HASH';
  my $self = bless $class->SUPER::new(@_), $class;
- @{$sig}{qw/USR1 USR2/} = (sub { $self->push(0) }, sub { $self->push(1) });
+ @{$sig}{qw<USR1 USR2>} = (sub { $self->push(0) }, sub { $self->push(1) });
  return $self;
 }
 

diff --git a/samples/bench.pl b/samples/bench.pl
index 9bd146e43a2776edfd64f1ab41c46af35e292568..5e6a34ec77508fecd4115a5acaea66e4b3cddf0b 100755 (executable)
--- a/samples/bench.pl
+++ b/samples/bench.pl
@@ -3,11 +3,11 @@
 use strict;
 use warnings;
 
-use POSIX qw/SIGINT SIGTERM SIGKILL SIGHUP EXIT_FAILURE/;
+use POSIX qw<SIGINT SIGTERM SIGKILL SIGHUP EXIT_FAILURE>;
 
-use lib qw{blib/lib t/lib};
+use lib qw<blib/lib t/lib>;
 
-use IPC::MorseSignals::TestSuite qw/init bench cleanup/;
+use IPC::MorseSignals::TestSuite qw<init bench cleanup>;
 
 sub diag { print STDERR "@_\n" };
 *IPC::MorseSignals::TestSuite::diag = *main::diag;

diff --git a/samples/try.pl b/samples/try.pl
index f76d7471f394ec6b63bc7b573e9c812198b8debb..299672722a6147042816927837161206979809cb 100755 (executable)
--- a/samples/try.pl
+++ b/samples/try.pl
@@ -3,9 +3,9 @@
 use strict;
 use warnings;
 
-use POSIX qw/pause EXIT_SUCCESS EXIT_FAILURE/;
+use POSIX qw<pause EXIT_SUCCESS EXIT_FAILURE>;
 
-use lib qw{blib/lib};
+use lib qw<blib/lib>;
 
 use IPC::MorseSignals::Emitter;
 use IPC::MorseSignals::Receiver;

diff --git a/t/02-can.t b/t/02-can.t
index a78573e7edb1d8d27fa0a0915b7a786633e917e9..6db168c849ed9d85bd6f5d904451014e4840ef01 100644 (file)
--- a/t/02-can.t
+++ b/t/02-can.t
@@ -7,13 +7,13 @@ use Test::More tests => 10 + 7;
 
 require IPC::MorseSignals::Emitter;
 
-for (qw/new post pop reset flush busy queued/, qw/new send delay speed/) {
+for (qw<new post pop reset flush busy queued>, qw<new send delay speed>) {
  ok(IPC::MorseSignals::Emitter->can($_), 'IME can ' . $_);
 }
 
 require IPC::MorseSignals::Receiver;
 
-for (qw/new push reset busy msg/, qw/new/) {
+for (qw<new push reset busy msg>, qw<new>) {
  ok(IPC::MorseSignals::Receiver->can($_), 'IMR can ' . $_);
 }
 

diff --git a/t/10-sigusr.t b/t/10-sigusr.t
index 60b17b2a1833628c18aa30f85d94e4a2186e6705..cb3f2d44363345940f60cd372255771a3d76f95b 100644 (file)
--- a/t/10-sigusr.t
+++ b/t/10-sigusr.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 4;
 
-use POSIX qw/SIGUSR1 SIGUSR2/;
+use POSIX qw<SIGUSR1 SIGUSR2>;
 
 my ($a, $b) = (0, 0);
 

diff --git a/t/50-self-plain.t b/t/50-self-plain.t
index df5c272a1c4d01f6e38ba3ef4d551748daa1f724..fd16ad8013f908acc3c81edf2413b6f6c332d35b 100644 (file)
--- a/t/50-self-plain.t
+++ b/t/50-self-plain.t
@@ -8,8 +8,8 @@ use Test::More tests => 9;
 use IPC::MorseSignals::Emitter;
 use IPC::MorseSignals::Receiver;
 
-my @msgs = qw/hlagh hlaghlaghlagh HLAGH HLAGHLAGHLAGH \x{0dd0}\x{00}
-              h\x{00}la\x{00}gh \x{00}\x{ff}\x{ff}\x{00}\x{00}\x{ff}/;
+my @msgs = qw<hlagh hlaghlaghlagh HLAGH HLAGHLAGHLAGH \x{0dd0}\x{00}
+              h\x{00}la\x{00}gh \x{00}\x{ff}\x{ff}\x{00}\x{00}\x{ff}>;
 
 my $deuce = IPC::MorseSignals::Emitter->new(speed => 1024);
 my $pants = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {

diff --git a/t/51-self-utf8.t b/t/51-self-utf8.t
index 5379b71d1b08e384ae5237fa36d73092b32c93da..b281de3329237dce45d3824710f35c49d2493c48 100644 (file)
--- a/t/51-self-utf8.t
+++ b/t/51-self-utf8.t
@@ -10,7 +10,7 @@ use Test::More tests => 7;
 use IPC::MorseSignals::Emitter;
 use IPC::MorseSignals::Receiver;
 
-my @msgs = qw/€éèë 月語 x tata たTÂ/;
+my @msgs = qw<€éèë 月語 x tata たTÂ>;
 
 sub cp { join '.', map ord, split //, $_[0] }
 

diff --git a/t/60-fork-plain.t b/t/60-fork-plain.t
index 043e99e35f7f0604eeab83a1f598b6e8c9d92b0c..af36286c55c1f1386bd2c2a453822e5fa8edcd9b 100644 (file)
--- a/t/60-fork-plain.t
+++ b/t/60-fork-plain.t
@@ -6,7 +6,7 @@ use warnings;
 use Test::More tests => 7;
 
 use lib 't/lib';
-use IPC::MorseSignals::TestSuite qw/try init cleanup/;
+use IPC::MorseSignals::TestSuite qw<try init cleanup>;
 
 *IPC::MorseSignals::TestSuite::diag = *Test::More::diag;
 
@@ -20,8 +20,8 @@ sub test {
  ok($res, $desc . ' (' . $len . ' bits @ ' . $speed . ' bauds)');
 }
 
-my @msgs = qw/hlagh hlaghlaghlagh HLAGH HLAGHLAGHLAGH \x{0dd0}\x{00}
-              h\x{00}la\x{00}gh \x{00}\x{ff}\x{ff}\x{00}\x{00}\x{ff}/;
+my @msgs = qw<hlagh hlaghlaghlagh HLAGH HLAGHLAGHLAGH \x{0dd0}\x{00}
+              h\x{00}la\x{00}gh \x{00}\x{ff}\x{ff}\x{00}\x{00}\x{ff}>;
 
 init 6;
 

diff --git a/t/61-fork-utf8.t b/t/61-fork-utf8.t
index c2c9c3425145edd9e6faab97c6aaf546b31e3638..e8aeacf553fb53ad15f61913d109ee250e3d9051 100644 (file)
--- a/t/61-fork-utf8.t
+++ b/t/61-fork-utf8.t
@@ -8,7 +8,7 @@ use utf8;
 use Test::More tests => 5;
 
 use lib 't/lib';
-use IPC::MorseSignals::TestSuite qw/try init cleanup/;
+use IPC::MorseSignals::TestSuite qw<try init cleanup>;
 
 *IPC::MorseSignals::TestSuite::diag = *Test::More::diag;
 
@@ -22,7 +22,7 @@ sub test {
  ok($res, $desc . ' (' . $len . ' bits @ ' . $speed . ' bauds)');
 }
 
-my @msgs = qw/€éèë 月語 x tata たTÂ/;
+my @msgs = qw<€éèë 月語 x tata たTÂ>;
 
 init 6;
 

diff --git a/t/62-fork-storable.t b/t/62-fork-storable.t
index 56e36ebbd05fb611f5c54fea3bada47a2557baa5..91e2e3d91d06f35b680ba5c9289012936ff0fe37 100644 (file)
--- a/t/62-fork-storable.t
+++ b/t/62-fork-storable.t
@@ -8,7 +8,7 @@ use utf8;
 use Test::More tests => 8;
 
 use lib 't/lib';
-use IPC::MorseSignals::TestSuite qw/try init cleanup/;
+use IPC::MorseSignals::TestSuite qw<try init cleanup>;
 
 *IPC::MorseSignals::TestSuite::diag = *Test::More::diag;
 

diff --git a/t/70-speed.t b/t/70-speed.t
index 07dd76750d1b577a61a9aed43b896b8882cf92eb..9eba2d9b822207760ded59d6cb962a4b55630d82 100644 (file)
--- a/t/70-speed.t
+++ b/t/70-speed.t
@@ -9,7 +9,7 @@ my $n;
 use Test::More tests => 1 + ($n = 5);
 
 use lib 't/lib';
-use IPC::MorseSignals::TestSuite qw/bench init cleanup/;
+use IPC::MorseSignals::TestSuite qw<bench init cleanup>;
 
 *IPC::MorseSignals::TestSuite::diag = *Test::More::diag;
 

diff --git a/t/lib/IPC/MorseSignals/TestSuite.pm b/t/lib/IPC/MorseSignals/TestSuite.pm
index 31996bad2a39c01ae1ba8d3d8fd032d96c9f0fff..74568a353d4d3bee1e5af5707b8537c830a890a6 100644 (file)
--- a/t/lib/IPC/MorseSignals/TestSuite.pm
+++ b/t/lib/IPC/MorseSignals/TestSuite.pm
@@ -4,14 +4,14 @@ use strict;
 use warnings;
 
 use Data::Dumper;
-use POSIX qw/pause SIGKILL EXIT_FAILURE/;
+use POSIX qw<pause SIGKILL EXIT_FAILURE>;
 
 use IPC::MorseSignals::Emitter;
 use IPC::MorseSignals::Receiver;
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
-our @EXPORT_OK = qw/try bench init cleanup/;
+our @EXPORT_OK = qw<try bench init cleanup>;
 
 $Data::Dumper::Indent = 0;