Importing Bit-MorseSignals-0.02.tar.gz

[perl/modules/Bit-MorseSignals.git] / samples / jerk.pl

diff --git a/samples/jerk.pl b/samples/jerk.pl
new file mode 100755 (executable)
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);