X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FBit-MorseSignals.git;a=blobdiff_plain;f=lib%2FBit%2FMorseSignals%2FEmitter.pm;fp=lib%2FBit%2FMorseSignals%2FEmitter.pm;h=54203afccc5f8682bb964697f1ccf5d3b605cda8;hp=af654a20587f4b5afe2c939a515eca3b3dd9f5ac;hb=72cae6c1d4dcdbfe9b437dc8a8949ce282bffeb0;hpb=b9dabf173a41229722e4d2a33e961291a97037a2 diff --git a/lib/Bit/MorseSignals/Emitter.pm b/lib/Bit/MorseSignals/Emitter.pm index af654a2..54203af 100644 --- a/lib/Bit/MorseSignals/Emitter.pm +++ b/lib/Bit/MorseSignals/Emitter.pm @@ -25,7 +25,7 @@ our $VERSION = '0.06'; use Bit::MorseSignals::Emitter; - my $deuce = new Bit::MorseSignals::Emitter; + my $deuce = Bit::MorseSignals::Emitter->new; $deuce->post("hlagh") for 1 .. 3; while (defined(my $bit = $deuce->pop)) { sends_by_some_mean_lets_say_signals($bit);