X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FBit-MorseSignals.git;a=blobdiff_plain;f=t%2F31-receiver-plain.t;fp=t%2F31-receiver-plain.t;h=279809574bc04715e5fc206d099e562ab48aa0c2;hp=899f3f2d90773933d7c2b3eed5d69e4c08f5fd5f;hb=72cae6c1d4dcdbfe9b437dc8a8949ce282bffeb0;hpb=b9dabf173a41229722e4d2a33e961291a97037a2 diff --git a/t/31-receiver-plain.t b/t/31-receiver-plain.t index 899f3f2..2798095 100644 --- a/t/31-receiver-plain.t +++ b/t/31-receiver-plain.t @@ -9,7 +9,7 @@ use Bit::MorseSignals::Receiver; my $hlagh; -my $pants = new Bit::MorseSignals::Receiver done => sub { $hlagh = $_[1] }; +my $pants = Bit::MorseSignals::Receiver->new(done => sub { $hlagh = $_[1] }); my $msg = 'x'; my @bits = split //, '111110' . '000' . '00011110' . '011111';