]> git.vpit.fr Git - perl/modules/IPC-MorseSignals.git/commitdiff
Get rid of the indirect notation
authorVincent Pit <vince@profvince.com>
Tue, 20 Aug 2013 20:03:51 +0000 (17:03 -0300)
committerVincent Pit <vince@profvince.com>
Tue, 20 Aug 2013 21:26:26 +0000 (18:26 -0300)
lib/IPC/MorseSignals.pm
lib/IPC/MorseSignals/Emitter.pm
lib/IPC/MorseSignals/Receiver.pm
samples/try.pl
t/20-emitter-obj.t
t/30-receiver-obj.t
t/50-self-plain.t
t/51-self-utf8.t
t/52-self-storable.t
t/lib/IPC/MorseSignals/TestSuite.pm

index 89232f3383929e3c520e845da9b3d20f84b9783b..99bd2793993348e47921f1690e3a996127f6c03e 100644 (file)
@@ -20,7 +20,7 @@ our $VERSION = '0.15';
     # In the sender process
     use IPC::MorseSignals::Emitter;
 
-    my $deuce = new IPC::MorseSignals::Emitter speed => 1024;
+    my $deuce = IPC::MorseSignals::Emitter->new(speed => 1024);
     $deuce->post('HLAGH') for 1 .. 3;
     $deuce->send($pid);
 
@@ -30,9 +30,9 @@ our $VERSION = '0.15';
     use IPC::MorseSignals::Receiver;
 
     local %SIG;
-    my $pants = new IPC::MorseSignals::Receiver \%SIG, done => sub {
+    my $pants = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
      print STDERR "GOT $_[1]\n";
-    };
+    });
 
 =head1 DESCRIPTION
 
index 163e5768d3926957d1f79ff6cd745b5579a5ef05..b5ba7e61fc2faaf843af553a01f37b1e2e3ebe67 100644 (file)
@@ -26,7 +26,7 @@ our $VERSION = '0.15';
 
     use IPC::MorseSignals::Emitter;
 
-    my $deuce = new IPC::MorseSignals::Emitter speed => 1024;
+    my $deuce = IPC::MorseSignals::Emitter->new(speed => 1024);
     $deuce->post('HLAGH') for 1 .. 3;
     $deuce->send($pid);
 
index cc63e4be7fe0e47776b257bd27f65edfaddb714c..b14b6769ff1dca2bb643e3e3005d4d604ed8b328 100644 (file)
@@ -25,9 +25,9 @@ our $VERSION = '0.15';
     use IPC::MorseSignals::Receiver;
 
     local %SIG;
-    my $pants = new IPC::MorseSignals::Receiver \%SIG, done => sub {
+    my $pants = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
      print STDERR "GOT $_[1]\n";
-    };
+    });
 
 =head1 DESCRIPTION
 
index 68388c8e02b4d938dac434822a7c061bfb29cdcb..f76d7471f394ec6b63bc7b573e9c812198b8debb 100755 (executable)
@@ -15,10 +15,10 @@ if (!defined $pid) {
  die "fork() failed : $!";
 } elsif ($pid == 0) {
  local %SIG;
- my $rcv = new IPC::MorseSignals::Receiver \%SIG, done => sub {
+ my $rcv = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
   print STDERR "I, the child, recieved this : $_[1]\n";
   exit EXIT_SUCCESS;
- };
+ });
  print STDERR "I'm $$ (the child), and I'm waiting for data...\n";
  pause while 1;
  exit EXIT_FAILURE;
