X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FBit-MorseSignals.git;a=blobdiff_plain;f=lib%2FBit%2FMorseSignals.pm;h=cab439f5308aa7f4d0e381df1a9583b1409713a9;hp=8e1a892e799ed16ae018269262c4beadda1fe021;hb=72cae6c1d4dcdbfe9b437dc8a8949ce282bffeb0;hpb=b9dabf173a41229722e4d2a33e961291a97037a2

diff --git a/lib/Bit/MorseSignals.pm b/lib/Bit/MorseSignals.pm
index 8e1a892..cab439f 100644
--- 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);