Importing Bit-MorseSignals-0.02.tar.gz

diff --git a/Changes b/Changes
index 998da2329dbec3f456e6b1c526a980d95950ec2a..9402d8fef2ea0b9bb100a7674969ce7af943b4ac 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,11 @@
 Revision history for Bit-MorseSignals
 
+0.02    2008-03-01 12:00 GMT
+        + Add : The samples/jerk.pl example script.
+        + Doc : Typos in POD.
+        + Fix : As the doc says, the datatype should be enforced to PLAIN when
+                the reserved bit is set.
+
 0.01    2008-03-01 10:40 GMT
         First version, released on an unsuspecting world.
 

diff --git a/MANIFEST b/MANIFEST
index ca416e61ded180b573809c2c68d7e84b48d8bcb3..71cde0ba28fd788fd7c3d4c542cc5758cf3f6741 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -5,6 +5,7 @@ README
 lib/Bit/MorseSignals.pm
 lib/Bit/MorseSignals/Emitter.pm
 lib/Bit/MorseSignals/Receiver.pm
+samples/jerk.pl
 t/00-load.t
 t/01-import.t
 t/02-can.t

diff --git a/META.yml b/META.yml
index 26092986830df0844e7d0ede96cfa8f6c458f544..9c929781c0a68041daeea9611502d1c57e6a1347 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Bit-MorseSignals
-version:             0.01
+version:             0.02
 abstract:            The MorseSignals protocol.
 license:             perl
 author:              

diff --git a/README b/README
index 63b4b80d9d1590eb4750befc80a519c79afffd2a..04205368cef8e4370f24581c201ea87db542ca2a 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     Bit::MorseSignals - The MorseSignals protocol.
 
 VERSION
-    Version 0.01
+    Version 0.02
 
 DESCRIPTION
     In unidirectionnal communication channels (such as networking or IPC),
@@ -27,9 +27,9 @@ PROTOCOL
 
     The header is composed of three bits (lowest weight coming first) :
 
-    - The 2 first ones denotes the data type : a value of 0 is used for a
+    - The 2 first ones denote the data type : a value of 0 is used for a
     plain string, 1 for an UTF-8 encoded string, and 2 for a Storable
-    object. See also the "CONSTANTS" sections ;
+    object. See also the "CONSTANTS" section ;
     - The third one is reserved. For compatibility reasons, the receiver
     should for now enforce the message data type to plain when this bit is
     lit.

diff --git a/lib/Bit/MorseSignals.pm b/lib/Bit/MorseSignals.pm
index b2afc844829f652505952ba29fade9325332acbb..a8d13f6faa85c191c537a6f7f19d2030ab61ed06 100644 (file)
--- a/lib/Bit/MorseSignals.pm
+++ b/lib/Bit/MorseSignals.pm
@@ -9,11 +9,11 @@ Bit::MorseSignals - The MorseSignals protocol.
 
 =head1 VERSION
 
-Version 0.01
+Version 0.02
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 DESCRIPTION
 
@@ -39,7 +39,7 @@ The header is composed of three bits (lowest weight coming first) :
 
 =over 4
 
-=item - The 2 first ones denotes the data type : a value of 0 is used for a plain string, 1 for an UTF-8 encoded string, and 2 for a L<Storable> object. See also the L</CONSTANTS> sections ;
+=item - The 2 first ones denote the data type : a value of 0 is used for a plain string, 1 for an UTF-8 encoded string, and 2 for a L<Storable> object. See also the L</CONSTANTS> section ;
 
 =item - The third one is reserved. For compatibility reasons, the receiver should for now enforce the message data type to plain when this bit is lit.
 

diff --git a/lib/Bit/MorseSignals/Emitter.pm b/lib/Bit/MorseSignals/Emitter.pm
index 44fec2401627773a9c817e1af2e4dd6e6087c5aa..9d0273a34d44197b017b6c55b8139007562654af 100644 (file)
--- a/lib/Bit/MorseSignals/Emitter.pm
+++ b/lib/Bit/MorseSignals/Emitter.pm
@@ -15,11 +15,11 @@ Bit::MorseSignals::Emitter - Base class for Bit::MorseSignals emitters.
 
 =head1 VERSION
 
-Version 0.01
+Version 0.02
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 SYNOPSIS
 
@@ -64,7 +64,7 @@ sub _count_bits {
 
 =head2 C<new>
 
-L<Bit::MorseSignal::Emitter> object constructor. Currently does not take any optional argument.
+L<Bit::MorseSignals::Emitter> object constructor. Currently does not take any optional argument.
 
 =cut
 

diff --git a/lib/Bit/MorseSignals/Receiver.pm b/lib/Bit/MorseSignals/Receiver.pm
index 42f6b4fcca68fefed9422077afbcaffb98c8899c..0dd41aa7b9c1a919be9f249cf74363bcdbb4397e 100644 (file)
--- a/lib/Bit/MorseSignals/Receiver.pm
+++ b/lib/Bit/MorseSignals/Receiver.pm
@@ -15,11 +15,11 @@ Bit::MorseSignals::Receiver - Base class for Bit::MorseSignals receivers.
 
 =head1 VERSION
 
-Version 0.01
+Version 0.02
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 SYNOPSIS
 
@@ -48,7 +48,7 @@ sub _check_self {
 
 =head2 C<< new [ done => $cb ] >>
 
-L<Bit::MorseSignal::Receiver> object constructor. With the C<'done'> option, you can specify a callback that will be triggered every time a message is completed, and in which C<$_[0]> will be the receiver object and C<$_[1]> the message received.
+L<Bit::MorseSignals::Receiver> object constructor. With the C<'done'> option, you can specify a callback that will be triggered every time a message is completed, and in which C<$_[0]> will be the receiver object and C<$_[1]> the message received.
 
 =cut
 
@@ -111,6 +111,7 @@ sub push {
   if ($self->{len} >= 3) {
    my $type = 2 * vec($self->{buf}, 0, 1)
                 + vec($self->{buf}, 1, 1);
+   $type = BM_DATA_PLAIN if vec($self->{buf}, 2, 1);
    @{$self}{qw/state type buf len/} = (3, $type, '', 0);
   }
 

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);