]> git.vpit.fr Git - perl/modules/Bit-MorseSignals.git/blob - samples/jerk.pl
Update .gitignore
[perl/modules/Bit-MorseSignals.git] / samples / jerk.pl
1 #!/usr/bin/env perl
2
3 use strict;
4 use warnings;
5
6 use lib qw{blib/lib};
7 use Bit::MorseSignals::Emitter;
8 use Bit::MorseSignals::Receiver;
9
10 my $deuce = new Bit::MorseSignals::Emitter;
11 my $pants = new Bit::MorseSignals::Receiver done => sub { print $_[1], "\n" };
12
13 $deuce->post('HLAGH') for 1 .. 3;
14 $pants->push while defined ($_ = $deuce->pop);