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);
Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
-You can contact me by mail or on #perl @ FreeNode (vincent or Prof_Vince).
+You can contact me by mail or on C<irc.perl.org> (vincent).
=head1 BUGS