From: Vincent Pit Date: Fri, 23 Aug 2013 19:49:49 +0000 (-0300) Subject: POD verbatim paragraphs should fit into a terminal X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=7311d27d4099d8c1f0e011db45d53a21853ff703;p=perl%2Fmodules%2FBit-MorseSignals.git POD verbatim paragraphs should fit into a terminal --- 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); diff --git a/lib/Bit/MorseSignals/Receiver.pm b/lib/Bit/MorseSignals/Receiver.pm index 1eb7bef..be6458e 100644 --- a/lib/Bit/MorseSignals/Receiver.pm +++ b/lib/Bit/MorseSignals/Receiver.pm @@ -25,7 +25,9 @@ our $VERSION = '0.08'; 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);