Get rid of the indirect notation

[perl/modules/Bit-MorseSignals.git] / lib / Bit / MorseSignals.pm

diff --git a/lib/Bit/MorseSignals.pm b/lib/Bit/MorseSignals.pm
index 8e1a892e799ed16ae018269262c4beadda1fe021..cab439f5308aa7f4d0e381df1a9583b1409713a9 100644 (file)
--- a/lib/Bit/MorseSignals.pm
+++ b/lib/Bit/MorseSignals.pm
@@ -20,8 +20,8 @@ our $VERSION = '0.06';
     use Bit::MorseSignals::Emitter;
     use Bit::MorseSignals::Receiver;
 
-    my $deuce = new Bit::MorseSignals::Emitter;
-    my $pants = new Bit::MorseSignals::Receiver done => sub { print $_[1], "\n" };
+    my $deuce = Bit::MorseSignals::Emitter->new;
+    my $pants = Bit::MorseSignals::Receiver->new(done => sub { print $_[1], "\n" });
 
     $deuce->post('HLAGH') for 1 .. 3;
     $pants->push while defined ($_ = $deuce->pop);