X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F31-receiver-plain.t;h=279809574bc04715e5fc206d099e562ab48aa0c2;hb=HEAD;hp=899f3f2d90773933d7c2b3eed5d69e4c08f5fd5f;hpb=d4cad38280f090c2057f4df1d6ef1fce88ccbcc6;p=perl%2Fmodules%2FBit-MorseSignals.git 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';