]> git.vpit.fr Git - perl/modules/Bit-MorseSignals.git/commitdiff
Switch to qw<>
authorVincent Pit <vince@profvince.com>
Tue, 20 Aug 2013 19:36:46 +0000 (16:36 -0300)
committerVincent Pit <vince@profvince.com>
Tue, 20 Aug 2013 19:36:46 +0000 (16:36 -0300)
lib/Bit/MorseSignals.pm
lib/Bit/MorseSignals/Emitter.pm
lib/Bit/MorseSignals/Receiver.pm
t/01-import.t
t/02-can.t
t/20-emitter-obj.t
t/22-emitter-utf8.t
t/30-receiver-obj.t
t/50-chitchat-plain.t
t/51-chitchat-utf8.t

index cab439f5308aa7f4d0e381df1a9583b1409713a9..5866e6cbcd93a93e267cc5e90b633f9fdd559670 100644 (file)
@@ -106,11 +106,11 @@ The constants L</BM_DATA_AUTO>, L</BM_DATA_PLAIN>, L</BM_DATA_UTF8> and L</BM_DA
 
 =cut
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
 our @EXPORT         = ();
 our %EXPORT_TAGS    = (
- 'consts' => [ qw/BM_DATA_AUTO BM_DATA_PLAIN BM_DATA_UTF8 BM_DATA_STORABLE/ ]
+ 'consts' => [ qw<BM_DATA_AUTO BM_DATA_PLAIN BM_DATA_UTF8 BM_DATA_STORABLE> ]
 );
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
index 54203afccc5f8682bb964697f1ccf5d3b605cda8..18f3940d77a8743ee10b35250d2fbeebe4ef08b5 100644 (file)
@@ -3,11 +3,11 @@ package Bit::MorseSignals::Emitter;
 use strict;
 use warnings;
 
-use Carp qw/croak/;
-use Encode qw/encode_utf8 is_utf8/;
-use Storable qw/freeze/;
+use Carp     qw<croak>;
+use Encode   qw<encode_utf8 is_utf8>;
+use Storable qw<freeze>;
 
-use Bit::MorseSignals qw/:consts/;
+use Bit::MorseSignals qw<:consts>;
 
 =head1 NAME
 
