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;
sub cleanup { slaughter }
-my $snd = new IPC::MorseSignals::Emitter;
+my $snd = IPC::MorseSignals::Emitter->new;
sub try {
my ($msg) = @_;
my $speed = 2 ** 10;
my $dump = Dumper($msg);
1 while chomp $dump;
- $dump =~ s/\n\r/ /g;
+ $dump =~ s/\n\r/ /g;
$snd->reset;
my $len = 0;
while (($speed /= 2) >= 1) {