X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FBit-MorseSignals.git;a=blobdiff_plain;f=lib%2FBit%2FMorseSignals.pm;h=4df153d8ff3f2cbdc7b5d85f518b7bb3b9e8dbd1;hp=44501760e3b584ea8c9937abcdf00a1014584cc4;hb=7311d27d4099d8c1f0e011db45d53a21853ff703;hpb=35563d8644a10b1ac4a4434e000708abb9c5f476 diff --git a/lib/Bit/MorseSignals.pm b/lib/Bit/MorseSignals.pm index 4450176..4df153d 100644 --- a/lib/Bit/MorseSignals.pm +++ b/lib/Bit/MorseSignals.pm @@ -21,7 +21,9 @@ our $VERSION = '0.08'; 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);