@@ -102,7 +102,7 @@ sub post {
   #      BM_DATA_{PLAIN,         UTF8,          STORABLE}
   $type = BM_DATA_AUTO unless defined $type and exists $manglers[$type];
   if (ref $msg) {
-   return if { map { $_ => 1 } qw/CODE GLOB/ }->{ref $msg};
+   return if { map { $_ => 1 } qw<CODE GLOB> }->{ref $msg};
    $type = BM_DATA_STORABLE;
   } elsif ($type == BM_DATA_AUTO) {
    $type = is_utf8($msg) ? BM_DATA_UTF8 : BM_DATA_PLAIN;
@@ -210,7 +210,7 @@ sub reset {
  my ($self) = @_;
  _check_self($self);
  $self->{state} = @{$self->{queue}} > 0;
- @{$self}{qw/buf len pos/} = ();
+ @{$self}{qw<buf len pos>} = ();
  return $self;
 }
 
index 874bb9a072617357b19f9d51c3e1135fc522fc6e..1171583a4db50852c0d82104e3b852bbba77ba2f 100644 (file)
@@ -3,11 +3,11 @@ package Bit::MorseSignals::Receiver;
 use strict;
 use warnings;
 
-use Carp qw/croak/;
-use Encode qw/decode_utf8/;
-use Storable qw/thaw/;
+use Carp     qw<croak>;
+use Encode   qw<decode_utf8>;
+use Storable qw<thaw>;
 
-use Bit::MorseSignals qw/:consts/;
+use Bit::MorseSignals qw<:consts>;
 
 =head1 NAME
 
@@ -117,7 +117,7 @@ sub push {
    my $type = 2 * vec($self->{buf}, 1, 1)
                 + vec($self->{buf}, 0, 1);
    $type = BM_DATA_PLAIN if vec($self->{buf}, 2, 1);
-   @{$self}{qw/state type buf len/} = (3, $type, '', 0);
+   @{$self}{qw<state type buf len>} = (3, $type, '', 0);
   }
 
  } elsif ($self->{state} == 1) { # end of signature
@@ -129,7 +129,7 @@ sub push {
 
  } else { # first bit
 
-  @{$self}{qw/state sig sig_bit sig_len buf len/}
+  @{$self}{qw<state sig sig_bit sig_len buf len>}
            = (1,    '', $bit,   1,      '', 0  );
   vec($self->{sig}, 0, 1) = $bit;
 
@@ -148,7 +148,7 @@ sub reset {
  my ($self) = @_;
  _check_self($self);
  $self->{state} = 0;
- @{$self}{qw/sig sig_bit sig_len type buf len/} = ();
+ @{$self}{qw<sig sig_bit sig_len type buf len>} = ();
  return $self;
 }
 
index f4dfad2b51776398897fa2437b17394025ee3132..a4de83761c81887de5929616e9c38dafb40c43e3 100644 (file)
@@ -7,7 +7,7 @@ use Test::More tests => 4;
 
 require Bit::MorseSignals;
 
-for (qw/BM_DATA_AUTO BM_DATA_PLAIN BM_DATA_UTF8 BM_DATA_STORABLE/) {
+for (qw<BM_DATA_AUTO BM_DATA_PLAIN BM_DATA_UTF8 BM_DATA_STORABLE>) {
  eval { Bit::MorseSignals->import($_) };
  ok(!$@, 'import ' . $_);
 }
index f29e6361eb3a1597ee06b3e85fa7c6c76d283e00..c83fee3754803366585c70dd8a1ed445cbdb69a1 100644 (file)
@@ -7,13 +7,13 @@ use Test::More tests => 9 + 5;
 
 require Bit::MorseSignals::Emitter;
 
-for (qw/new post pop len pos reset flush busy queued/) {
+for (qw<new post pop len pos reset flush busy queued>) {
  ok(Bit::MorseSignals::Emitter->can($_), 'BME can ' . $_);
 }
 
 require Bit::MorseSignals::Receiver;
 
-for (qw/new push reset busy msg/) {
+for (qw<new push reset busy msg>) {
  ok(Bit::MorseSignals::Receiver->can($_), 'BMR can ' . $_);
 }
 
index 92322659f881be2a4c76c9040af0ae15655209f8..969502e228afe63b365d8d695f8d15246ca7325c 100644 (file)
@@ -16,19 +16,19 @@ ok(defined $deuce2, 'BME::new called as an object method works' );
 is(ref $deuce2, 'Bit::MorseSignals::Emitter', 'BME::new called as an object method works is valid');
 ok(!defined Bit::MorseSignals::Emitter::new(), 'BME::new called without a class is invalid');
 
-eval { $deuce2 = Bit::MorseSignals::Emitter->new(qw/a b c/) };
+eval { $deuce2 = Bit::MorseSignals::Emitter->new(qw<a b c>) };
 like($@, qr/Optional\s+arguments/, 'BME::new gets parameters as key => value pairs');
 
 my $fake = { };
 bless $fake, 'Bit::MorseSignal::Hlagh';
-for (qw/post pop len pos reset flush busy queued/) {
+for (qw<post pop len pos reset flush busy queued>) {
  eval "Bit::MorseSignals::Emitter::$_('Bit::MorseSignals::Emitter')";
  like($@, qr/^First\s+argument/, "BME::$_ isn't a class method");
  eval "Bit::MorseSignals::Emitter::$_(\$fake)";
  like($@, qr/^First\s+argument/, "BME::$_ only applies to BME objects");
 }
 
-eval { $deuce->post('foo', qw/a b c/) };
+eval { $deuce->post('foo', qw<a b c>) };
 like($@, qr/Optional\s+arguments/, 'BME::post gets parameters after the first as key => value pairs');
 ok(!defined($deuce->post(sub { 1 })), 'BME::post doesn\'t take CODE references');
 ok(!defined($deuce->post(\*STDERR)), 'BME::post doesn\'t take GLOB references');
index 9647ecfa69122e3ecf452ea1bdb770a33dde85f9..6c185416d3847d2515d8236a604b9fdd7b6c60f1 100644 (file)
@@ -7,7 +7,7 @@ use utf8;
 
 use Test::More 'no_plan';
 
-use Bit::MorseSignals qw/BM_DATA_PLAIN/;
+use Bit::MorseSignals qw<BM_DATA_PLAIN>;
 use Bit::MorseSignals::Emitter;
 
 my $deuce = Bit::MorseSignals::Emitter->new(utf8 => 'DO WANT');
index 79b5615407c7e32c4a7a296c83333388afa0ede6..73c991e36aa9272658bc6821f4cdaa300f932f74 100644 (file)
@@ -16,12 +16,12 @@ ok(defined $pants2, 'BMR::new called as an object method works' );
 is(ref $pants2, 'Bit::MorseSignals::Receiver', 'BMR::new called as an object method works is valid');
 ok(!defined Bit::MorseSignals::Receiver::new(), 'BMR::new called without a class is invalid');
 
-eval { $pants2 = Bit::MorseSignals::Receiver->new(qw/a b c/) };
+eval { $pants2 = Bit::MorseSignals::Receiver->new(qw<a b c>) };
 like($@, qr/Optional\s+arguments/, 'BME::new gets parameters as key => value pairs');
 
 my $fake = { };
 bless $fake, 'Bit::MorseSignal::Hlagh';
-for (qw/push reset busy msg/) {
+for (qw<push reset busy msg>) {
  eval "Bit::MorseSignals::Receiver::$_('Bit::MorseSignals::Receiver')";
  like($@, qr/^First\s+argument/, "BMR::$_ isn't a class method");
  eval "Bit::MorseSignals::Receiver::$_(\$fake)";
index b1bafc5e509a2d2a804d6e94fdf2ee8b1f803ca2..b9a3de2ab4373c8dcf34fcb10da11af87ce2b5a2 100644 (file)
@@ -8,8 +8,8 @@ use Test::More tests => 9;
 use Bit::MorseSignals::Emitter;
 use Bit::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 = Bit::MorseSignals::Emitter->new;
 my $pants = Bit::MorseSignals::Receiver->new(done => sub {
index 3d72d977457016a9e830746ae87779b353751799..0d700f4a8ab439ed37628204a5931f5062707e76 100644 (file)
@@ -10,7 +10,7 @@ use Test::More tests => 7;
 use Bit::MorseSignals::Emitter;
 use Bit::MorseSignals::Receiver;
 
-my @msgs = qw/€éèë 月語 x tata たTÂ/;
+my @msgs = qw<€éèë 月語 x tata たTÂ>;
 
 sub cp { join '.', map ord, split //, $_[0] }