X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fjerk.pl;fp=samples%2Fjerk.pl;h=3ff215b1cd0bb01b2723cdb165e0506851d753a1;hb=ed888890547450e75030085fadb958c5ea2a6421;hp=0000000000000000000000000000000000000000;hpb=f90efd6aef2e807ed35c07341456ce727d6668bc;p=perl%2Fmodules%2FBit-MorseSignals.git

diff --git a/samples/jerk.pl b/samples/jerk.pl
new file mode 100755
index 0000000..3ff215b
--- /dev/null
+++ b/samples/jerk.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use lib qw{blib/lib};
+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" };
+
+$deuce->post('HLAGH') for 1 .. 3;
+$pants->push while defined ($_ = $deuce->pop);