samples/jerk.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use lib qw<blib/lib>;
   7 use Bit::MorseSignals::Emitter;
   8 use Bit::MorseSignals::Receiver;
   9
  10 my $deuce = Bit::MorseSignals::Emitter->new;
  11 my $pants = Bit::MorseSignals::Receiver->new(done => sub { print $_[1], "\n" });
  12
  13 $deuce->post('HLAGH') for 1 .. 3;
  14 $pants->push while defined ($_ = $deuce->pop);