@@ -26,7 +26,7 @@ if (!defined $pid) {
 
 print STDERR "I'm $$ (the parent), and I'm gonna send a message to my child $pid.\n";
 
-my $snd = new IPC::MorseSignals::Emitter speed => 1000;
+my $snd = IPC::MorseSignals::Emitter->new(speed => 1000);
 $snd->post("This message was sent with IPC::MorseSignals");
 $snd->send($pid);
 waitpid $pid, 0;
index bd88b12675475ca58eea61467fd0b9ec090f23a3..abb01b49fc3edf864dcf91462f6f4ee569cc1fda 100644 (file)
@@ -9,7 +9,7 @@ use IPC::MorseSignals::Emitter;
 
 sub neq { abs($_[0] - $_[1]) < ($_[1] / 10) };
 
-my $deuce = new IPC::MorseSignals::Emitter;
+my $deuce = IPC::MorseSignals::Emitter->new;
 ok(defined $deuce, 'BME object is defined');
 is(ref $deuce, 'IPC::MorseSignals::Emitter', 'IME object is valid');
 ok($deuce->isa('Bit::MorseSignals::Emitter'), 'IME is a BME');
@@ -32,22 +32,22 @@ $deuce->speed(100);
 is($deuce->speed, 100, 'set speed is 100');
 ok(neq($deuce->delay, 0.01), 'resulting speed is 0.01');
 
-$deuce = new IPC::MorseSignals::Emitter delay => 0.25;
+$deuce = IPC::MorseSignals::Emitter->new(delay => 0.25);
 ok(neq($deuce->delay, 0.25), 'initial delay is 0.25');
 is($deuce->speed, 4, 'resulting initial speed is 4');
 
-$deuce = new IPC::MorseSignals::Emitter speed => 40;
+$deuce = IPC::MorseSignals::Emitter->new(speed => 40);
 is($deuce->speed, 40, 'initial speed is 40');
 ok(neq($deuce->delay, 0.025), 'resulting initial delay is 0.025');
 
-$deuce = new IPC::MorseSignals::Emitter delay => 0.25, speed => 40;
+$deuce = IPC::MorseSignals::Emitter->new(delay => 0.25, speed => 40);
 ok(neq($deuce->delay, 0.25), 'delay supersedes speed');
 
-$deuce = new IPC::MorseSignals::Emitter delay => 0;
+$deuce = IPC::MorseSignals::Emitter->new(delay => 0);
 is($deuce->delay, 1, 'wrong delay results in 1');
 
-$deuce = new IPC::MorseSignals::Emitter speed => 0.1;
+$deuce = IPC::MorseSignals::Emitter->new(speed => 0.1);
 is($deuce->delay, 1, 'wrong speed results in 1');
 
-$deuce = new IPC::MorseSignals::Emitter delay => 0, speed => -0.1;
+$deuce = IPC::MorseSignals::Emitter->new(delay => 0, speed => -0.1);
 is($deuce->delay, 1, 'wrong delay and speed result in 1');
index 855a9d033430180d1a854ee429598f78e2e01d6b..35aadd47312810df32efacde2a0be32e062d39e6 100644 (file)
@@ -7,7 +7,7 @@ use Test::More tests => 4;
 
 use IPC::MorseSignals::Receiver;
 
-my $pants = new IPC::MorseSignals::Receiver \%SIG;
+my $pants = IPC::MorseSignals::Receiver->new(\%SIG);
 ok(defined $pants, 'IMR object is defined');
 is(ref $pants, 'IPC::MorseSignals::Receiver', 'IMR object is valid');
 ok($pants->isa('Bit::MorseSignals::Receiver'), 'IMR is a BMR');
index 06c0a6008e061cc1fa9c2194b86f5d03e385dc0e..df5c272a1c4d01f6e38ba3ef4d551748daa1f724 100644 (file)
@@ -11,11 +11,11 @@ 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 $deuce = new IPC::MorseSignals::Emitter speed => 1024;
-my $pants = new IPC::MorseSignals::Receiver \%SIG, done => sub {
+my $deuce = IPC::MorseSignals::Emitter->new(speed => 1024);
+my $pants = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
  my $cur = shift @msgs;
  is($_[1], $cur, "message correctly received");
-};
+});
 
 $deuce->post($_) for @msgs;
 $deuce->send($$);
index 1b69273d69bed09cae0130e72c1d8292250a20b5..5379b71d1b08e384ae5237fa36d73092b32c93da 100644 (file)
@@ -14,11 +14,11 @@ my @msgs = qw/€éèë 月語 x tata たTÂ/;
 
 sub cp { join '.', map ord, split //, $_[0] }
 
-my $deuce = new IPC::MorseSignals::Emitter speed => 1024;
-my $pants = new IPC::MorseSignals::Receiver \%SIG, done => sub {
+my $deuce = IPC::MorseSignals::Emitter->new(speed => 1024);
+my $pants = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
  my $cur = shift @msgs;
  ok($_[1] eq $cur, 'got ' . cp($_[1]) . ', expected ' . cp($cur))
-};
+});
 
 $deuce->post($_) for @msgs;
 $deuce->send($$);
index 6f3933c58f2182452f45d10dd5d4a339f7db64ea..138dd8e69ffd69241a8c3ec18eaff9a471276606 100644 (file)
@@ -19,11 +19,11 @@ my @msgs = (
 $msgs[7]->{wut} = { dong => [ 0 .. 9 ], recurse => $msgs[7] };
 my $i = 0;
 
-my $deuce = new IPC::MorseSignals::Emitter speed => 1024;
-my $pants = new IPC::MorseSignals::Receiver \%SIG, done => sub {
+my $deuce = IPC::MorseSignals::Emitter->new(speed => 1024);
+my $pants = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
  my $cur = shift @msgs;
  is_deeply($_[1], $cur, 'got object ' . $i++);
-};
+});
 
 $deuce->post($_) for @msgs;
 $deuce->send($$);
index 570fa2762f2254c2304146dbbacd7be8b7e8872f..5b95eef1ccba4c1bba96df6ceec1b220393b885c 100644 (file)
@@ -34,11 +34,11 @@ sub spawn {
   close $rdr or die "close() failed: $!";
   select $wtr;
   $| = 1;
-  my $rcv = new IPC::MorseSignals::Receiver \%SIG, done => sub {
+  my $rcv = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
    my $msg = Dumper($_[1]);
    $msg =~ s/\n\r/ /g;
    print $wtr "$msg\n";
-  };
+  });
   $SIG{__WARN__} = sub {
    my $warn = join '', @_;
    $warn =~ s/\n\r/ /g;
@@ -86,7 +86,7 @@ sub init {
 
 sub cleanup { slaughter }
 
-my $snd = new IPC::MorseSignals::Emitter;
+my $snd = IPC::MorseSignals::Emitter->new;
 
 sub try {
  my ($msg) = @_;