POD verbatim paragraphs should fit into a terminal

diff --git a/lib/Bit/MorseSignals.pm b/lib/Bit/MorseSignals.pm
index 44501760e3b584ea8c9937abcdf00a1014584cc4..4df153d8ff3f2cbdc7b5d85f518b7bb3b9e8dbd1 100644 (file)
--- 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;
     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);
 
     $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 1eb7befe980215f25a39526ba1335299e42c68ce..be6458e1fc398f0ba7ca0f92272aa7bd27c8ba57 100644 (file)
--- a/lib/Bit/MorseSignals/Receiver.pm
+++ b/lib/Bit/MorseSignals/Receiver.pm
@@ -25,7 +25,9 @@ our $VERSION = '0.08';
 
     use Bit::MorseSignals::Receiver;
 
 
     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);
     while (...) {
      my $bit = comes_from_somewhere_lets_say_signals();
      $pants->push($bit);