7 use Bit::MorseSignals::Emitter;
8 use Bit::MorseSignals::Receiver;
10 my $deuce = Bit::MorseSignals::Emitter->new;
11 my $pants = Bit::MorseSignals::Receiver->new(done => sub { print $_[1], "\n" });
13 $deuce->post('HLAGH') for 1 .. 3;
14 $pants->push while defined ($_ = $deuce->pop);