use Bit::MorseSignals::Receiver;
my $deuce = Bit::MorseSignals::Emitter->new;
- my $pants = Bit::MorseSignals::Receiver->new(done => sub { print $_[1], "\n" });
+ my $pants = Bit::MorseSignals::Receiver->new(
+ done => sub { print $_[1], "\n" },
+ );
$deuce->post('HLAGH') for 1 .. 3;
$pants->push while defined ($_ = $deuce->pop);
use Bit::MorseSignals::Receiver;
- my $pants = Bit::MorseSignals::Receiver->new(done => sub { print "received $_[1]!\n" });
+ my $pants = Bit::MorseSignals::Receiver->new(
+ done => sub { print "received $_[1]!\n" },
+ );
while (...) {
my $bit = comes_from_somewhere_lets_say_signals();
$pants->push($bit);